X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FDsExpr.lhs;h=1478d680a98271f1064df629c42f8e70203d51e5;hb=44f98be5b3bc7aaf2c5961667b16ee8eca3e67c1;hp=49329ab8c9c09dc19a343c22d2004ef8e95906fb;hpb=5c96b286de5f32dfaff1fa81712a3dee3d5e6329;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/DsExpr.lhs b/ghc/compiler/deSugar/DsExpr.lhs
index 49329ab..1478d68 100644
--- a/ghc/compiler/deSugar/DsExpr.lhs
+++ b/ghc/compiler/deSugar/DsExpr.lhs
@@ -266,7 +266,7 @@ dsExpr expr@(HsCase discrim matches src_loc)
     returnDs ( mkCoLetAny (NonRec discrim_var core_discrim) matching_code )
 
 dsExpr (HsLet binds expr)
-  = dsBinds Nothing binds   `thenDs` \ core_binds ->
+  = dsBinds False binds     `thenDs` \ core_binds ->
     dsExpr expr		    `thenDs` \ core_expr ->
     returnDs ( mkCoLetsAny core_binds core_expr )
 
@@ -654,7 +654,7 @@ dsDo do_or_lc stmts return_id then_id zero_id result_ty
 				   VarArg (mkValLam [ignored_result_id] rest)]
     
 	go (LetStmt binds : stmts )
-	  = dsBinds Nothing binds `thenDs` \ binds2 ->
+	  = dsBinds False binds   `thenDs` \ binds2 ->
 	    go stmts 		  `thenDs` \ rest   ->
 	    returnDs (mkCoLetsAny binds2 rest)