diff options
| author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2025-02-24 16:36:41 +0900 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2025-03-03 00:31:46 +0900 |
| commit | dd64f441d3dcff9165927b821da2b69b1fc6a24f (patch) | |
| tree | 155b42ef09655eaf1e35ccdee9f162faf1531874 /gnu/services | |
| parent | 8a103bc92fe7ded571583a20838bfceeedf584b9 (diff) | |
services/udev: Allow configuring udev to run in debug mode.
* gnu/services/base.scm (<udev-configuration>): <debug?>: New field.
* gnu/services/base.scm (udev-shepherd-service): Use it to add '--debug' to
the command line, if applicable.
* doc/guix.texi (Base Services): Document it.
Change-Id: I88243fb4f321ff0876dd227e3c2b22082d37cfcf
Diffstat (limited to 'gnu/services')
| -rw-r--r-- | gnu/services/base.scm | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/gnu/services/base.scm b/gnu/services/base.scm index 2ff9bee4a79..220642e8ebb 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -15,7 +15,7 @@ ;;; Copyright © 2020, 2021 Brice Waegeneire <brice@waegenei.re> ;;; Copyright © 2021 qblade <qblade@protonmail.com> ;;; Copyright © 2021 Hui Lu <luhuins@163.com> -;;; Copyright © 2021, 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com> +;;; Copyright © 2021-2023, 2025 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2021, 2025 muradm <mail@muradm.net> ;;; Copyright © 2022 Guillaume Le Vaillant <glv@posteo.net> ;;; Copyright © 2022 Justin Veilleux <terramorpha@cock.li> @@ -160,6 +160,8 @@ udev-configuration udev-configuration? + udev-configuration-udev + udev-configuration-debug? udev-configuration-rules udev-configuration-hardware udev-service-type @@ -2410,6 +2412,8 @@ command that allows you to share pre-built binaries with others over HTTP."))) udev-configuration? (udev udev-configuration-udev ;file-like (default eudev)) + (debug? udev-configuration-debug? ;boolean + (default #f)) (rules udev-configuration-rules ;list of file-like (default '())) (hardware udev-configuration-hardware ;list of file-like @@ -2552,7 +2556,10 @@ item of PACKAGES." (umask old-umask)) (let ((pid (fork+exec-command - (list udevd) + `(,udevd + ,@(if #$(udev-configuration-debug? config) + '("--debug") + '())) #:environment-variables (cons* ;; The first one is for udev, the second one for |