diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-04-07 10:21:48 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-04-11 20:59:40 +0200 |
| commit | cd45d656f1e8746fadacfbffd5740d22228c4c21 (patch) | |
| tree | c323d2a27e755034469b39c1ab1d8a0a34942a0d /gnu/build/vm.scm | |
| parent | ac61e876a4594af763994f0d5d4681ee5284f1f0 (diff) | |
| download | guix-cd45d656f1e8746fadacfbffd5740d22228c4c21.tar guix-cd45d656f1e8746fadacfbffd5740d22228c4c21.tar.gz | |
vm: Make the device node procedure a parameter.
* gnu/build/vm.scm (root-partition-initializer): Add #:make-device-nodes
parameter and use it.
* gnu/system/vm.scm (qemu-image): Add #:device-node parameter. Pass
#:make-device-nodes to 'root-partition-initializer'.
Diffstat (limited to 'gnu/build/vm.scm')
| -rw-r--r-- | gnu/build/vm.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gnu/build/vm.scm b/gnu/build/vm.scm index c062ab5c71..d2bf7418fd 100644 --- a/gnu/build/vm.scm +++ b/gnu/build/vm.scm @@ -371,6 +371,8 @@ it, run its initializer, and unmount it." (register-closures? #t) system-directory (deduplicate? #t) + (make-device-nodes + make-essential-device-nodes) (extra-directives '())) "Return a procedure to initialize a root partition. @@ -392,7 +394,7 @@ system that is passed to 'populate-root-file-system'." target)) ;; Populate /dev. - (make-essential-device-nodes target) + (make-device-nodes target) ;; Optionally, register the inputs in the image's store. (when register-closures? |