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

8
src/Renderer/TOC.hs
View File

@ -129,11 +129,9 @@ 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 ErrorInfo{..} -> [ErrorSummary termName infoSpan]
toJSONSummaries' diffInfo = case diffInfo of LeafInfo{..} -> maybe [] (pure . JSONSummary) parentInfo
ErrorInfo{..} -> [ErrorSummary termName infoSpan]
LeafInfo{..} -> maybe [] (pure . JSONSummary) parentInfo
toTermName :: HasDefaultFields fields => Source -> Term (Syntax Text) (Record fields) -> Text toTermName :: HasDefaultFields fields => Source -> Term (Syntax Text) (Record fields) -> Text
toTermName source = para $ \ (annotation :< syntax) -> case syntax of toTermName source = para $ \ (annotation :< syntax) -> case syntax of