summaryrefslogtreecommitdiff
path: root/gnu/machine
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/machine')
-rw-r--r--gnu/machine/ssh.scm3
1 files changed, 3 insertions, 0 deletions
diff --git a/gnu/machine/ssh.scm b/gnu/machine/ssh.scm
index 35b42add48e..5020bd362f7 100644
--- a/gnu/machine/ssh.scm
+++ b/gnu/machine/ssh.scm
@@ -480,6 +480,8 @@ an environment type of 'managed-host."
480 (raise roll-back-failure))) 480 (raise roll-back-failure)))
481 (entries -> (map boot-parameters->menu-entry 481 (entries -> (map boot-parameters->menu-entry
482 (list (second boot-parameters)))) 482 (list (second boot-parameters))))
483 (locale -> (boot-parameters-locale
484 (second boot-parameters)))
483 (old-entries -> (map boot-parameters->menu-entry 485 (old-entries -> (map boot-parameters->menu-entry
484 (drop boot-parameters 2))) 486 (drop boot-parameters 2)))
485 (bootloader -> (operating-system-bootloader 487 (bootloader -> (operating-system-bootloader
@@ -489,6 +491,7 @@ an environment type of 'managed-host."
489 (bootloader-configuration-bootloader 491 (bootloader-configuration-bootloader
490 bootloader)) 492 bootloader))
491 bootloader entries 493 bootloader entries
494 #:locale locale
492 #:old-entries old-entries))) 495 #:old-entries old-entries)))
493 (remote-result (machine-remote-eval machine remote-exp))) 496 (remote-result (machine-remote-eval machine remote-exp)))
494 (when (eqv? 'error remote-result) 497 (when (eqv? 'error remote-result)