More on monad-comp; an intermediate state, so don't pull

[ghc-hetmet.git] / compiler / parser / Parser.y.pp

diff --git a/compiler/parser/Parser.y.pp b/compiler/parser/Parser.y.pp
index c42ea0c..aa20ea6 100644 (file)
--- a/compiler/parser/Parser.y.pp
+++ b/compiler/parser/Parser.y.pp
@@ -1602,7 +1602,7 @@ apats  :: { [LPat RdrName] }
 -- Statement sequences
 
 stmtlist :: { Located [LStmt RdrName] }
-       : '{'           stmts '}'       { LL (mkDoStmts (unLoc $2)) }
+       : '{'           stmts '}'       { LL (unLoc $2) }
        |     vocurly   stmts close     { $2 }
 
 --     do { ;; s ; s ; ; s ;; }