aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2021-02-25 10:01:56 +0100
committerLudovic Courtès <ludo@gnu.org>2021-02-25 11:29:35 +0100
commit120051e1b9358f75b228e97670843095d5fcdf49 (patch)
treeac029f1c298cfaacc5f8330d662190aa8863007e
parent73303067c77becb861d8e288bb115149ac6999cd (diff)
downloadguix-120051e1b9358f75b228e97670843095d5fcdf49.tar
guix-120051e1b9358f75b228e97670843095d5fcdf49.tar.gz
machine: ssh: Use 'formatted-message'.
* gnu/machine/ssh.scm (machine-check-initrd-modules): Use 'formatted-message' instead of 'format' + '&message'.
-rw-r--r--gnu/machine/ssh.scm6
1 files changed, 2 insertions, 4 deletions
diff --git a/gnu/machine/ssh.scm b/gnu/machine/ssh.scm
index 997d673e75..fa942169c4 100644
--- a/gnu/machine/ssh.scm
+++ b/gnu/machine/ssh.scm
@@ -270,11 +270,9 @@ not available in the initrd."
(remote-let ((missing remote-exp))
(unless (null? missing)
- (raise (condition
- (&message
- (message (format #f (G_ "missing modules for ~a:~{ ~a~}~%")
+ (raise (formatted-message (G_ "missing modules for ~a:~{ ~a~}~%")
(file-system-device fs)
- missing))))))))
+ missing)))))
(map missing-modules file-systems))