From c75c9fd250a4c588b03e7c9f81b9e6c01c5489e9 Mon Sep 17 00:00:00 2001
From: Keagan McClelland <keagan.mcclelland@gmail.com>
Date: Tue, 4 Aug 2020 16:25:00 -0600
Subject: [PATCH] test setup

---
 src/Application.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Application.hs b/src/Application.hs
index bcda1aa..a365b60 100644
--- a/src/Application.hs
+++ b/src/Application.hs
@@ -185,6 +185,7 @@ startApp foundation = do
     void . forkIO $ forever $ do
         putStrLn $ "DOMAIN: " <> registryHostname (appSettings foundation)
         putStrLn $ "CERT: " <> sslCertLocation (appSettings foundation)
+        runReaderT (renewSslCerts (sslCertLocation $ appSettings foundation)) foundation
         shouldRenew <- doesSslNeedRenew (sslCertLocation $ appSettings foundation)
         when shouldRenew $ do
             putStrLn @Text "Renewing SSL Certs."