deploy: Write a message upon successful deployment.

* guix/scripts/deploy.scm (guix-deploy): Write message upon successful
deployment.

diff --git a/guix/scripts/deploy.scm b/guix/scripts/deploy.scm
index d4d07be..f70d41f 100644 (file)
--- a/guix/scripts/deploy.scm
+++ b/guix/scripts/deploy.scm
@@ -143,5 +143,7 @@ Perform the deployment specified by FILE.\n"))
                                            (machine-display-name machine))
                                      (run-with-store store (roll-back-machine machine)))
                                    (apply throw (deploy-error-captured-args c))))
-                          (run-with-store store (deploy-machine machine)))))
+                          (run-with-store store (deploy-machine machine))
+                          (info (G_ "successfully deployed ~a~%")
+                                (machine-display-name machine)))))
                     machines))))))