X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FRead.lhs;h=ad875c0eaf005b8797cee9c22a32169aabcc62c5;hb=be53fabc231ad10e9bc031da3753a24c3fd46f7f;hp=68d05213ccfdf7ebe061bc6e3cdcb8564793c8aa;hpb=4aa9cab4d33943122d36ac88d47bbe104e97f137;p=ghc-base.git

diff --git a/GHC/Read.lhs b/GHC/Read.lhs
index 68d0521..ad875c0 100644
--- a/GHC/Read.lhs
+++ b/GHC/Read.lhs
@@ -326,14 +326,13 @@ parenthesis-like objects such as (...) and [...] can be an argument to
 instance Read a => Read (Maybe a) where
   readPrec =
     parens
-    ( prec appPrec
-      ( do L.Ident "Nothing" <- lexP
-           return Nothing
-       +++
-        do L.Ident "Just" <- lexP
-           x            <- step readPrec
-           return (Just x)
-      )
+    (do L.Ident "Nothing" <- lexP
+        return Nothing
+     +++
+     prec appPrec (
+	do L.Ident "Just" <- lexP
+           x              <- step readPrec
+           return (Just x))
     )
 
   readListPrec = readListPrecDefault