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

Use the element’s index for replacements/comparisons.

Browse Source
This commit is contained in:
Rob Rix 2016-07-05 16:23:28 -04:00
parent 1037bab2d6
commit ef916364e5
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

@ -41,7 +41,7 @@ rws compare getLabel as bs
Nothing -> pure (negate 1, insert v)
Just (i, found) -> do
put (List.delete (k, (i, found)) unmapped)
pure (negate 1, fromMaybe (replace found v) (compare found v))
pure (i, fromMaybe (replace found v) (compare found v))
deleteRemaining diffs unmapped = foldl' (flip (List.insertBy (comparing fst))) diffs (second delete . snd <$> unmapped)
-- | Extract the annotation for the before state of a diff node. This is returned in `Maybe` because e.g. an `Insert` patch does not have an annotation for the before state.