mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-31 06:46:50 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

reconfigure: Use 'formatted-message'.

Browse source 
* guix/scripts/system/reconfigure.scm (ensure-forward-reconfigure): Use
'formatted-message'.
* guix/scripts/deploy.scm (deploy-machine*): Handle it.
This commit is contained in:
Ludovic Courtès 2021-06-25 11:33:27 +02:00
parent 1b4931555b
commit 7916201c4d
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 13 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
guix/scripts/deploy.scm
View file

@ -28,6 +28,8 @@ (define-module (guix scripts deploy)
#:use-module (guix utils)
#:use-module (guix grafts)
#:use-module (guix status)
#:use-module (guix diagnostics)
#:use-module (guix i18n)
#:use-module (ice-9 format)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-26)
@ -132,6 +134,13 @@ (define (deploy-machine* store machine)
(leave (G_ "failed to deploy ~a: ~a~%")
(machine-display-name machine)
(condition-message c)))
((formatted-message? c)
(leave (G_ "failed to deploy ~a: ~a~%")
(machine-display-name machine)
(apply format #f
(gettext (formatted-message-string c)
%gettext-domain)
(formatted-message-arguments c))))
((deploy-error? c)
(when (deploy-error-should-roll-back c)
(info (G_ "rolling back ~a...~%")

9
guix/scripts/system/reconfigure.scm
View file

@ -308,12 +308,11 @@ (define (ensure-forward-reconfigure channel start commit relation)
('self #t)
(_
(raise (make-compound-condition
(condition
(&message (message
(format #f (G_ "\
(formatted-message (G_ "\
aborting reconfiguration because commit ~a of channel '~a' is not a descendant of ~a")
commit (channel-name channel)
start)))
commit (channel-name channel)
start)
(condition
(&fix-hint
(hint (G_ "Use @option{--allow-downgrades} to force
this downgrade.")))))))))