Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-03-31 04:03:40 +00:00
Code Issues Packages Projects Releases Wiki Activity

pass settings args

Browse Source
This commit is contained in:
Lucy Cifferello
2020-07-02 17:21:24 -06:00
parent 16a409c514
commit 97120c8fb9
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/Application.hs
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 makeFoundation settings >>= (startApp settings)
startApp :: AgentCtx -> IO () startApp :: AppSettings -> AgentCtx -> IO ()
startApp foundation = do startApp settings foundation = do
-- set up ssl certificates -- set up ssl certificates
putStrLn @Text "Setting up SSL" putStrLn @Text "Setting up SSL"
_ <- setupSsl <$> getAppSettings _ <- setupSsl settings
putStrLn @Text "SSL Setup Complete" putStrLn @Text "SSL Setup Complete"
startWeb foundation startWeb foundation