fix eos json response

This commit is contained in:
Lucy Cifferello
2021-07-20 13:20:00 -04:00
parent 2bc47ac9f0
commit 20f2713eb3

View File

@@ -147,7 +147,12 @@ data EosRes = EosRes
, eosResHeadline :: Text
, eosResReleaseNotes :: ReleaseNotes
} deriving (Eq, Show, Generic)
instance ToJSON EosRes
instance ToJSON EosRes where
toJSON EosRes { .. } = object
[ "version" .= eosResVersion
, "headline" .= eosResHeadline
, "release-notes" .= eosResReleaseNotes
]
instance ToContent EosRes where
toContent = toContent . toJSON
instance ToTypedContent EosRes where