projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix Trac #2486: restore the specialiser to a working state
[ghc-hetmet.git]
/
compiler
/
specialise
/
Specialise.lhs
diff --git
a/compiler/specialise/Specialise.lhs
b/compiler/specialise/Specialise.lhs
index
055c858
..
41bdfd7
100644
(file)
--- a/
compiler/specialise/Specialise.lhs
+++ b/
compiler/specialise/Specialise.lhs
@@
-1191,10
+1191,10
@@
filterCalls :: VarSet -> CallDetails -> CallDetails
-- Remove any calls that mention the variables
filterCalls bs calls
= mapFM (\_ cs -> filter_calls cs) $
-- Remove any calls that mention the variables
filterCalls bs calls
= mapFM (\_ cs -> filter_calls cs) $
- filterFM (\k _ -> k `elemVarSet` bs) calls
+ filterFM (\k _ -> not (k `elemVarSet` bs)) calls
where
filter_calls :: CallInfo -> CallInfo
where
filter_calls :: CallInfo -> CallInfo
- filter_calls = filterFM (\_ (_, fvs) -> fvs `intersectsVarSet` bs)
+ filter_calls = filterFM (\_ (_, fvs) -> not (fvs `intersectsVarSet` bs))
\end{code}
\end{code}