From 8f4c8f21f6d78cd94dc4c067d195556e9fb4650b Mon Sep 17 00:00:00 2001
From: Lucy Cifferello <lucy.cifferello@saltlending.com>
Date: Tue, 31 Mar 2020 09:12:38 -0600
Subject: [PATCH] get settings

---
 src/Handler/Apps.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Handler/Apps.hs b/src/Handler/Apps.hs
index 9483663..7fe6e69 100644
--- a/src/Handler/Apps.hs
+++ b/src/Handler/Apps.hs
@@ -41,7 +41,7 @@ instance Show FileExtension where
 getAppsManifestR :: Handler TypedContent
 getAppsManifestR = do
     AppSettings{..} <- appSettings <$> getYesod
-    let appResourceDir = resourcesDir </> "apps" </> "apps.yaml"
+    let appResourceDir = (resourcesDir . appSettings <$> getYesod) </> "apps" </> "apps.yaml"
     respondSource typePlain $ CB.sourceFile appResourceDir .| awaitForever sendChunkBS
 
 getSysR :: Extension "" -> Handler TypedContent