X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Numeric.hs;h=9a2b6cca2f9dddf4a3d9cfeec7e368061244ea81;hb=7de50399a42ee49b0473b7b6eea2b44a2f941a12;hp=cef75f45fc83d652b068726acd37c96715a00413;hpb=2a9bec92edcc9257e83b2e0f8a0ae56d5f4697bb;p=haskell-directory.git

diff --git a/Numeric.hs b/Numeric.hs
index cef75f4..9a2b6cc 100644
--- a/Numeric.hs
+++ b/Numeric.hs
@@ -1,14 +1,14 @@
 -----------------------------------------------------------------------------
 -- 
 -- Module      :  Numeric
--- Copyright   :  (c) The University of Glasgow 2001
+-- Copyright   :  (c) The University of Glasgow 2002
 -- License     :  BSD-style (see the file libraries/core/LICENSE)
 -- 
 -- Maintainer  :  libraries@haskell.org
--- Stability   :  experimental
+-- Stability   :  provisional
 -- Portability :  portable
 --
--- $Id: Numeric.hs,v 1.3 2002/01/02 14:40:09 simonmar Exp $
+-- $Id: Numeric.hs,v 1.4 2002/02/05 17:32:24 simonmar Exp $
 --
 -- Odds and ends, mostly functions for reading and showing
 -- RealFloat-like kind of values.
@@ -20,34 +20,28 @@ module Numeric (
         fromRat,          -- :: (RealFloat a) => Rational -> a
 	showSigned,       -- :: (Real a) => (a -> ShowS) -> Int -> a -> ShowS
 	readSigned,       -- :: (Real a) => ReadS a -> ReadS a
-	showInt,          -- :: Integral a => a -> ShowS
+
 	readInt,          -- :: (Integral a) => a -> (Char -> Bool)
 			  --         -> (Char -> Int) -> ReadS a
-	
 	readDec,          -- :: (Integral a) => ReadS a
 	readOct,          -- :: (Integral a) => ReadS a
 	readHex,          -- :: (Integral a) => ReadS a
 
+	showInt,          -- :: Integral a => a -> ShowS
+        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
 	showGFloat,       -- :: (RealFloat a) => Maybe Int -> a -> ShowS
 	showFloat,        -- :: (RealFloat a) => a -> ShowS
 	readFloat,        -- :: (RealFloat a) => ReadS a
 	
-	 
 	floatToDigits,    -- :: (RealFloat a) => Integer -> a -> ([Int], Int)
 	lexDigits,        -- :: ReadS String
 
-          -- 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