From 3318172ea2185a0b89bef1c0b8ed789dd205a81c Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Tue, 14 Oct 2003 15:03:04 +0000
Subject: [PATCH] [project @ 2003-10-14 15:03:04 by simonpj] ..and make RnExpr
 match RnSource too

---
 ghc/compiler/rename/RnExpr.lhs |    6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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}
 
-- 
1.7.10.4