summaryrefslogtreecommitdiff
path: root/gnu/build/vm.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-04-07 10:21:48 +0200
committerLudovic Courtès <ludo@gnu.org>2020-04-11 20:59:40 +0200
commitcd45d656f1e8746fadacfbffd5740d22228c4c21 (patch)
treec323d2a27e755034469b39c1ab1d8a0a34942a0d /gnu/build/vm.scm
parentac61e876a4594af763994f0d5d4681ee5284f1f0 (diff)
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.scm4
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?