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

📝 firstAnnotation.

Browse Source
This commit is contained in:
Rob Rix 2016-07-05 09:35:47 -04:00
parent 1e2ff9340f
commit be674ecd97
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Data/RandomWalkSimilarity.hs
View File

@ -43,6 +43,7 @@ rws compare getLabel as bs
pure $! fromMaybe (replace found v) (compare found v) pure $! fromMaybe (replace found v) (compare found v)
deleteRemaining diffs unmapped = foldl' (flip (List.insertBy (comparing firstAnnotation))) diffs (delete . snd <$> unmapped) deleteRemaining diffs unmapped = foldl' (flip (List.insertBy (comparing firstAnnotation))) diffs (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.
firstAnnotation :: Diff leaf annotation -> Maybe annotation firstAnnotation :: Diff leaf annotation -> Maybe annotation
firstAnnotation diff = case runFree diff of firstAnnotation diff = case runFree diff of
Free (annotations :< _) -> Just (fst (runJoin annotations)) Free (annotations :< _) -> Just (fst (runJoin annotations))