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

proper manifest parsing

Browse Source
This commit is contained in:
Lucy Cifferello
2021-07-05 15:47:50 -04:00
parent f40c8cf916
commit 11e95f7737
2 changed files with 164 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/Handler/Marketplace.hs
View File

@@ -179,7 +179,7 @@ getServiceR = do
Nothing -> sendResponseStatus status404 ("id param should exist" :: Text)
Just appId' -> do
case lookup "version" getParameters of
-- default to latest - need to determine best available based on OS version?
-- default to latest - @TODO need to determine best available based on OS version?
Nothing -> runDB $ fetchLatestApp appId' >>= errOnNothing status404 "service not found"
Just v -> do
case readMaybe v of
@@ -191,7 +191,6 @@ getServiceR = do
let appId = sAppAppId $ entityVal service
let appDir = (<> "/") . (</> show (sVersionNumber $ entityVal version)) . (</> toS appId) $ appsDir
let appExt = Extension (toS appId) :: Extension "s9pk"
$logInfo $ "*******************" <> show appDir
manifest' <- handleS9ErrT $ getManifest appMgrDir appDir appExt
manifest <- case eitherDecode $ BS.fromStrict manifest' of
Left e -> do