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:
parent
62c2217570
commit
38b1ea0434
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue