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

Don’t re-erase vectors.

Browse Source
This commit is contained in:
Rob Rix 2017-02-08 11:54:14 -05:00
parent 223b836612
commit d102c6a13a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Data/RandomWalkSimilarity.hs
View File

@ -121,7 +121,7 @@ rws compare as bs
(These Int Int, Diff f (Record fields))
insertion previous unmappedA unmappedB (UnmappedTerm j _ b) = do
put (previous, unmappedA, IntMap.delete j unmappedB)
pure (That j, inserting ((`setFeatureVector` Nothing) <$> b))
pure (That j, inserting b)
-- | Finds the most-similar unmapped term to the passed-in term, if any.
--
@ -144,7 +144,7 @@ rws compare as bs
deleteRemaining diffs (_, unmappedA, _) = foldl' (\into (i, deletion) ->
insertDiff (This i, deletion) into)
diffs
((termIndex &&& deleting . fmap (`setFeatureVector` Nothing) . term) <$> unmappedA)
((termIndex &&& deleting . term) <$> unmappedA)
-- Possibly replace terms in a diff.
replaceIfEqual :: Term f (Record fields) -> Term f (Record fields) -> Maybe (Diff f (Record fields))