Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-03-26 02:11:53 +00:00
Code Issues Packages Projects Releases Wiki Activity

adds minCompanion to json

Browse Source
This commit is contained in:
Keagan McClelland
2020-02-18 11:27:26 -07:00
parent e8cf9cbe04
commit 76766e5f94
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/Handler/Types/Status.hs
View File

@@ -14,7 +14,10 @@ data AppVersionRes = AppVersionRes
, appVersionMinCompanion :: Maybe AppVersion
} deriving (Eq, Show)
instance ToJSON AppVersionRes where
toJSON AppVersionRes{ appVersionVersion } = object ["version" .= appVersionVersion]
toJSON AppVersionRes{ appVersionVersion, appVersionMinCompanion } = object $
["version" .= appVersionVersion] <> case appVersionMinCompanion of
Nothing -> []
Just x -> ["minCompanion" .= x]
instance ToContent AppVersionRes where
toContent = toContent . toJSON