X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Frename%2FRnSource.lhs;h=1cb80587e489aff7a0524b58cb951d4d387f914b;hb=526a19e90100eadb36185f3bd2c6ac263b7d25ad;hp=993db644bdd351d0707acaf1584db71da6219f37;hpb=dd0a2fe88071b516589a34676286e8266accb670;p=ghc-hetmet.git

diff --git a/compiler/rename/RnSource.lhs b/compiler/rename/RnSource.lhs
index 993db64..1cb8058 100644
--- a/compiler/rename/RnSource.lhs
+++ b/compiler/rename/RnSource.lhs
@@ -101,8 +101,10 @@ rnSrcDecls (HsGroup { hs_valds  = val_decls,
 		-- So we content ourselves with gathering uses only; that
 		-- means we'll only report a declaration as unused if it isn't
 		-- mentioned at all.  Ah well.
+	traceRn (text "Start rnTyClDecls") ;
 	(rn_tycl_decls,    src_fvs1)
 	   <- mapFvRn (wrapLocFstM rnTyClDecl) tycl_decls ;
+	traceRn (text "finish rnTyClDecls") ;
 	(rn_inst_decls,    src_fvs2)
 	   <- mapFvRn (wrapLocFstM rnSrcInstDecl) inst_decls ;
 	(rn_deriv_decls,    src_fvs_deriv)
@@ -118,7 +120,9 @@ rnSrcDecls (HsGroup { hs_valds  = val_decls,
 	-- the rnDocEntity stuff reports the errors again.
 	failIfErrsM ;
 
+	traceRn (text "Start rnDocEntitys") ;
 	rn_docs <- mapM rnDocEntity docs ;
+	traceRn (text "finish rnDocEntitys") ;
 
 	let {
 	   rn_group = HsGroup { hs_valds  = rn_val_decls,