From 0dfe09d620f502fe299f11f10ea14cdc476882d9 Mon Sep 17 00:00:00 2001 From: Mahdi Dibaiee Date: Wed, 22 Feb 2017 13:33:15 +0330 Subject: [PATCH] fix: non-interactive --- src/System/Serverman/Actions/Nginx.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/System/Serverman/Actions/Nginx.hs b/src/System/Serverman/Actions/Nginx.hs index eda1f9d..b57dbf8 100644 --- a/src/System/Serverman/Actions/Nginx.hs +++ b/src/System/Serverman/Actions/Nginx.hs @@ -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, "--agree-tos"] "" False + result <- execute cmd ["certonly", "--webroot", "--webroot-path", directory, "-d", domain, "--email", email, "--agree-tos", "-n"] "" False case result of Left _ -> if cmd == "letsencrypt" then createCert path "certbot" else return () Right stdout -> do