Bale out before renamer errors are duplicated

[ghc-hetmet.git] / compiler / rename / RnSource.lhs

diff --git a/compiler/rename/RnSource.lhs b/compiler/rename/RnSource.lhs
index 670cfc8..993db64 100644 (file)
--- 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 {