diff options
Diffstat (limited to 'compiler/specialise/Specialise.lhs')
| -rw-r--r-- | compiler/specialise/Specialise.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/specialise/Specialise.lhs b/compiler/specialise/Specialise.lhs index 055c85821a..41bdfd7cd8 100644 --- 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) $ - filterFM (\k _ -> k `elemVarSet` bs) calls + filterFM (\k _ -> not (k `elemVarSet` bs)) calls where filter_calls :: CallInfo -> CallInfo - filter_calls = filterFM (\_ (_, fvs) -> fvs `intersectsVarSet` bs) + filter_calls = filterFM (\_ (_, fvs) -> not (fvs `intersectsVarSet` bs)) \end{code} |