[bug#40149] [PATCH 4/5] deploy: Write a message upon successful deployment.

[Ludovic Courtès]

* guix/scripts/deploy.scm (guix-deploy): Write message upon successful
deployment.
---
 guix/scripts/deploy.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/guix/scripts/deploy.scm b/guix/scripts/deploy.scm
index 1f1ca58476..1d652d019d 100644
--- a/guix/scripts/deploy.scm
+++ b/guix/scripts/deploy.scm
@@ -141,5 +141,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)))))
-- 
2.25.1