[project @ 2002-09-10 10:50:28 by malcolm]

[ghc-base.git] / GHC / Read.lhs

diff --git a/GHC/Read.lhs b/GHC/Read.lhs
index 92b9425..68d0521 100644 (file)
--- a/GHC/Read.lhs
+++ b/GHC/Read.lhs
@@ -38,7 +38,7 @@ module GHC.Read
   , parens     -- :: ReadPrec a -> ReadPrec a
   , list       -- :: ReadPrec a -> ReadPrec [a]
   , choose     -- :: [(String, ReadPrec a)] -> ReadPrec a
-  , readListDefault, readListPrecDefault,
+  , readListDefault, readListPrecDefault
 
   -- Temporary
   , readList__
@@ -73,10 +73,8 @@ import GHC.List
 import GHC.Show                -- isAlpha etc
 import GHC.Base
 import GHC.Arr
-
-ratioPrec = 7  -- Precedence of ':%' constructor
-appPrec   = 10 -- Precedence of applictaion
 \end{code}
+
 -------------------------------------------------------
        TEMPORARY UNTIL I DO DERIVED READ