X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Frename%2FRnSource.lhs;h=1cb80587e489aff7a0524b58cb951d4d387f914b;hb=36d207aa8c9cedbf58e739178971292048bd41d0;hp=670cfc809296801b31629e8afc7cbdc091d7517f;hpb=190f24892156953d73b55401d0467a6f1a88ce5d;p=ghc-hetmet.git

diff --git a/compiler/rename/RnSource.lhs b/compiler/rename/RnSource.lhs
index 670cfc8..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)
@@ -114,7 +116,13 @@ rnSrcDecls (HsGroup { hs_valds  = val_decls,
 	(rn_default_decls, src_fvs5)
 	   <- mapFvRn (wrapLocFstM rnDefaultDecl) default_decls ;
 
+	-- At this point, stop if we have found errors.  Otherwise
+	-- 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,