diff options
| -rw-r--r-- | gnu/services/dbus.scm | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/gnu/services/dbus.scm b/gnu/services/dbus.scm index 1fa910af56..1d504a8309 100644 --- a/gnu/services/dbus.scm +++ b/gnu/services/dbus.scm @@ -118,15 +118,17 @@ includes the @code{etc/dbus-1/system.d} directories of each package listed in (execl prog))) (waitpid pid))))))) -(define (dbus-dmd-service config) - (list (dmd-service - (documentation "Run the D-Bus system daemon.") - (provision '(dbus-system)) - (requirement '(user-processes)) - (start #~(make-forkexec-constructor - (list (string-append #$dbus "/bin/dbus-daemon") - "--nofork" "--system"))) - (stop #~(make-kill-destructor))))) +(define dbus-dmd-service + (match-lambda + (($ <dbus-configuration> dbus) + (list (dmd-service + (documentation "Run the D-Bus system daemon.") + (provision '(dbus-system)) + (requirement '(user-processes)) + (start #~(make-forkexec-constructor + (list (string-append #$dbus "/bin/dbus-daemon") + "--nofork" "--system"))) + (stop #~(make-kill-destructor))))))) (define dbus-root-service-type (service-type (name 'dbus) |