services: udev: Explicitly depend on (gnu build linux-boot).

* gnu/services/base.scm (udev-shepherd-service): Wrap 'start' method in
'with-imported-modules'.
This commit is contained in:
Ludovic Courtès 2019-10-06 12:42:41 +02:00
parent 62c2217570
commit 38b1ea0434
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 55 additions and 52 deletions

View File

@ -1996,7 +1996,10 @@ item of @var{packages}."
(requirement '(root-file-system)) (requirement '(root-file-system))
(documentation "Populate the /dev directory, dynamically.") (documentation "Populate the /dev directory, dynamically.")
(start #~(lambda () (start
(with-imported-modules (source-module-closure
'((gnu build linux-boot)))
#~(lambda ()
(define udevd (define udevd
;; 'udevd' from eudev. ;; 'udevd' from eudev.
#$(file-append udev "/sbin/udevd")) #$(file-append udev "/sbin/udevd"))
@ -2053,7 +2056,7 @@ item of @var{packages}."
;; Wait for things to settle down. ;; Wait for things to settle down.
(system* #$(file-append udev "/bin/udevadm") (system* #$(file-append udev "/bin/udevadm")
"settle") "settle")
pid))) pid))))
(stop #~(make-kill-destructor)) (stop #~(make-kill-destructor))
;; When halting the system, 'udev' is actually killed by ;; When halting the system, 'udev' is actually killed by
@ -2061,7 +2064,7 @@ item of @var{packages}."
;; Thus, make sure it is not respawned. ;; Thus, make sure it is not respawned.
(respawn? #f) (respawn? #f)
;; We need additional modules. ;; We need additional modules.
(modules `((gnu build linux-boot) (modules `((gnu build linux-boot) ;'make-static-device-nodes'
,@%default-modules)) ,@%default-modules))
(actions (list (shepherd-action (actions (list (shepherd-action