futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

linux-boot: Allow the root file system to be mounted via NFS.

Browse Source 
* gnu/build/linux-boot.scm (boot-system) Treat a root option with ":/" as an nfs source
and avoid to call 'canonicalize-device-spec' for it.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Stefan 2020-04-26 21:21:38 +02:00 committed by Ludovic Courtès
parent 5af2a8fe96
commit afc57916e5
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gnu/build/linux-boot.scm
View File

@ -534,10 +534,13 @@ upon error."
;; The "--root=SPEC" kernel command-line option always provides a ;; The "--root=SPEC" kernel command-line option always provides a
;; string, but the string can represent a device, a UUID, or a ;; string, but the string can represent a device, a UUID, or a
;; label. So check for all three. ;; label. So check for all three.
(let ((root (cond ((string-prefix? "/" root) root) (let ((device-spec (cond ((string-prefix? "/" root) root)
((uuid root) => identity) ((uuid root) => identity)
(else (file-system-label root))))) ((string-contains root ":/") #f) ; nfs
(mount-root-file-system (canonicalize-device-spec root) (else (file-system-label root)))))
(mount-root-file-system (if device-spec
(canonicalize-device-spec device-spec)
root)
root-fs-type root-fs-type
#:volatile-root? volatile-root? #:volatile-root? volatile-root?
#:flags root-fs-flags #:flags root-fs-flags