X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcRnDriver.lhs;h=7d023dd70a01645218369273217ea2d91ce8f55d;hb=d566d3ce56c583a74037e545312f30881b56f12e;hp=1b099231bd64e421619afbc41e82b31fe47c7fcc;hpb=a27c5f77da8b3b3f00f9902b69a504460f234e8c;p=ghc-hetmet.git

diff --git a/compiler/typecheck/TcRnDriver.lhs b/compiler/typecheck/TcRnDriver.lhs
index 1b09923..7d023dd 100644
--- 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 {