From 7cd31df2bb2abc7c351b73721cff4d9fbc1b6e75 Mon Sep 17 00:00:00 2001 From: sof Date: Mon, 9 Feb 1998 13:00:33 +0000 Subject: [PATCH] [project @ 1998-02-09 13:00:33 by sof] checkForModuleExportDups: no need for irrefutable pats --- ghc/compiler/rename/RnNames.lhs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/ghc/compiler/rename/RnNames.lhs b/ghc/compiler/rename/RnNames.lhs index f69ebb3..9ffa8e2 100644 --- a/ghc/compiler/rename/RnNames.lhs +++ b/ghc/compiler/rename/RnNames.lhs @@ -414,7 +414,8 @@ addAvailEnv warn_dups ie env avail | otherwise = Nothing addListToAvailEnv :: AvailEnv -> RdrNameIE -> [AvailInfo] -> RnM s d AvailEnv -addListToAvailEnv env ie items = foldlRn (addAvailEnv False ie) env items +addListToAvailEnv env ie items + = foldlRn (addAvailEnv False{-don't warn about dups-} ie) env items bad_avail (ie1,avail1,r1) (ie2,avail2,r2) = availName avail1 /= availName avail2 -- Same OccName, different Name @@ -553,8 +554,8 @@ checkForModuleExportDups ls where (ls_no_modules,modules) = foldr split_mods ([],[]) ls - split_mods i@(IEModuleContents _) ~(no_ms,ms) = (no_ms,i:ms) - split_mods i ~(no_ms,ms) = (i:no_ms,ms) + split_mods i@(IEModuleContents _) (no_ms,ms) = (no_ms,i:ms) + split_mods i (no_ms,ms) = (i:no_ms,ms) (no_module_dups, dups) = removeDups cmp_mods modules -- 1.7.10.4