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

eos endpoint, lowercase categories, sdk get instructions and license

Browse Source
This commit is contained in:
Lucy Cifferello
2021-07-14 17:43:13 -04:00
committed by Keagan McClelland
parent 47d945f9c5
commit 0d27703b33
6 changed files with 137 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/Handler/Version.hs
View File

@@ -37,7 +37,7 @@ getVersionAppR appId = do
pure res
where appExt = Extension (toS appId) :: Extension "s9pk"
-- @TODO update to using db record
-- @TODO - deprecate
getVersionSysR :: Text -> Handler (Maybe AppVersionRes)
getVersionSysR sysAppId = runMaybeT $ do
sysDir <- (</> "sys") . resourcesDir . appSettings <$> getYesod
@@ -50,9 +50,4 @@ getVersionSysR sysAppId = runMaybeT $ do
getVersionWSpec :: KnownSymbol a => FilePath -> Extension a -> Handler (Maybe AppVersionRes)
getVersionWSpec rootDir ext = do
av <- getVersionFromQuery rootDir ext
pure $ liftA3 AppVersionRes av (pure Nothing) (pure Nothing)
getSystemStatusR :: Handler OSVersionRes
getSystemStatusR = do
-- hardcoded to the next major version release so the UI can by dynamic. this might change depending on the version number we decide to release.
pure $ OSVersionRes INSTRUCTIONS $ Version (0,3,0,0)
pure $ liftA3 AppVersionRes av (pure Nothing) (pure Nothing)