From: simonmar <unknown>
Date: Fri, 3 May 2002 11:10:47 +0000 (+0000)
Subject: [project @ 2002-05-03 11:10:47 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~2059
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=64c9f1236e318e7f66104d7aed82e6a498d63f2e;p=ghc-hetmet.git

[project @ 2002-05-03 11:10:47 by simonmar]
Eliminate a duplicate binding
---

diff --git a/ghc/compiler/rename/Rename.lhs b/ghc/compiler/rename/Rename.lhs
index 9699e5e..5c18868 100644
--- a/ghc/compiler/rename/Rename.lhs
+++ b/ghc/compiler/rename/Rename.lhs
@@ -509,9 +509,7 @@ rename ghci_mode this_module
 	-- introduced by the type checker.
 	dont_discard :: Name -> Bool
 	dont_discard | ghci_mode == Interactive = isExternalName
-		     | otherwise 		= (`elemNameSet` exported_names)
-
-	exported_names    = availsToNameSet export_avails
+		     | otherwise 		= (`elemNameSet` export_fvs)
 
 	mod_iface = ModIface {	mi_module   = this_module,
 			        mi_package  = opt_InPackage,