projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Occurrence analyser takes account of the phase when handing RULES
[ghc-hetmet.git]
/
compiler
/
coreSyn
/
CoreSubst.lhs
diff --git
a/compiler/coreSyn/CoreSubst.lhs
b/compiler/coreSyn/CoreSubst.lhs
index
e2c07af
..
18b12a6
100644
(file)
--- a/
compiler/coreSyn/CoreSubst.lhs
+++ b/
compiler/coreSyn/CoreSubst.lhs
@@
-699,7
+699,8
@@
simpleOptPgm dflags binds rules
; return (reverse binds', substRulesForImportedIds subst' rules) }
where
; return (reverse binds', substRulesForImportedIds subst' rules) }
where
- occ_anald_binds = occurAnalysePgm binds rules
+ occ_anald_binds = occurAnalysePgm Nothing {- No rules active -}
+ rules binds
(subst', binds') = foldl do_one (emptySubst, []) occ_anald_binds
do_one (subst, binds') bind
(subst', binds') = foldl do_one (emptySubst, []) occ_anald_binds
do_one (subst, binds') bind