From: sof <unknown>
Date: Mon, 9 Feb 1998 13:00:33 +0000 (+0000)
Subject: [project @ 1998-02-09 13:00:33 by sof]
X-Git-Tag: Approx_2487_patches~976
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7cd31df2bb2abc7c351b73721cff4d9fbc1b6e75;p=ghc-hetmet.git

[project @ 1998-02-09 13:00:33 by sof]
checkForModuleExportDups: no need for irrefutable pats
---

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