diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-01-26 00:01:16 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-01-26 00:06:32 +0100 |
| commit | ac41737f49402f8717a2f105a1910ffd9c6cfdb4 (patch) | |
| tree | 24f5adb20398b4670b4a65e1d7cbb2bf45f431f4 /gnu/services | |
| parent | dfba54893e2c1a0b04ff05d289f15308907e7dbe (diff) | |
| download | guix-ac41737f49402f8717a2f105a1910ffd9c6cfdb4.tar.gz | |
services: dbus: Set the search path for .service files.
* gnu/services/dbus.scm (dbus-configuration-directory)[services->sxml]: Produce a <servicedir> tag.
Diffstat (limited to 'gnu/services')
| -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") |