github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-24 15:35:14 +03:00
Code Issues Projects Releases Wiki Activity

Place the index last.

Browse Source
This commit is contained in:
Rob Rix 2016-06-29 10:06:35 -04:00
parent 5cb8d1ddc6
commit b2003de8d4
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Data/RandomWalkSimilarity.hs
View File

@ -36,11 +36,11 @@ rws compare getLabel as bs
mapped <- get mapped <- get
let ((k, nearest), j) = KdTree.nearest kdas kv let ((k, nearest), j) = KdTree.nearest kdas kv
if k `Set.member` mapped if k `Set.member` mapped
then pure (j, insert v) then pure (insert v, j)
else do else do
put (Set.insert k mapped) put (Set.insert k mapped)
pure $! maybe (j, replace nearest v) ((,) j) (compare nearest v) pure $! maybe (replace nearest v, j) (flip (,) j) (compare nearest v)
deleteRemaining diff mapped = fmap snd diff <> (delete . snd . fst <$> filter (not . (`Set.member` mapped) . fst . fst) fas) deleteRemaining diff mapped = fmap fst diff <> (delete . snd . fst <$> filter (not . (`Set.member` mapped) . fst . 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)