fix eos json response

This commit is contained in:
Lucy Cifferello
2021-07-20 13:20:00 -04:00
committed by Keagan McClelland
parent a68632a608
commit e3705b4845

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