X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fparser%2FParserCore.y;h=a85d837434d64728b1f54968b2f961419ab25762;hp=225c164472ecc1e6efb8569b031f6a53da80cb64;hb=7fc749a43b4b6b85d234fa95d4928648259584f4;hpb=de777ba42eb12b6a20e548a959b23b60179d9b57

diff --git a/compiler/parser/ParserCore.y b/compiler/parser/ParserCore.y
index 225c164..a85d837 100644
--- a/compiler/parser/ParserCore.y
+++ b/compiler/parser/ParserCore.y
@@ -1,4 +1,11 @@
 {
+{-# OPTIONS -w #-}
+-- The above warning supression flag is a temporary kludge.
+-- While working on this module you are encouraged to remove it and fix
+-- any warnings in the module. See
+--     http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
+-- for details
+
 module ParserCore ( parseCore ) where
 
 import IfaceSyn
@@ -200,12 +207,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