Fix Trac #2205, which I introduced recently

[ghc-hetmet.git] / compiler / typecheck / TcRnDriver.lhs

diff --git a/compiler/typecheck/TcRnDriver.lhs b/compiler/typecheck/TcRnDriver.lhs
index 1b09923..7d023dd 100644 (file)
--- a/compiler/typecheck/TcRnDriver.lhs
+++ b/compiler/typecheck/TcRnDriver.lhs
@@ -292,7 +292,7 @@ tcRnExtCore hsc_env (HsExtCore this_mod decls src_binds)
        --               this tcg_env at all)
    avails  <- getLocalNonValBinders (mkFakeGroup ldecls) ;
    tc_envs <- extendGlobalRdrEnvRn False avails 
-                                  emptyOccEnv {- no fixity decls -} ;
+                                  emptyFsEnv {- no fixity decls -} ;
 
    setEnvs tc_envs $ do {