github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-29 01:42:43 +03:00
Code Issues Projects Releases Wiki Activity

Be consistent with other responses

Browse Source
This commit is contained in:
Timothy Clem 2018-11-10 09:40:19 -08:00
parent bc9f85fdef
commit 09e6046763
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Rendering/JSON.hs
View File

@ -102,7 +102,7 @@ renderJSONError Blob{..} e = JSON [ SomeJSON (object [ "error" .= err ]) ]
renderJSONDiffError :: BlobPair -> String -> JSON "diffs" SomeJSON renderJSONDiffError :: BlobPair -> String -> JSON "diffs" SomeJSON
renderJSONDiffError pair e = JSON [ SomeJSON (object [ "error" .= err ]) ] renderJSONDiffError pair e = JSON [ SomeJSON (object [ "error" .= err ]) ]
where err = object ["message" .= e, "info" .= toJSON (JSONStat pair)] where err = object ["message" .= e, "stat" .= toJSON (JSONStat pair)]
data SomeJSON where data SomeJSON where
SomeJSON :: ToJSON a => a -> SomeJSON SomeJSON :: ToJSON a => a -> SomeJSON