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

Define a ToJSONFields instance for CofreeF.

Browse Source
This commit is contained in:
Rob Rix 2017-04-27 18:17:05 -04:00
parent 607d4f0398
commit 3bf4f63e0c
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Renderer/JSON.hs
View File

@ -99,8 +99,11 @@ instance ToJSONFields Category where
instance ToJSONFields a => ToJSONFields (Maybe a) where
toJSONFields = maybe [] toJSONFields
instance (ToJSONFields a, ToJSONFields (f (Term f a))) => ToJSONFields (Term f a) where
toJSONFields term = let a :< f = runCofree term in toJSONFields a <> toJSONFields f
instance (ToJSONFields a, ToJSONFields (f (Cofree f a))) => ToJSONFields (Cofree f a) where
toJSONFields = toJSONFields . runCofree
instance (ToJSONFields a, ToJSONFields (f b)) => ToJSONFields (CofreeF f a b) where
toJSONFields (a :< f) = toJSONFields a <> toJSONFields f
instance ToJSON a => ToJSONFields (SplitPatch a) where
toJSONFields (SplitInsert a) = [ "insert" .= a ]