X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypecheck%2FTcRnDriver.lhs;h=e3858d05828f3c0c0bcdad027c8a7ca54ac4e735;hb=5c614bc5f79ac6134e081e71c5db97495e52e1e2;hp=6e146f400e80fb9f4c9105ca459f863f76a4916c;hpb=bb288695c5e25ff185c323f07f79d66dd81a4d0c;p=ghc-hetmet.git

diff --git a/ghc/compiler/typecheck/TcRnDriver.lhs b/ghc/compiler/typecheck/TcRnDriver.lhs
index 6e146f4..e3858d0 100644
--- a/ghc/compiler/typecheck/TcRnDriver.lhs
+++ b/ghc/compiler/typecheck/TcRnDriver.lhs
@@ -145,7 +145,7 @@ tcRnModule hsc_env pcs
    do { 	-- Deal with imports; sets tcg_rdr_env, tcg_imports
 	(rdr_env, imports) <- rnImports import_decls ;
 	updGblEnv ( \ gbl -> gbl { tcg_rdr_env = rdr_env,
-				   tcg_imports = imports }) 
+				   tcg_imports = tcg_imports gbl `plusImportAvails` imports }) 
 		     $ do {
 	traceRn (text "rn1") ;
 		-- Fail if there are any errors so far
@@ -172,7 +172,7 @@ tcRnModule hsc_env pcs
 	updGblEnv (\gbl -> gbl { tcg_deprecs = tcg_deprecs gbl `plusDeprecs` mod_deprecs })
 		  $ do {
 
-	traceRn (text "rn4") ;
+	traceRn (text "Rn4:" <+> ppr (imp_unqual (tcg_imports tcg_env))) ;
 		-- Process the export list
 	export_avails <- exportsFromAvail exports ;
 	updGblEnv (\gbl -> gbl { tcg_exports = export_avails })