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

Copy the deduping logic into dedupe.

Browse Source
This commit is contained in:
Rob Rix 2017-05-11 15:36:25 -04:00
parent 336e203d02
commit 7903db7429
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/Renderer/TOC.hs
View File

@ -11,6 +11,7 @@ module Renderer.TOC
, Entry(..)
, entryPayload
, tableOfContentsBy
, dedupe
, entrySummary
) where
@ -121,8 +122,20 @@ tableOfContentsBy selector = fromMaybe [] . iter diffAlgebra . fmap (Just . fmap
termAlgebra r | Just a <- selector r = [a]
| otherwise = fold r
dedupe :: [Entry (Record fields)] -> [Entry (Record fields)]
dedupe = identity
dedupe :: (HasField fields Category, HasField fields (Maybe Declaration)) => [Entry (Record fields)] -> [Entry (Record fields)]
dedupe = foldl' go []
where go xs x | (_, _:_) <- find (exactMatch `on` entryPayload) x xs = xs
| (front, _ : back) <- find (similarMatch `on` entryPayload) x xs =
front <> (x : back)
| otherwise = xs <> [x]
find p x = List.break (p x)
exactMatch = (==) `on` getDeclaration
similarMatch a b = sameCategory a b && similarDeclaration a b
sameCategory = (==) `on` category
similarDeclaration = (==) `on` fmap (toLower . declarationIdentifier) . getDeclaration
getDeclaration :: HasField fields (Maybe Declaration) => Record fields -> Maybe Declaration
getDeclaration = getField
-- | Construct a 'JSONSummary' from an 'Entry'. Returns 'Nothing' for 'Unchanged' patches.
entrySummary :: (HasField fields Category, HasField fields (Maybe Declaration), HasField fields SourceSpan) => Entry (Record fields) -> Maybe JSONSummary