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

Some more instances.

Browse Source
This commit is contained in:
Rob Rix 2016-02-29 17:15:08 -05:00
parent 25214616c8
commit a504e73b04
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/Renderer/JSON.hs
View File

@ -4,6 +4,7 @@ module Renderer.JSON (
) where ) where
import Alignment import Alignment
import Category
import Control.Arrow import Control.Arrow
import Control.Monad.Free import Control.Monad.Free
import Data.Foldable import Data.Foldable
@ -32,5 +33,16 @@ instance JSON a => JSON (JSONWrapper (Line a)) where
showJSON (JSONWrapper EmptyLine) = JSNull showJSON (JSONWrapper EmptyLine) = JSNull
showJSON (JSONWrapper (Line a)) = showJSONs (toList a) showJSON (JSONWrapper (Line a)) = showJSONs (toList a)
instance JSON Range where instance JSON (JSONWrapper Range) where
showJSON (Range start end) = showJSON [ start, end ] showJSON (JSONWrapper (Range start end)) = showJSON [ start, end ]
instance JSON (JSONWrapper Info) where
showJSON (JSONWrapper (Info range categories)) = JSObject $ toJSObject [("range", showJSON (JSONWrapper range)), ("categories", showJSON (showCategory <$> toList categories))]
where showCategory (Other s) = s
showCategory s = show s
instance JSON (JSONWrapper (SplitDiff a Info)) where
showJSON _ = JSNull
instance JSON a => JSON (JSONWrapper (SplitPatch a)) where
showJSON _ = JSNull