X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypecheck%2FTcRnDriver.lhs;h=7fbbc32cb3891a7438a69d2d1a4eb15f7a2f8b65;hb=1f5e55804b97d2b9a77207d568d602ba88d8855d;hp=92526ee07852cfae82c5487ba4b15f761388aed7;hpb=599e42c2948811e71607c5167d9345ddd74d83c3;p=ghc-hetmet.git

diff --git a/ghc/compiler/typecheck/TcRnDriver.lhs b/ghc/compiler/typecheck/TcRnDriver.lhs
index 92526ee..7fbbc32 100644
--- a/ghc/compiler/typecheck/TcRnDriver.lhs
+++ b/ghc/compiler/typecheck/TcRnDriver.lhs
@@ -688,6 +688,7 @@ rnTopSrcDecls group
 				 tcg_imports = imports `plusImportAvails` tcg_imports gbl }) 
 		  $ do {
 
+	traceRn (ptext SLIT("rnTopSrcDecls") <+> ppr rdr_env) ;
 	failIfErrsM ;	-- No point in continuing if (say) we have duplicate declarations
 
 		-- Rename the source decls