[project @ 2002-09-26 08:44:48 by simonpj]

Bale out a little earlier on renamer errors

diff --git a/ghc/compiler/rename/RnSource.lhs b/ghc/compiler/rename/RnSource.lhs
index a368122..a56b099 100644 (file)
--- a/ghc/compiler/rename/RnSource.lhs
+++ b/ghc/compiler/rename/RnSource.lhs
@@ -99,6 +99,8 @@ rnSrcDecls decls
        updGblEnv (\gbl -> gbl { tcg_fix_env = fix_env })
                  $ do {
 
+       failIfErrsM ;   -- No point in continuing if (say) we have duplicate declarations
+
                -- Rename remaining declarations
        (rn_src_decls, src_fvs) <- rn_src_decls decls ;