X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnNames.lhs;h=4b17019dcaf7925d9504f15c8181e1646ad35029;hb=e4f0e4adfb32f0f562dc2dda9fc2c1c7fe71b202;hp=877974c87f48afe41fb64e0a121e56880d08290f;hpb=9bedea20f62a1da832c69833c39dd1d15e6ee9a3;p=ghc-hetmet.git diff --git a/ghc/compiler/rename/RnNames.lhs b/ghc/compiler/rename/RnNames.lhs index 877974c..4b17019 100644 --- a/ghc/compiler/rename/RnNames.lhs +++ b/ghc/compiler/rename/RnNames.lhs @@ -126,7 +126,7 @@ getGlobalNames (HsModule this_mod _ exports imports decls _ mod_loc) -- to compile A, and of course that doesn't include B.f. That's -- why we wait till after the plusEnv stuff to do the early-exit. - -- Check For eacly exit + -- Check For early exit checkErrsRn `thenRn` \ no_errs_so_far -> if not no_errs_so_far then -- Found errors already, so exit now