diff --git a/config/routes b/config/routes index f5f4058..d87e1be 100644 --- a/config/routes +++ b/config/routes @@ -11,7 +11,6 @@ /package/instructions/#PkgId InstructionsR GET -- get icons - can specify version with ?spec= -- TODO confirm needed -/package/config/#PkgId AppConfigR GET -- get app config from appmgr -- ?spec={semver-spec} /package/version/#Text VersionAppR GET -- get most recent appId version !/sys/#SYS_EXTENSIONLESS SysR GET -- get most recent sys app -- ?spec={semver-spec} /version VersionR GET diff --git a/src/Handler/Apps.hs b/src/Handler/Apps.hs index 91f8701..531cace 100644 --- a/src/Handler/Apps.hs +++ b/src/Handler/Apps.hs @@ -84,23 +84,6 @@ getAppManifestR appId = do (\bsSource -> respondSource "application/json" (bsSource .| awaitForever sendChunkBS)) where appExt = Extension (show appId) :: Extension "s9pk" -getAppConfigR :: PkgId -> Handler TypedContent -getAppConfigR appId = do - appSettings <- appSettings <$> getYesod - let appsDir = ( "apps") . resourcesDir $ appSettings - let appMgrDir = staticBinDir appSettings - av <- getVersionFromQuery appsDir appExt >>= \case - Nothing -> sendResponseStatus status404 ("Specified App Version Not Found" :: Text) - Just v -> pure v - let appDir = (<> "/") . ( show av) . ( show appId) $ appsDir - addPackageHeader appMgrDir appDir appExt - config <- sourceConfig appMgrDir - appDir - appExt - (\bsSource -> respondSource "application/json" (bsSource .| awaitForever sendChunkBS)) - pure $ TypedContent "application/json" (toContent config) - where appExt = Extension (show appId) :: Extension "s9pk" - getAppR :: Extension "s9pk" -> Handler TypedContent getAppR e = do appResourceDir <- ( "apps") . resourcesDir . appSettings <$> getYesod