From 64c9f1236e318e7f66104d7aed82e6a498d63f2e Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 3 May 2002 11:10:47 +0000
Subject: [PATCH] [project @ 2002-05-03 11:10:47 by simonmar] Eliminate a
 duplicate binding

---
 ghc/compiler/rename/Rename.lhs |    4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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,
-- 
1.7.10.4