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

Simplify toJSONSummaries.

Browse Source
This commit is contained in:
Rob Rix 2017-05-08 17:16:48 -04:00
parent 28d858ce32
commit c369867230
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Renderer/TOC.hs
View File

@ -129,9 +129,7 @@ diffTOC blobs diff = removeDupes (diffToTOCSummaries (source <$> blobs) diff) >>
isSummarizable _ = False isSummarizable _ = False
toJSONSummaries :: TOCSummary DiffInfo -> [JSONSummary] toJSONSummaries :: TOCSummary DiffInfo -> [JSONSummary]
toJSONSummaries TOCSummary{..} = toJSONSummaries' (afterOrBefore summaryPatch) toJSONSummaries TOCSummary{..} = case afterOrBefore summaryPatch of
where
toJSONSummaries' diffInfo = case diffInfo of
ErrorInfo{..} -> [ErrorSummary termName infoSpan] ErrorInfo{..} -> [ErrorSummary termName infoSpan]
LeafInfo{..} -> maybe [] (pure . JSONSummary) parentInfo LeafInfo{..} -> maybe [] (pure . JSONSummary) parentInfo