github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-28 10:15:55 +03:00
Code Issues Projects Releases Wiki Activity

toS is a little cleaner here

Browse Source
This commit is contained in:
Timothy Clem 2017-03-08 14:45:47 -08:00
parent c6be51156d
commit 8bf09776e4
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Renderer.hs
View File

@ -4,10 +4,9 @@ import Data.Aeson (Value, encode)
import Data.Functor.Both
import Data.Map as Map hiding (null)
import Data.Text.Encoding (encodeUtf8)
import Data.ByteString.Lazy (toStrict)
import qualified Data.ByteString as B
import Data.Functor.Listable
import Prologue hiding (toStrict)
import Prologue
import Source (SourceBlob)
import Syntax
import Diff
@ -39,12 +38,12 @@ toSummaryKey = runBothWith $ \before after ->
-- changes and errors.
-- Split and Patch output is appended together with newlines.
concatOutputs :: [Output] -> ByteString
concatOutputs list | isJSON list = toStrict . encode $ concatJSON list
concatOutputs list | isJSON list = toS . encode $ concatJSON list
where
concatJSON :: [Output] -> Map Text Value
concatJSON (JSONOutput hash : rest) = Map.union hash (concatJSON rest)
concatJSON _ = mempty
concatOutputs list | isSummary list = toStrict . encode $ concatSummaries list
concatOutputs list | isSummary list = toS . encode $ concatSummaries list
where
concatSummaries :: [Output] -> Map Text (Map Text [Value])
concatSummaries (SummaryOutput hash : rest) = Map.unionWith (Map.unionWith (<>)) hash (concatSummaries rest)