suggested changes

This commit is contained in:
Lucy Cifferello
2020-07-06 15:09:12 -06:00
parent 97120c8fb9
commit 5daf01e341
2 changed files with 4 additions and 4 deletions

Binary file not shown.

View File

@@ -170,13 +170,13 @@ appMain = do
useEnv useEnv
-- Generate the foundation from the settings -- Generate the foundation from the settings
makeFoundation settings >>= (startApp settings) makeFoundation settings >>= startApp
startApp :: AppSettings -> AgentCtx -> IO () startApp :: AgentCtx -> IO ()
startApp settings foundation = do startApp foundation = do
-- set up ssl certificates -- set up ssl certificates
putStrLn @Text "Setting up SSL" putStrLn @Text "Setting up SSL"
_ <- setupSsl settings _ <- setupSsl $ appSettings foundation
putStrLn @Text "SSL Setup Complete" putStrLn @Text "SSL Setup Complete"
startWeb foundation startWeb foundation