projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2000-11-16 14:43:05 by simonpj]
[ghc-hetmet.git]
/
ghc
/
compiler
/
main
/
MkIface.lhs
diff --git
a/ghc/compiler/main/MkIface.lhs
b/ghc/compiler/main/MkIface.lhs
index
9ff18cb
..
3a6402a
100644
(file)
--- a/
ghc/compiler/main/MkIface.lhs
+++ b/
ghc/compiler/main/MkIface.lhs
@@
-103,7
+103,7
@@
mkModDetails type_env dfun_ids tidy_binds stg_ids orphan_rules
-- a) the orphan rules
-- b) rules embedded in the top-level Ids
rule_dcls | opt_OmitInterfacePragmas = []
-- a) the orphan rules
-- b) rules embedded in the top-level Ids
rule_dcls | opt_OmitInterfacePragmas = []
- | otherwise = getRules orphan_rules tidy_binds (mkVarSet final_ids)
+ | otherwise = getRules orphan_rules tidy_binds (mkVarSet final_ids)
orphan_rule_ids = unionVarSets [ ruleSomeFreeVars interestingId rule
| (_, rule) <- orphan_rules]
orphan_rule_ids = unionVarSets [ ruleSomeFreeVars interestingId rule
| (_, rule) <- orphan_rules]