github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-03 04:51:57 +03:00
Code Issues Projects Releases Wiki Activity

Bind the diff info functions at the top level.

Browse Source
This commit is contained in:
Rob Rix 2017-05-05 16:00:10 -04:00
parent b6cc1cfac1
commit e667657d94
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Renderer/TOC.hs
View File

@ -93,12 +93,11 @@ diffTOC blobs diff = removeDupes (diffToTOCSummaries (source <$> blobs) diff) >>
diffToTOCSummaries :: (StringConv leaf Text, HasDefaultFields fields) => Both Source -> SyntaxDiff leaf fields -> [TOCSummary DiffInfo]
diffToTOCSummaries sources = para $ \diff ->
let
diff' = free (Prologue.fst <$> diff)
(beforeInfo, afterInfo) = runJoin $ termToDiffInfo <$> sources
let diff' = free (Prologue.fst <$> diff)
in case first (toTOCSummaries . mapPatch beforeInfo afterInfo) diff of
Free _ -> mapToInSummarizable sources diff' (toList diff >>= snd)
Pure summaries -> summaries
where (beforeInfo, afterInfo) = runJoin $ termToDiffInfo <$> sources
-- Mark which leaves are summarizable.
toTOCSummaries :: Patch DiffInfo -> [TOCSummary DiffInfo]