Whitespace only
authorIan Lynagh <ian@well-typed.com>
Fri, 1 Feb 2013 14:14:59 +0000 (14:14 +0000)
committerIan Lynagh <ian@well-typed.com>
Fri, 1 Feb 2013 15:34:33 +0000 (15:34 +0000)
compiler/parser/Parser.y.pp

index c552b6a..623ae79 100644 (file)
@@ -1789,12 +1789,12 @@ maybe_stmt :: { Maybe (LStmt RdrName (LHsExpr RdrName)) }
         | {- nothing -}                 { Nothing }
 
 stmt  :: { LStmt RdrName (LHsExpr RdrName) }
-        : qual                              { $1 }
+        : qual                          { $1 }
         | 'rec' stmtlist                { LL $ mkRecStmt (unLoc $2) }
 
 qual  :: { LStmt RdrName (LHsExpr RdrName) }
     : pat '<-' exp                      { LL $ mkBindStmt $1 $3 }
-    | exp                                   { L1 $ mkBodyStmt $1 }
+    | exp                               { L1 $ mkBodyStmt $1 }
     | 'let' binds                       { LL $ LetStmt (unLoc $2) }
 
 -----------------------------------------------------------------------------