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

get settings

Browse Source
This commit is contained in:
Lucy Cifferello
2020-03-31 09:12:38 -06:00
parent 74d3c0c1b8
commit ac56031317
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Apps.hs
View File

@@ -41,7 +41,7 @@ instance Show FileExtension where
getAppsManifestR :: Handler TypedContent getAppsManifestR :: Handler TypedContent
getAppsManifestR = do getAppsManifestR = do
AppSettings{..} <- appSettings <$> getYesod AppSettings{..} <- appSettings <$> getYesod
let appResourceDir = resourcesDir </> "apps" </> "apps.yaml" let appResourceDir = (resourcesDir . appSettings <$> getYesod) </> "apps" </> "apps.yaml"
respondSource typePlain $ CB.sourceFile appResourceDir .| awaitForever sendChunkBS respondSource typePlain $ CB.sourceFile appResourceDir .| awaitForever sendChunkBS
getSysR :: Extension "" -> Handler TypedContent getSysR :: Extension "" -> Handler TypedContent