X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fspecialise%2FSpecialise.lhs;h=41bdfd7cd81723360079546c3aad56fe1017ccc1;hb=a0a541a8d342d6189d5e76ba65a8e914251d1d84;hp=055c85821a0eaceb7807ddd9de67539612fc62e1;hpb=6246f5738bc482423e51342eb117a40539be790e;p=ghc-hetmet.git

diff --git a/compiler/specialise/Specialise.lhs b/compiler/specialise/Specialise.lhs
index 055c858..41bdfd7 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}