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

Define a function to compute the table of contents for a diff given some relevance predicate.

Browse Source
This commit is contained in:
Rob Rix 2017-05-10 09:55:05 -04:00
parent bf2a12cbf4
commit 0534c3303d
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/Renderer/TOC.hs
View File

@ -1,8 +1,9 @@
{-# LANGUAGE RankNTypes #-}
module Renderer.TOC (toc, diffTOC, JSONSummary(..), Summarizable(..), isErrorSummary) where
import Category as C
import Data.Aeson
import Data.Align (sequenceL)
import Data.Align (crosswalk, sequenceL)
import Data.Functor.Both hiding (fst, snd)
import qualified Data.Functor.Both as Both
import Data.Text (toLower)
@ -52,6 +53,21 @@ data Summarizable
}
deriving (Eq, Show)
data Entry a
= Unchanged a
| Changed (Either a (Patch a))
deriving (Eq, Show)
tableOfContentsBy :: Traversable f => (forall b. TermF f (Record fields) b -> Bool) -> Diff f (Record fields) -> [Entry (Record fields)]
tableOfContentsBy isRelevant = fromMaybe [] . iter alg . fmap (Just . fmap (Changed . Right) . crosswalk (cata termAlgebra))
where alg r | isRelevant (first Both.snd r)
, annotation <- Both.snd (headF r) = Just (maybe [Unchanged annotation] (wrapList annotation) (fold r))
| otherwise = fold r
wrapList a es | null es = [Changed (Left a)]
| otherwise = es
termAlgebra r | isRelevant r = [headF r]
| otherwise = fold r
toc :: HasDefaultFields fields => Both SourceBlob -> Diff (Syntax Text) (Record fields) -> Summaries
toc blobs diff = Summaries changes errors
where