From: simonpj <unknown>
Date: Thu, 30 Oct 2003 09:01:31 +0000 (+0000)
Subject: [project @ 2003-10-30 09:01:31 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~310
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e16ebb295dad25d4889034b8d5087cb9c22c1785;p=ghc-hetmet.git

[project @ 2003-10-30 09:01:31 by simonpj]
Tiny code simplification (allUses)
---

diff --git a/ghc/compiler/rename/RnExpr.lhs b/ghc/compiler/rename/RnExpr.lhs
index 866b59c..78d8c00 100644
--- a/ghc/compiler/rename/RnExpr.lhs
+++ b/ghc/compiler/rename/RnExpr.lhs
@@ -649,7 +649,7 @@ rnBracket (DecBr group)
     let 
 	dus = tcg_dus tcg_env 
     in
-    returnM (DecBr group', duUses dus `minusNameSet` duDefs dus)
+    returnM (DecBr group', allUses dus)
 \end{code}
 
 %************************************************************************