fix: restart after re-writing config file with SSL certificate

src/System/Serverman/Actions/Nginx.hs

@@ -33,16 +33,7 @@ module System.Serverman.Actions.Nginx (nginx) where
 
       putStrLn $ "wrote your configuration file to " ++ path
       
-      restart <- async $ do
-        let command = "systemctl restart nginx"
-        result <- tryIOError $ callCommand command
-        case result of
-          Left err -> do
-            putStrLn $ commandError command
-          Right _ ->
-            putStrLn $ "restarted " ++ show (service params)
-
-      wait restart
+      wait =<< restart
 
       when (ssl params) $ do
         case serverType params of
@@ -56,6 +47,7 @@ module System.Serverman.Actions.Nginx (nginx) where
                 Right _ -> do
                   putStrLn $ "created a certificate for " ++ domain params
                   writeFile path (show params)
+                  wait =<< restart
                   
             wait letsencrypt
           _ -> do
@@ -66,3 +58,13 @@ module System.Serverman.Actions.Nginx (nginx) where
 
         putStrLn $ "for more information, see: https://certbot.eff.org/"
       return ()
+    where
+      restart = async $ do
+        let command = "systemctl restart nginx"
+        result <- tryIOError $ callCommand command
+        case result of
+          Left err -> do
+            putStrLn $ commandError command
+          Right _ ->
+            putStrLn $ "restarted " ++ show (service params)
+