diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2021-02-25 10:01:56 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2021-02-25 11:29:35 +0100 |
| commit | 120051e1b9358f75b228e97670843095d5fcdf49 (patch) | |
| tree | ac029f1c298cfaacc5f8330d662190aa8863007e | |
| parent | 73303067c77becb861d8e288bb115149ac6999cd (diff) | |
| download | guix-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.scm | 6 |
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)) |