[project @ 2002-05-03 11:10:47 by simonmar]

[ghc-hetmet.git] / ghc / compiler / rename / Rename.lhs

diff --git a/ghc/compiler/rename/Rename.lhs b/ghc/compiler/rename/Rename.lhs
index 9699e5e..5c18868 100644 (file)
--- 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,