X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Numeric.hs;fp=Numeric.hs;h=55102a22a78231e785b0bb53bd41fdfc1975620a;hb=5ecc33683bd97852f8f4e8440b53ec02d971c1d2;hp=2fb214d949738cbaff87cba2eecbdd6cb88621e9;hpb=6e9831fee1a4f0523bccf3ff8873fc9677f871d6;p=ghc-base.git

diff --git a/Numeric.hs b/Numeric.hs
index 2fb214d..55102a2 100644
--- a/Numeric.hs
+++ b/Numeric.hs
@@ -62,11 +62,8 @@ import Array
 #endif
 
 
--- *********************************************************
--- *							   *
--- \subsection{Reading}
--- *							   *
--- *********************************************************
+-- -----------------------------------------------------------------------------
+-- Reading
 
 readInt :: Num a => a -> (Char -> Bool) -> (Char -> Int) -> ReadS a
 readInt base isDigit valDigit = readP_to_S (L.readIntP base isDigit valDigit)
@@ -102,13 +99,8 @@ readSigned readPos = readParen False read'
 			       return (n,s)
 
 
--- *********************************************************
--- *							   *
--- \subsection{Showing}
--- *							   *
--- *********************************************************
-
-
+-- -----------------------------------------------------------------------------
+-- Showing
 
 #ifdef __GLASGOW_HASKELL__
 showInt :: Integral a => a -> ShowS