diff options
| author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2025-02-24 16:36:41 +0900 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2025-04-30 22:44:34 +0900 |
| commit | bb8cc412c8fcab613c402e06ae7024d6df5c9010 (patch) | |
| tree | 97c834da2c3fa9c8fb10bad468b2836dfd99a565 /gnu/services/base.scm | |
| parent | dde3ac664cabf9dd2a5702036b102368ba61acd4 (diff) | |
services/udev: Allow configuring udev to run in debug mode.
This re-introduces commit dd64f441d3dcff9165927b821da2b69b1fc6a24f, which had
been reverted due to previously causing a system hang when debug? was enabled,
a problem that appears to have been resolved within Shepherd.
* 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/base.scm')
| -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 8c6563c99de..650121be8f1 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 @@ -2581,6 +2583,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 @@ -2723,7 +2727,10 @@ item of PACKAGES." (umask old-umask)) (let ((pid (fork+exec-command - (list udevd) + (list udevd + #$@(if (udev-configuration-debug? config) + '("--debug") + '())) #:environment-variables (cons* (string-append "LINUX_MODULE_DIRECTORY=" |