diff options
| -rw-r--r-- | gnu/services/dbus.scm | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/gnu/services/dbus.scm b/gnu/services/dbus.scm index d97c54cc5d..671dafa194 100644 --- a/gnu/services/dbus.scm +++ b/gnu/services/dbus.scm @@ -40,15 +40,18 @@ @var{services}." (define build #~(begin - (use-modules (sxml simple)) + (use-modules (sxml simple) + (srfi srfi-1)) (define (services->sxml services) ;; Return the SXML 'includedir' clauses for DIRS. `(busconfig - ,@(map (lambda (dir) - `(includedir ,(string-append dir - "/etc/dbus-1/system.d"))) - services))) + ,@(append-map (lambda (dir) + `((includedir + ,(string-append dir "/etc/dbus-1/system.d")) + (servicedir ;for '.service' files + ,(string-append dir "/share/dbus-1/services")))) + services))) (mkdir #$output) (copy-file (string-append #$dbus "/etc/dbus-1/system.conf") |