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=1925dac46e18cd3f7a19ddcfe7a6edec4290bb05;hp=225c164472ecc1e6efb8569b031f6a53da80cb64;hb=d33c0b24a0306cc57161b7ed7ff2510d0b017b11;hpb=7739158ff9d983f80cb269f3c7cb38108e72e8ec

diff --git a/compiler/parser/ParserCore.y b/compiler/parser/ParserCore.y
index 225c164..1925dac 100644
--- a/compiler/parser/ParserCore.y
+++ b/compiler/parser/ParserCore.y
@@ -200,12 +200,12 @@ let_bind :: { IfaceBinding }
 	|  vdef                 { let (b,r) = $1
 				  in IfaceNonRec b r }
 
-vdefs1	:: { [(IfaceIdBndr, IfaceExpr)] }
+vdefs1	:: { [(IfaceLetBndr, IfaceExpr)] }
 	: vdef  	        { [$1] }
 	| vdef ';' vdefs1       { $1:$3 }
 
-vdef	:: { (IfaceIdBndr, IfaceExpr) }
-	: fs_var_occ '::' ty '=' exp { (($1, $3), $5) }
+vdef	:: { (IfaceLetBndr, IfaceExpr) }
+	: fs_var_occ '::' ty '=' exp { (IfLetBndr $1 $3 NoInfo, $5) }
         | '%local' vdef              { $2 }
 
   -- NB: qd_occ includes data constructors, because