From 88a79d736ce3425bd301678fdde45754cac23ff3 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Tue, 28 Jun 2016 13:42:23 -0400 Subject: [PATCH] Invert the predicate. --- src/Data/RandomWalkSimilarity.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Data/RandomWalkSimilarity.hs b/src/Data/RandomWalkSimilarity.hs index 290ef17f4..be70fd411 100644 --- a/src/Data/RandomWalkSimilarity.hs +++ b/src/Data/RandomWalkSimilarity.hs @@ -40,7 +40,7 @@ rws compare getLabel as bs put (Set.insert k mapped) pure y _ -> pure $! delete v - deleteRemaining diff mapped = diff <> (delete . snd <$> filter ((`Set.member` mapped) . fst) fas) + deleteRemaining diff mapped = diff <> (delete . snd <$> filter (not . (`Set.member` mapped) . fst) fas) data Gram label = Gram { stem :: [Maybe label], base :: [Maybe label] } deriving (Eq, Show)