X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Numeric.hs;h=cef75f45fc83d652b068726acd37c96715a00413;hb=1e1907fb42b74de4feb5ac8af10846db31e56edb;hp=2db3d368a00b86555c72dc3eb24f3120682a48a9;hpb=260e7f2ed9a43c6ecf5a556d77817f39ed2893ab;p=ghc-base.git

diff --git a/Numeric.hs b/Numeric.hs
index 2db3d36..cef75f4 100644
--- a/Numeric.hs
+++ b/Numeric.hs
@@ -8,7 +8,7 @@
 -- Stability   :  experimental
 -- Portability :  portable
 --
--- $Id: Numeric.hs,v 1.2 2001/08/02 13:30:36 simonmar Exp $
+-- $Id: Numeric.hs,v 1.3 2002/01/02 14:40:09 simonmar Exp $
 --
 -- Odds and ends, mostly functions for reading and showing
 -- RealFloat-like kind of values.
@@ -28,11 +28,9 @@ module Numeric (
 	readOct,          -- :: (Integral a) => ReadS a
 	readHex,          -- :: (Integral a) => ReadS a
 
-{- -- left out for now, as we can only export the H98 interface
         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
@@ -44,14 +42,12 @@ module Numeric (
 	floatToDigits,    -- :: (RealFloat a) => Integer -> a -> ([Int], Int)
 	lexDigits,        -- :: ReadS String
 
-{- -- left out for now, as we can only export the H98 interface
           -- general purpose number->string converter.
         showIntAtBase,    -- :: Integral a 
 			  -- => a		-- base
 			  -- -> (a -> Char)      -- digit to char
 			  -- -> a                -- number to show.
 			  -- -> ShowS
--}
 	) where
 
 import Prelude		-- For dependencies