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

diff --git a/compiler/rename/RnSource.lhs b/compiler/rename/RnSource.lhs
index 670cfc8..993db64 100644
--- a/compiler/rename/RnSource.lhs
+++ b/compiler/rename/RnSource.lhs
@@ -114,6 +114,10 @@ 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 ;
+
 	rn_docs <- mapM rnDocEntity docs ;
 
 	let {