deploy: Do not quote error messages.

* guix/scripts/deploy.scm (guix-deploy): Do not quote the message.
This commit is contained in:
Ludovic Courtès 2019-08-28 18:51:49 +02:00
parent e09c7f4ae4
commit dae950ca50
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -94,7 +94,7 @@ (define (handle-argument arg result)
(machine-display-name machine))
(parameterize ((%graft? (assq-ref opts 'graft?)))
(guard (c ((message-condition? c)
(report-error (G_ "failed to deploy ~a: '~a'~%")
(report-error (G_ "failed to deploy ~a: ~a~%")
(machine-display-name machine)
(condition-message c)))
((deploy-error? c)