From 949f2f867c12bbcc1a77486e822f1efb2994006c Mon Sep 17 00:00:00 2001
From: Keagan McClelland <keagan.mcclelland@gmail.com>
Date: Tue, 4 Aug 2020 15:50:42 -0600
Subject: [PATCH] print check

---
 src/Application.hs | 2 ++
 src/Lib/Ssl.hs     | 2 --
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Application.hs b/src/Application.hs
index a1f0dac..bcda1aa 100644
--- a/src/Application.hs
+++ b/src/Application.hs
@@ -183,6 +183,8 @@ startApp foundation = do
 
     -- certbot renew loop
     void . forkIO $ forever $ do
+        putStrLn $ "DOMAIN: " <> registryHostname (appSettings foundation)
+        putStrLn $ "CERT: " <> sslCertLocation (appSettings foundation)
         shouldRenew <- doesSslNeedRenew (sslCertLocation $ appSettings foundation)
         when shouldRenew $ do
             putStrLn @Text "Renewing SSL Certs."
diff --git a/src/Lib/Ssl.hs b/src/Lib/Ssl.hs
index 821dc60..00cadfc 100644
--- a/src/Lib/Ssl.hs
+++ b/src/Lib/Ssl.hs
@@ -49,7 +49,5 @@ doesSslNeedRenew cert = do
 renewSslCerts :: FilePath -> ReaderT RegistryCtx IO ()
 renewSslCerts cert = do
     domain <- asks $ registryHostname . appSettings
-    liftIO $ putStrLn $ "DOMAIN: " <> domain
-    liftIO $ putStrLn $ "CERT: " <> cert
     void . liftIO $ system [i|certbot renew|]
     void . liftIO $ system [i|cp /etc/letsencrypt/live/#{domain}/fullchain.pem #{cert}|]