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

Define an Output instance for JSONOutput.

Browse Source
This commit is contained in:
Rob Rix 2018-05-11 16:17:53 -04:00
parent e4ead782bc
commit d1516c6f04
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Rendering/JSON.hs
View File

@ -14,7 +14,9 @@ import Data.Aeson as A
import Data.JSON.Fields
import Data.Blob
import qualified Data.Map as Map
import Data.ByteString.Lazy (toStrict)
import qualified Data.Map.Monoidal as Monoidal
import Data.Output
import Data.Patch
import Prologue
@ -25,6 +27,10 @@ toJSONOutput :: Text -> [Value] -> JSONOutput
toJSONOutput key = JSONOutput . Monoidal.singleton key
instance Output JSONOutput where
toOutput = toStrict . encode . unJSONOutput
-- | Render a diff to a value representing its JSON.
renderJSONDiff :: ToJSON a => BlobPair -> a -> [Value]
renderJSONDiff blobs diff = pure $