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

get system status endpoint

Browse Source
This commit is contained in:
Lucy Cifferello
2021-05-11 22:16:25 -06:00
parent 46c2c1ef67
commit 1fa68a0ad8
4 changed files with 29 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/Handler/Version.hs
View File

@@ -44,3 +44,8 @@ getVersionWSpec :: KnownSymbol a => FilePath -> Extension a -> Handler (Maybe Ap
getVersionWSpec rootDir ext = do
av <- getVersionFromQuery rootDir ext
pure $ liftA3 AppVersionRes av (pure Nothing) (pure Nothing)
getSystemStatusR :: Handler OSVersionRes
getSystemStatusR = do
-- hardcoded since this will be last OS version release on this registry before 1.0
pure $ OSVersionRes NOTHING $ Version (0,2,13,0)