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

emver for registry appears complete, more testing required but should be ready for beta testing

Browse Source
This commit is contained in:
Keagan McClelland
2020-10-28 17:43:36 -06:00
parent 8cad3095fa
commit 28edfc2f87
16 changed files with 416 additions and 298 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -7,15 +7,17 @@ import Startlude
import Data.Aeson
import Yesod.Core.Content
import Lib.Types.Semver
import Lib.Types.Emver
import Orphans.Emver ( )
data AppVersionRes = AppVersionRes
{ appVersionVersion :: AppVersion
, appVersionMinCompanion :: Maybe AppVersion
} deriving (Eq, Show)
{ appVersionVersion :: Version
, appVersionMinCompanion :: Maybe Version
}
deriving (Eq, Show)
instance ToJSON AppVersionRes where
toJSON AppVersionRes{ appVersionVersion, appVersionMinCompanion } = object $
["version" .= appVersionVersion] <> case appVersionMinCompanion of
toJSON AppVersionRes { appVersionVersion, appVersionMinCompanion } =
object $ ["version" .= appVersionVersion] <> case appVersionMinCompanion of
Nothing -> []
Just x -> ["minCompanion" .= x]