X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FHscMain.lhs;h=986d2ce6d904238d21be30a13c2281bfe3c60fda;hp=e170f8fa31f351739aa92ccd39ec4b55d9ba1f24;hb=2c1ea2cedb1a8034b0828e24b554a35f56bb8924;hpb=10cc302badc3704ed300f7517a52ecc8304c61e9

diff --git a/compiler/main/HscMain.lhs b/compiler/main/HscMain.lhs
index e170f8f..986d2ce 100644
--- a/compiler/main/HscMain.lhs
+++ b/compiler/main/HscMain.lhs
@@ -47,7 +47,7 @@ import VarEnv		( emptyTidyEnv )
 
 import Var		( Id )
 import Module		( emptyModuleEnv, ModLocation(..) )
-import RdrName		( GlobalRdrEnv, RdrName )
+import RdrName		( GlobalRdrEnv, RdrName, emptyGlobalRdrEnv )
 import HsSyn		( HsModule, LHsBinds, HsGroup, LIE, LImportDecl )
 import SrcLoc		( Located(..) )
 import StringBuffer	( hGetStringBuffer, stringToStringBuffer )
@@ -74,6 +74,7 @@ import SimplStg		( stg2stg )
 import CodeGen		( codeGen )
 import CmmParse		( parseCmmFile )
 import CodeOutput	( codeOutput )
+import NameEnv          ( emptyNameEnv )
 
 import DynFlags
 import ErrUtils
@@ -114,7 +115,9 @@ newHscEnv dflags
 			   hsc_HPT    = emptyHomePackageTable,
 			   hsc_EPS    = eps_var,
 			   hsc_NC     = nc_var,
-			   hsc_FC     = fc_var } ) }
+			   hsc_FC     = fc_var,
+                           hsc_global_rdr_env = emptyGlobalRdrEnv,
+                           hsc_global_type_env = emptyNameEnv } ) }
 			
 
 knownKeyNames :: [Name]	-- Put here to avoid loops involving DsMeta,