From dd0a2fe88071b516589a34676286e8266accb670 Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Fri, 6 Oct 2006 14:02:50 +0000
Subject: [PATCH] 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.)
---
 compiler/rename/RnSource.lhs |    4 ++++
 1 file changed, 4 insertions(+)

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 {
-- 
1.7.10.4