mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-01 07:16:39 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

deploy: Write a message upon successful deployment.

Browse source 
* guix/scripts/deploy.scm (guix-deploy): Write message upon successful
deployment.
This commit is contained in:
Ludovic Courtès 2020-03-20 14:52:01 +01:00
parent 1bb248d0b1
commit 1292372725
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
guix/scripts/deploy.scm
View file

@ -143,5 +143,7 @@ (define (handle-argument arg result)
(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))))))