[project @ 2005-10-26 12:35:12 by simonpj]

[ghc-hetmet.git] / ghc / compiler / rename / RnExpr.lhs

diff --git a/ghc/compiler/rename/RnExpr.lhs b/ghc/compiler/rename/RnExpr.lhs
index 6c8a18c..59f7076 100644 (file)
--- a/ghc/compiler/rename/RnExpr.lhs
+++ b/ghc/compiler/rename/RnExpr.lhs
@@ -554,7 +554,7 @@ rnBracket (DecBr group)
        -- By using a pretend module, thFAKE, we keep them safely out of the way.
 
        ; names    <- getLocalDeclBinders gbl_env1 group
-       ; rdr_env' <- extendRdrEnvRn thFAKE emptyGlobalRdrEnv names
+       ; rdr_env' <- extendRdrEnvRn emptyGlobalRdrEnv names
        -- Furthermore, the names in the bracket shouldn't conflict with
        -- existing top-level names E.g.
        --      foo = 1