From: simonpj@microsoft.com <unknown>
Date: Fri, 6 Oct 2006 14:02:50 +0000 (+0000)
Subject: Bale out before renamer errors are duplicated
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=dd0a2fe88071b516589a34676286e8266accb670

Bale out before renamer errors are duplicated

With the new Haddock patch, renamer errors can be duplicated;
so we want to bale out before doing the Haddock stuff if errors
are found.

(E.g test mod67 shows this up.)
---

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 {