Commit 8760cf35 authored by ian@well-typed.com's avatar ian@well-typed.com
Browse files

Whitespace only

parent dc7549a1
......@@ -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) }
-----------------------------------------------------------------------------
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment