nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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'.
This commit is contained in:
宋文武 2019-08-17 20:26:58 +08:00
parent 2a63974df9
commit 02460db047
No known key found for this signature in database
GPG Key ID: D415BF253B515976
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gnu/machine/ssh.scm
View File

@ -166,7 +166,8 @@ MACHINE's 'system' declaration do not exist on the machine."
(define (check-labeled-file-system fs) (define (check-labeled-file-system fs)
(define remote-exp (define remote-exp
(with-imported-modules '((gnu build file-systems)) (with-imported-modules (source-module-closure
'((gnu build file-systems)))
#~(begin #~(begin
(use-modules (gnu build file-systems)) (use-modules (gnu build file-systems))
(find-partition-by-label #$(file-system-label->string (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)))) #$(uuid->string device))))
((file-system-label? device) ((file-system-label? device)
#~(find-partition-by-label #~(find-partition-by-label
(file-system-label->string #$device))))) #$(file-system-label->string device)))))
(missing-modules dev '#$(operating-system-initrd-modules (missing-modules dev '#$(operating-system-initrd-modules
(machine-operating-system machine))))))) (machine-operating-system machine)))))))