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) $
-    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}