X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcRnDriver.lhs;h=bd4eb9b54cb2437ac6de138de085c0acf4b48200;hp=80f2da2f096d2409d154d32af489f2fbdc813517;hb=d5934bbb856aa0aa620c9b2e0fa51c90a1a5a048;hpb=f515d87a510f9cd3d416d83e95e6e0f0298f7d18

diff --git a/compiler/typecheck/TcRnDriver.lhs b/compiler/typecheck/TcRnDriver.lhs
index 80f2da2..bd4eb9b 100644
--- a/compiler/typecheck/TcRnDriver.lhs
+++ b/compiler/typecheck/TcRnDriver.lhs
@@ -200,6 +200,8 @@ tcRnModule hsc_env hsc_src save_rn_syntax
 		-- Process the export list
 	(rn_exports, exports) <- rnExports (isJust maybe_mod) export_ies ;
                  
+	traceRn (text "rn4") ;
+
 		-- Rename the Haddock documentation header 
 	rn_module_doc <- rnMbHsDoc maybe_doc ;
 
@@ -301,7 +303,8 @@ tcRnExtCore hsc_env (HsExtCore this_mod decls src_binds)
 				mg_rdr_env   = emptyGlobalRdrEnv,
 				mg_fix_env   = emptyFixityEnv,
 				mg_deprecs   = NoDeprecs,
-				mg_foreign   = NoStubs
+				mg_foreign   = NoStubs,
+				mg_hpc_info = noHpcInfo
 		    } } ;
 
    tcCoreDump mod_guts ;