From 97120c8fb9bc1c64b9305e478f5797915a13fbbe Mon Sep 17 00:00:00 2001
From: Lucy Cifferello <lvcifferello@gmail.com>
Date: Thu, 2 Jul 2020 17:21:24 -0600
Subject: [PATCH] pass settings args

---
 src/Application.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Application.hs b/src/Application.hs
index ac27d77..49d5f60 100644
--- a/src/Application.hs
+++ b/src/Application.hs
@@ -170,13 +170,13 @@ appMain = do
         useEnv
 
     -- Generate the foundation from the settings
-    makeFoundation settings >>= startApp
+    makeFoundation settings >>= (startApp settings)
 
-startApp :: AgentCtx -> IO ()
-startApp foundation = do
+startApp :: AppSettings -> AgentCtx -> IO ()
+startApp settings foundation = do
     -- set up ssl certificates
     putStrLn @Text "Setting up SSL"
-    _ <- setupSsl <$> getAppSettings
+    _ <- setupSsl settings
     putStrLn @Text "SSL Setup Complete"
     startWeb foundation