diff options
| author | simonpj <unknown> | 2003-10-30 09:01:31 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2003-10-30 09:01:31 +0000 |
| commit | e16ebb295dad25d4889034b8d5087cb9c22c1785 (patch) | |
| tree | fe51c0b93aba8722e4e4042bd2049aa4e14d9f8d /ghc/compiler/rename | |
| parent | 8c7c30b1221025c0cffb1f14d014078b6e3055fc (diff) | |
| download | haskell-e16ebb295dad25d4889034b8d5087cb9c22c1785.tar.gz | |
[project @ 2003-10-30 09:01:31 by simonpj]
Tiny code simplification (allUses)
Diffstat (limited to 'ghc/compiler/rename')
| -rw-r--r-- | ghc/compiler/rename/RnExpr.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/rename/RnExpr.lhs b/ghc/compiler/rename/RnExpr.lhs index 866b59c46a..78d8c00765 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} %************************************************************************ |