[project @ 2001-04-06 04:28:53 by lewie]

[ghc-hetmet.git] / ghc / tests / numeric / should_run / num002.hs

diff --git a/ghc/tests/numeric/should_run/num002.hs b/ghc/tests/numeric/should_run/num002.hs
index b0de2bf..31ea76c 100644 (file)
--- a/ghc/tests/numeric/should_run/num002.hs
+++ b/ghc/tests/numeric/should_run/num002.hs
@@ -4,14 +4,17 @@ module Main(main) where
 
 import Numeric
 
+showSignedInt :: Integral a => a -> String
+showSignedInt x = showSigned (showInt) 0 x ""
+
 main = 
   do
    putStrLn (showInt (343023920121::Integer) [])
    putStrLn (showInt (3430239::Int) [])
    putStrLn (showInt (1212 :: Int) [])
-   putStrLn (showInt (591125662431 `div` (517::Int)) [])
+   putStrLn (showSignedInt (591125662431 `div` (517::Int)))
    -- showInt just works over naturals, wrap it up inside
    -- a use of Numeric.showSigned to show negative nums.
-   putStrLn (showSigned (showInt) 0 (-111::Int) [])
+   putStrLn (showSignedInt (-111::Int))
    putStrLn (showInt (232189458241::Integer) [])