From 35c1d686b5172b70fc9de55f2ad97f50a6db04b3 Mon Sep 17 00:00:00 2001 From: Keagan McClelland Date: Tue, 18 Feb 2020 11:27:26 -0700 Subject: [PATCH] adds minCompanion to json --- src/Handler/Types/Status.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/Handler/Types/Status.hs b/src/Handler/Types/Status.hs index b1770e0..7abbaf8 100644 --- a/src/Handler/Types/Status.hs +++ b/src/Handler/Types/Status.hs @@ -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