From: sof <unknown>
Date: Sun, 18 May 1997 04:16:31 +0000 (+0000)
Subject: [project @ 1997-05-18 04:16:31 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~676
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=3a93d8c334ccdfdf6c9a0f0d87ce0ac7fb1c6fe1;p=ghc-hetmet.git

[project @ 1997-05-18 04:16:31 by sof]
Define and export readRational__ (hsc reader needs it)
---

diff --git a/ghc/lib/ghc/PrelRead.lhs b/ghc/lib/ghc/PrelRead.lhs
index f1f2b0b..f08cc88 100644
--- a/ghc/lib/ghc/PrelRead.lhs
+++ b/ghc/lib/ghc/PrelRead.lhs
@@ -2,7 +2,7 @@
 % (c) The AQUA Project, Glasgow University, 1994-1996
 %
 
-\section[PrelRead]{Module @Prelread@}
+\section[PrelRead]{Module @PrelRead@}
 
 The @Read@ class and many of its instances.
 
@@ -309,8 +309,6 @@ readRational r
 		    lexDotDigits ('.':s) = lex0Digits s
 		    lexDotDigits s       = [("",s)]
 
-{- ToDo: remove completely
-
 readRational__ :: String -> Rational -- we export this one (non-std)
 				    -- NB: *does* handle a leading "-"
 readRational__ top_s
@@ -323,7 +321,7 @@ readRational__ top_s
 	  [x] -> x
 	  []  -> error ("readRational__: no parse:"        ++ top_s)
 	  _   -> error ("readRational__: ambiguous parse:" ++ top_s)
--}
+
 -- The number of decimal digits m below is chosen to guarantee 
 -- read (show x) == x.  See
 --	Matula, D. W.  A formalization of floating-point numeric base