From: simonmar <unknown>
Date: Wed, 16 Jul 2003 10:55:20 +0000 (+0000)
Subject: [project @ 2003-07-16 10:55:20 by simonmar]
X-Git-Tag: nhc98-1-18-release~590
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2bdac8cfa0c4c01ce64db939ff2a77f16c57dfb5;p=ghc-base.git

[project @ 2003-07-16 10:55:20 by simonmar]
- Make showHex and showOct match the report (don't add leading "Ox" or
  "Oo").

- Remove showBin, which isn't specified by the report.
---

diff --git a/Numeric.hs b/Numeric.hs
index 5603ae6..b21a983 100644
--- a/Numeric.hs
+++ b/Numeric.hs
@@ -30,7 +30,6 @@ module Numeric (
         showIntAtBase,    -- :: Integral a => a -> (a -> Char) -> a -> ShowS
         showHex,          -- :: Integral a => a -> ShowS
         showOct,          -- :: Integral a => a -> ShowS
-        showBin,          -- :: Integral a => a -> ShowS
 
 	showEFloat,       -- :: (RealFloat a) => Maybe Int -> a -> ShowS
 	showFFloat,       -- :: (RealFloat a) => Maybe Int -> a -> ShowS
@@ -155,23 +154,6 @@ showIntAtBase base toChr n r
     if n' == 0 then r' else showIntAtBase base toChr n' r'
     }
 
-showHex :: Integral a => a -> ShowS
-showHex n r = 
- showString "0x" $
- showIntAtBase 16 (toChrHex) n r
- where  
-  toChrHex d
-    | d < 10    = chr (ord '0' + fromIntegral d)
-    | otherwise = chr (ord 'a' + fromIntegral (d - 10))
-
-showOct :: Integral a => a -> ShowS
-showOct n r = 
- showString "0o" $
- showIntAtBase 8 (toChrOct) n r
- where toChrOct d = chr (ord '0' + fromIntegral d)
-
-showBin :: Integral a => a -> ShowS
-showBin n r = 
- showString "0b" $
- showIntAtBase 2 (toChrOct) n r
- where toChrOct d = chr (ord '0' + fromIntegral d)
+showHex, showOct :: Integral a => a -> ShowS
+showHex = showIntAtBase 16 (intToDigit.fromIntegral)
+showOct = showIntAtBase 8  (intToDigit.fromIntegral)