X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Frename%2FRnExpr.lhs;h=dcb8b97a43c11fa3c41a5ba6af2dc1f45d887935;hp=df8ccf988f847aa75d95e2f1347f88e2b4a96857;hb=5f8d93baa07271687825458e01c187081bcb1ddc;hpb=6b1a6f305f801a1e2a90c3b513e76e7c2d221499

diff --git a/compiler/rename/RnExpr.lhs b/compiler/rename/RnExpr.lhs
index df8ccf9..dcb8b97 100644
--- a/compiler/rename/RnExpr.lhs
+++ b/compiler/rename/RnExpr.lhs
@@ -1002,7 +1002,7 @@ rn_rec_stmt _ (L _ (LetStmt binds@(HsIPBinds _))) _
 rn_rec_stmt all_bndrs (L loc (LetStmt (HsValBinds binds'))) _ = do 
   (binds', du_binds) <- 
       -- fixities and unused are handled above in rn_rec_stmts_and_then
-      rnValBindsRHS all_bndrs binds'
+      rnValBindsRHS (mkNameSet all_bndrs) binds'
   returnM [(duDefs du_binds, duUses du_binds, 
 	    emptyNameSet, L loc (LetStmt (HsValBinds binds')))]