github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-20 13:21:59 +03:00
Code Issues Projects Releases Wiki Activity

Invert the predicate.

Browse Source
This commit is contained in:
Rob Rix 2016-06-28 13:42:23 -04:00
parent 16b0fedee5
commit 88a79d736c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Data/RandomWalkSimilarity.hs
View File

@ -40,7 +40,7 @@ rws compare getLabel as bs
put (Set.insert k mapped) put (Set.insert k mapped)
pure y pure y
_ -> pure $! delete v _ -> 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] } data Gram label = Gram { stem :: [Maybe label], base :: [Maybe label] }
deriving (Eq, Show) deriving (Eq, Show)