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

Clean up the definition of toJSON for Both.

Browse Source
This commit is contained in:
Rob Rix 2017-05-16 13:07:21 -04:00
parent e6a8ce8bd6
commit cbf17cdc22
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Renderer/JSON.hs
View File

@ -11,7 +11,6 @@ import Data.Aeson as A hiding (json)
import Data.Bifunctor.Join import Data.Bifunctor.Join
import Data.Functor.Both import Data.Functor.Both
import Data.Record import Data.Record
import Data.Vector as Vector hiding (toList)
import Diff import Diff
import Info import Info
import Patch import Patch
@ -46,7 +45,7 @@ instance ToJSON a => ToJSONFields (Join (,) a) where
toJSONFields (Join (a, b)) = [ "before" .= a, "after" .= b ] toJSONFields (Join (a, b)) = [ "before" .= a, "after" .= b ]
instance ToJSON a => ToJSON (Join (,) a) where instance ToJSON a => ToJSON (Join (,) a) where
toJSON (Join (a, b)) = A.Array . Vector.fromList $ toJSON <$> [ a, b ] toJSON = toJSON . toList
toEncoding = foldable toEncoding = foldable
instance (ToJSONFields a, ToJSONFields (f (Free f a))) => ToJSON (Free f a) where instance (ToJSONFields a, ToJSONFields (f (Free f a))) => ToJSON (Free f a) where