From 3a93d8c334ccdfdf6c9a0f0d87ce0ac7fb1c6fe1 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Sun, 18 May 1997 04:16:31 +0000
Subject: [PATCH] [project @ 1997-05-18 04:16:31 by sof] Define and export
 readRational__ (hsc reader needs it)

---
 ghc/lib/ghc/PrelRead.lhs |    6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

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
-- 
1.7.10.4