From 97120c8fb9bc1c64b9305e478f5797915a13fbbe Mon Sep 17 00:00:00 2001 From: Lucy Cifferello Date: Thu, 2 Jul 2020 17:21:24 -0600 Subject: [PATCH 1/2] 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 From 7b0c6a7ace5269c05d399587ef953d48128c25d9 Mon Sep 17 00:00:00 2001 From: Lucy Cifferello Date: Mon, 6 Jul 2020 15:09:12 -0600 Subject: [PATCH 2/2] suggested changes --- src/Application.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/Application.hs b/src/Application.hs index 49d5f60..0942761 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 settings) + makeFoundation settings >>= startApp -startApp :: AppSettings -> AgentCtx -> IO () -startApp settings foundation = do +startApp :: AgentCtx -> IO () +startApp foundation = do -- set up ssl certificates putStrLn @Text "Setting up SSL" - _ <- setupSsl settings + _ <- setupSsl $ appSettings foundation putStrLn @Text "SSL Setup Complete" startWeb foundation