diff options
Diffstat (limited to 'compiler/rename/RnSource.lhs')
| -rw-r--r-- | compiler/rename/RnSource.lhs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/compiler/rename/RnSource.lhs b/compiler/rename/RnSource.lhs index 670cfc8092..993db644bd 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 { |