diff options
Diffstat (limited to 'testsuite/tests/ghc-regress/lib/Numeric/num006.hs')
-rw-r--r-- | testsuite/tests/ghc-regress/lib/Numeric/num006.hs | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/testsuite/tests/ghc-regress/lib/Numeric/num006.hs b/testsuite/tests/ghc-regress/lib/Numeric/num006.hs deleted file mode 100644 index f421ed72a2..0000000000 --- a/testsuite/tests/ghc-regress/lib/Numeric/num006.hs +++ /dev/null @@ -1,28 +0,0 @@ --- Exercising the showing of positive numbers at various bases. --- -module Main(main) where - -import Numeric -import Data.Char - ---showDec :: Integral a => a -> ShowS -showDec = showInt - -{- ---showBinary :: Integral a => a -> ShowS -showBinary n r = - showString "0b" $ - showIntAtBase 2 (toChr) n r - where toChr d = chr (ord '0' + fromIntegral d) --} - -main = - do - print (map (\ x -> showOct x []) [1..32]) - print (map (\ x -> showDec x []) [1..32]) - print (map (\ x -> showHex x []) [1..32]) --- print (map (\ x -> showBinary x []) [1..32]) - putStrLn (showOct (241324784::Int) []) - putStrLn (showDec (241324784::Int) []) - putStrLn (showHex (241324784::Int) []) ---- putStrLn (showBinary (241324784::Int) []) |