X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fparser%2FParser.y.pp;h=aa20ea6799fab68540059680f7d7714e8e0fb3ab;hb=7f021f25e4c1b8546e346501ae34f1126755b739;hp=c42ea0c8647038d7919186248c0e72cbe182fd36;hpb=4ac2bb39dffb4b825ece73b349ff0d56d79092d7;p=ghc-hetmet.git

diff --git a/compiler/parser/Parser.y.pp b/compiler/parser/Parser.y.pp
index c42ea0c..aa20ea6 100644
--- 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 ;; }