From 7b0c6a7ace5269c05d399587ef953d48128c25d9 Mon Sep 17 00:00:00 2001 From: Lucy Cifferello Date: Mon, 6 Jul 2020 15:09:12 -0600 Subject: [PATCH] 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