X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FDesugar.lhs;h=2deb3433b34d9f648b94e5a4b8e3401a1e741809;hb=3721dd37a707d2aacb5cac814410a78096e28a2c;hp=879058e0e6b4032a41db5777ed3e2da367a81e5f;hpb=ca0b7c66f2e8e50f15a03c406408d9e86455f8eb;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/Desugar.lhs b/ghc/compiler/deSugar/Desugar.lhs
index 879058e..2deb343 100644
--- a/ghc/compiler/deSugar/Desugar.lhs
+++ b/ghc/compiler/deSugar/Desugar.lhs
@@ -39,7 +39,6 @@ import CoreFVs		( ruleRhsFreeVars )
 import ErrUtils		( doIfSet, dumpIfSet_dyn, pprBagOfWarnings, 
 			  mkWarnMsg, errorsFound, WarnMsg )
 import Outputable
-import qualified Pretty
 import UniqSupply	( mkSplitUniqSupply )
 import SrcLoc		( Located(..), SrcSpan, unLoc )
 import DATA_IOREF	( readIORef )
@@ -234,9 +233,7 @@ addExportFlags ghci_mode exports keep_alive bndrs prs rules
 	-- introduced by the type checker.
     is_exported :: Name -> Bool
     is_exported | ghci_mode == Interactive = isExternalName
-		| otherwise 		   = (`elemNameSet` export_fvs)
-
-    export_fvs = availsToNameSet exports
+		| otherwise 		   = (`elemNameSet` exports)
 
 ppr_ds_rules [] = empty
 ppr_ds_rules rules