github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-26 16:33:03 +03:00
Code Issues Projects Releases Wiki Activity

Unpack the rows.

Browse Source
This commit is contained in:
Rob Rix 2016-03-01 14:42:14 -05:00
parent 5304663642
commit 94f97ba366
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Renderer/JSON.hs
View File

@ -29,9 +29,10 @@ import Term
-- | Render a diff to a string representing its JSON. -- | Render a diff to a string representing its JSON.
json :: Renderer a ByteString json :: Renderer a ByteString
json diff sources = toLazyByteString . fromEncoding . pairs $ json diff sources = toLazyByteString . fromEncoding . pairs $
"rows" .= Prelude.fst (splitDiffByLines diff (pure 0) (source <$> sources)) "rows" .= annotateRows (Prelude.fst (splitDiffByLines diff (pure 0) (source <$> sources)))
<> "oids" .= (oid <$> sources) <> "oids" .= (oid <$> sources)
<> "paths" .= (path <$> sources) <> "paths" .= (path <$> sources)
where annotateRows = fmap unRow
instance ToJSON Category where instance ToJSON Category where
toJSON (Other s) = String $ T.pack s toJSON (Other s) = String $ T.pack s