From: simonpj <unknown>
Date: Tue, 14 Oct 2003 15:03:04 +0000 (+0000)
Subject: [project @ 2003-10-14 15:03:04 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~361
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=3318172ea2185a0b89bef1c0b8ed789dd205a81c;p=ghc-hetmet.git

[project @ 2003-10-14 15:03:04 by simonpj]
..and make RnExpr match RnSource too
---

diff --git a/ghc/compiler/rename/RnExpr.lhs b/ghc/compiler/rename/RnExpr.lhs
index df88100..24d3893 100644
--- a/ghc/compiler/rename/RnExpr.lhs
+++ b/ghc/compiler/rename/RnExpr.lhs
@@ -639,9 +639,11 @@ rnBracket (DecBr group)
 
     updGblEnv (\gbl -> gbl { tcg_rdr_env = rdr_env `plusGlobalRdrEnv` tcg_rdr_env gbl }) $
 
-    rnSrcDecls group	`thenM` \ (tcg_env, group', dus) ->
+    rnSrcDecls group	`thenM` \ (tcg_env, group') ->
 	-- Discard the tcg_env; it contains only extra info about fixity
-
+    let 
+	dus = tcg_dus tcg_env 
+    in
     returnM (DecBr group', duUses dus `minusNameSet` duDefs dus)
 \end{code}