From b26ad51ba2ef3120a55f674bc0030fa607d7d84b Mon Sep 17 00:00:00 2001
From: Keagan McClelland <keagan.mcclelland@gmail.com>
Date: Tue, 4 Aug 2020 15:11:48 -0600
Subject: [PATCH] printing things for testing

---
 src/Lib/Ssl.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Lib/Ssl.hs b/src/Lib/Ssl.hs
index 00cadfc..821dc60 100644
--- a/src/Lib/Ssl.hs
+++ b/src/Lib/Ssl.hs
@@ -49,5 +49,7 @@ 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}|]