X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnExpr.lhs;h=59f70767fc23f7e5e68f2f90fa5d56a55b857a43;hb=07806d2b66986825ff7c5cd51240f920d91ee2f9;hp=6c8a18c9507cae6e506cb6d72e3a9a772caf0fbd;hpb=015aa9723a1e72d7bfe0e82599454bee59f4d472;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/RnExpr.lhs b/ghc/compiler/rename/RnExpr.lhs
index 6c8a18c..59f7076 100644
--- 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