diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-03-20 14:52:01 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-03-23 10:48:17 +0100 |
| commit | 129237272505d58e121c40b938c7227f294ecb82 (patch) | |
| tree | 44df8339ed6cd542a434c1c2a4dd05ede1e58ffe | |
| parent | 1bb248d0b10af77379096f4456ce6f5c5d1c23ac (diff) | |
| download | guix-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.scm | 4 |
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)))))) |