From f643980487128c26b013cf0b012684c7b2a52e73 Mon Sep 17 00:00:00 2001 From: Mahdi Dibaiee Date: Wed, 22 Feb 2017 13:30:47 +0330 Subject: [PATCH] fix(webserver, ssl): agree tos --- src/System/Serverman/Actions/Nginx.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/System/Serverman/Actions/Nginx.hs b/src/System/Serverman/Actions/Nginx.hs index 83167d1..eda1f9d 100644 --- a/src/System/Serverman/Actions/Nginx.hs +++ b/src/System/Serverman/Actions/Nginx.hs @@ -51,7 +51,7 @@ module System.Serverman.Actions.Nginx (nginx) where putStrLn $ "you should use letsencrypt to create a certificate for your domain" putStrLn $ "and put it in /etc/letsencrypt/live/" ++ domain ++ "/fullchain.pem" putStrLn $ "my suggestion is running this command:" - putStrLn $ "sudo certbot certonly --webroot --webroot-path -d " ++ domain + putStrLn $ "sudo letsencrypt certonly --webroot --webroot-path -d " ++ domain putStrLn $ "for more information, see: https://certbot.eff.org/" return () @@ -64,7 +64,7 @@ module System.Serverman.Actions.Nginx (nginx) where putStrLn $ "restarted " ++ show serverService createCert path cmd = do - result <- execute cmd ["certonly", "--webroot", "--webroot-path", directory, "-d", domain, "--email", email] "" False + result <- execute cmd ["certonly", "--webroot", "--webroot-path", directory, "-d", domain, "--email", email, "--agree-tos"] "" False case result of Left _ -> if cmd == "letsencrypt" then createCert path "certbot" else return () Right stdout -> do