projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2004-01-05 12:11:42 by simonpj]
[ghc-hetmet.git]
/
ghc
/
compiler
/
deSugar
/
Desugar.lhs
diff --git
a/ghc/compiler/deSugar/Desugar.lhs
b/ghc/compiler/deSugar/Desugar.lhs
index
ac50a01
..
2deb343
100644
(file)
--- a/
ghc/compiler/deSugar/Desugar.lhs
+++ b/
ghc/compiler/deSugar/Desugar.lhs
@@
-233,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
-- 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
ppr_ds_rules [] = empty
ppr_ds_rules rules