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

fixes path dependence

Browse Source
This commit is contained in:
Keagan McClelland
2020-08-04 13:18:43 -06:00
parent f385d23210
commit 7c008f321c
3 changed files with 14 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/Application.hs
View File

@@ -170,12 +170,6 @@ appMain = do
-- allow environment variables to override
useEnv
void . forkIO $ forever $ do
shouldRenew <- doesSslNeedRenew (sslCertLocation settings)
when shouldRenew $ do
putStrLn @Text "Renewing SSL Certs."
renewSslCerts (sslCertLocation settings)
sleep 86_400
-- Generate the foundation from the settings
makeFoundation settings >>= startApp
@@ -186,6 +180,15 @@ startApp foundation = do
putStrLn @Text "Setting up SSL"
_ <- setupSsl $ appSettings foundation
putStrLn @Text "SSL Setup Complete"
-- certbot renew loop
void . forkIO $ forever $ do
shouldRenew <- doesSslNeedRenew (sslCertLocation $ appSettings foundation)
when shouldRenew $ do
putStrLn @Text "Renewing SSL Certs."
runReaderT (renewSslCerts (sslCertLocation $ appSettings foundation)) foundation
sleep 86_400
startWeb foundation
startWeb :: RegistryCtx -> IO ()