Skip to content
Snippets Groups Projects
Unverified Commit dae950ca authored by Ludovic Courtès's avatar Ludovic Courtès
Browse files

deploy: Do not quote error messages. 

* guix/scripts/deploy.scm (guix-deploy): Do not quote the message.
parent e09c7f4a
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 1 deletion
guix/scripts/deploy.scm
+ 1
− 1
View file @ dae950ca
...@@ -94,7 +94,7 @@ (define (handle-argument arg result) ...@@ -94,7 +94,7 @@ (define (handle-argument arg result)
(machine-display-name machine)) (machine-display-name machine))
(parameterize ((%graft? (assq-ref opts 'graft?))) (parameterize ((%graft? (assq-ref opts 'graft?)))
(guard (c ((message-condition? c) (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) (machine-display-name machine)
(condition-message c))) (condition-message c)))
((deploy-error? c) ((deploy-error? c)
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment