summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-03-20 14:52:01 +0100
committerLudovic Courtès <ludo@gnu.org>2020-03-23 10:48:17 +0100
commit129237272505d58e121c40b938c7227f294ecb82 (patch)
tree44df8339ed6cd542a434c1c2a4dd05ede1e58ffe
parent1bb248d0b10af77379096f4456ce6f5c5d1c23ac (diff)
downloadpatches-129237272505d58e121c40b938c7227f294ecb82.tar
patches-129237272505d58e121c40b938c7227f294ecb82.tar.gz
deploy: Write a message upon successful deployment.
* guix/scripts/deploy.scm (guix-deploy): Write message upon successful deployment.
-rw-r--r--guix/scripts/deploy.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/guix/scripts/deploy.scm b/guix/scripts/deploy.scm
index d4d07bea5a..f70d41f35c 100644
--- 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))))))