diff options
| author | 宋文武 <iyzsong@member.fsf.org> | 2019-08-17 20:26:58 +0800 |
|---|---|---|
| committer | 宋文武 <iyzsong@member.fsf.org> | 2019-08-17 20:45:13 +0800 |
| commit | 02460db0474ff5ac0d867ed6d5b192c062af0abc (patch) | |
| tree | 0a58ad42cbb60f97751395a337c4f4657ed53961 /gnu | |
| parent | 2a63974df9b6ce2ec076b24f300e63b6b3df549f (diff) | |
| download | guix-02460db0474ff5ac0d867ed6d5b192c062af0abc.tar.gz | |
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')
| -rw-r--r-- | gnu/machine/ssh.scm | 5 |
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))))))) |