X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fparser%2FParserCore.y;fp=compiler%2Fparser%2FParserCore.y;h=3f2b32a8b3e614ac0783a03ff24b89c44fa0a31e;hp=8bf94539fa42f00aacd004d7b7750fc2013fa68d;hb=1b381af863d64aaa0a4dd9c816170c58e6131a9e;hpb=c25b934ef544fa3eba0a9f9da41b363c470156cb

diff --git a/compiler/parser/ParserCore.y b/compiler/parser/ParserCore.y
index 8bf9453..3f2b32a 100644
--- a/compiler/parser/ParserCore.y
+++ b/compiler/parser/ParserCore.y
@@ -269,7 +269,7 @@ exp	:: { IfaceExpr }
 	| '%let' let_bind '%in' exp   { IfaceLet $2 $4 }
 -- gaw 2004
 	| '%case' '(' ty ')' aexp '%of' id_bndr
-	  '{' alts1 '}'		      { IfaceCase $5 (fst $7) $3 $9 }
+	  '{' alts1 '}'		      { IfaceCase $5 (fst $7) $9 }
         | '%cast' aexp aty { IfaceCast $2 $3 }
 -- No InlineMe any more
 -- 	| '%note' STRING exp