From 49f39f6d5c8a70084d01aea96dbfb95306aa672a Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Wed, 4 Mar 1998 10:16:05 +0000
Subject: [PATCH] [project @ 1998-03-04 10:16:05 by sof] addAvailEnv: restrict
previous change to not redo duplicate checks.
---
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 127eef7bb93c..25d28e0173f0 100644
--- a/ghc/compiler/rename/RnNames.lhs
+++ b/ghc/compiler/rename/RnNames.lhs
@@ -419,10 +419,11 @@ addAvailEnv warn_dups ie env avail
occ_avail = nameOccName (availName avail)
occ_ie = ieOcc ie
key
- | occ_ie == occ_avail = occ_avail
- | otherwise = occ_ie
+ | not warn_dups || occ_ie == occ_avail = occ_avail
+ | otherwise = occ_ie
-- export item is a class method, use export occ name instead.
-
+ -- (this is only needed to get more precise warnings about
+ -- duplicates.)
elt = (ie,avail,reports_on)
reports_on
--
GitLab