diff --git a/resources/sys/agent/0.0.1/agent-001 b/resources/sys/agent/0.0.1/agent-001 new file mode 100755 index 0000000..1d8a4ab Binary files /dev/null and b/resources/sys/agent/0.0.1/agent-001 differ 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