diff options
Diffstat (limited to 'libraries/base/tests/Numeric/num006.hs')
| -rw-r--r-- | libraries/base/tests/Numeric/num006.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libraries/base/tests/Numeric/num006.hs b/libraries/base/tests/Numeric/num006.hs index f421ed72a2..65347dd8aa 100644 --- a/libraries/base/tests/Numeric/num006.hs +++ b/libraries/base/tests/Numeric/num006.hs @@ -10,13 +10,13 @@ showDec = showInt {- --showBinary :: Integral a => a -> ShowS -showBinary n r = +showBinary n r = showString "0b" $ showIntAtBase 2 (toChr) n r where toChr d = chr (ord '0' + fromIntegral d) -} -main = +main = do print (map (\ x -> showOct x []) [1..32]) print (map (\ x -> showDec x []) [1..32]) |