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

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 ;; }