X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcRnDriver.lhs;h=4443eafef922942e6174c9e4d5e3f4cdc4e4c2da;hb=7379e82aafc7d0c1b839a13a20d52babeafed023;hp=c744c1513ab981896a564fc032b1c720ad4d5661;hpb=b9a98f56bf88c69a13b477ab8422fbd71df20019;p=ghc-hetmet.git

diff --git a/compiler/typecheck/TcRnDriver.lhs b/compiler/typecheck/TcRnDriver.lhs
index c744c15..4443eaf 100644
--- a/compiler/typecheck/TcRnDriver.lhs
+++ b/compiler/typecheck/TcRnDriver.lhs
@@ -320,8 +320,8 @@ tcRnExtCore hsc_env (HsExtCore this_mod decls src_binds)
 
 	mod_guts = ModGuts {	mg_module    = this_mod,
 				mg_boot	     = False,
-				mg_usages    = [],		-- ToDo: compute usage
-				mg_dir_imps  = [],		-- ??
+				mg_used_names = emptyNameSet, -- ToDo: compute usage
+				mg_dir_imps  = emptyModuleEnv, -- ??
 				mg_deps      = noDependencies,	-- ??
 				mg_exports   = my_exports,
 				mg_types     = final_type_env,