fix path to version and remove json flag from sdk manifest cmd

This commit is contained in:
Lucy Cifferello
2021-07-02 18:43:40 -04:00
parent 9e17e79e45
commit f40c8cf916
2 changed files with 2 additions and 2 deletions

View File

@@ -189,7 +189,7 @@ getServiceR = do
categories <- runDB $ fetchAppCategories (entityKey service)
(appsDir, appMgrDir) <- getsYesod $ ((</> "apps") . resourcesDir &&& staticBinDir) . appSettings
let appId = sAppAppId $ entityVal service
let appDir = (<> "/") . (</> show version) . (</> toS appId) $ appsDir
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