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

printing things for testing

Browse Source
This commit is contained in:
Keagan McClelland
2020-08-04 15:11:48 -06:00
parent 7c008f321c
commit b26ad51ba2
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/Lib/Ssl.hs
View File

@@ -49,5 +49,7 @@ doesSslNeedRenew cert = do
renewSslCerts :: FilePath -> ReaderT RegistryCtx IO () renewSslCerts :: FilePath -> ReaderT RegistryCtx IO ()
renewSslCerts cert = do renewSslCerts cert = do
domain <- asks $ registryHostname . appSettings domain <- asks $ registryHostname . appSettings
liftIO $ putStrLn $ "DOMAIN: " <> domain
liftIO $ putStrLn $ "CERT: " <> cert
void . liftIO $ system [i|certbot renew|] void . liftIO $ system [i|certbot renew|]
void . liftIO $ system [i|cp /etc/letsencrypt/live/#{domain}/fullchain.pem #{cert}|] void . liftIO $ system [i|cp /etc/letsencrypt/live/#{domain}/fullchain.pem #{cert}|]