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

Don't include keys if no changes or errors

Browse Source
This commit is contained in:
joshvera 2016-08-24 15:46:50 -04:00
parent 6026d03205
commit b290e49000
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Renderer/Summary.hs
View File

@ -7,15 +7,17 @@ import Renderer
import Data.Record
import Range
import DiffSummary
import Data.Map as Map
import Data.Map as Map hiding (null)
import Source
summary :: (HasField fields Category, HasField fields Range) => Renderer (Record fields)
summary blobs diff = SummaryOutput $ Map.fromList [
("changes", [ Map.singleton summaryKey changes ]),
("errors", [ Map.singleton summaryKey errors ])
("changes", changes),
("errors", errors)
]
where
changes = if null changes' then [] else [ Map.singleton summaryKey changes' ]
errors = if null errors' then [] else [ Map.singleton summaryKey errors' ]
(errors', changes') = partitionEithers summaries
summaryKey = toSummaryKey (path <$> blobs)
(errors, changes) = partitionEithers summaries
summaries = diffSummaries blobs diff