summaryrefslogtreecommitdiff
path: root/gnu/machine
diff options
context:
space:
mode:
author宋文武 <iyzsong@member.fsf.org>2019-08-17 20:26:58 +0800
committer宋文武 <iyzsong@member.fsf.org>2019-08-17 20:45:13 +0800
commit02460db0474ff5ac0d867ed6d5b192c062af0abc (patch)
tree0a58ad42cbb60f97751395a337c4f4657ed53961 /gnu/machine
parent2a63974df9b6ce2ec076b24f300e63b6b3df549f (diff)
machine: ssh: Fix sanity checks.
* gnu/machine/ssh.scm (machine-check-file-system-availability)[check-labeled-file-system]: Use 'source-module-closure' for '(gnu build file-systems)'. (machine-check-initrd-modules): Unquote 'file-system-label->string' instead of 'device'.
Diffstat (limited to 'gnu/machine')
-rw-r--r--gnu/machine/ssh.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/gnu/machine/ssh.scm b/gnu/machine/ssh.scm
index aafe0ccf41..6e3ed0e092 100644
--- a/gnu/machine/ssh.scm
+++ b/gnu/machine/ssh.scm
@@ -166,7 +166,8 @@ MACHINE's 'system' declaration do not exist on the machine."
(define (check-labeled-file-system fs)
(define remote-exp
- (with-imported-modules '((gnu build file-systems))
+ (with-imported-modules (source-module-closure
+ '((gnu build file-systems)))
#~(begin
(use-modules (gnu build file-systems))
(find-partition-by-label #$(file-system-label->string
@@ -243,7 +244,7 @@ MACHINE's 'system' declaration do not exist on the machine."
#$(uuid->string device))))
((file-system-label? device)
#~(find-partition-by-label
- (file-system-label->string #$device)))))
+ #$(file-system-label->string device)))))
(missing-modules dev '#$(operating-system-initrd-modules
(machine-operating-system machine)))))))