[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 (file)
--- 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}
 
 %************************************************************************