aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-01-26 00:01:16 +0100
committerLudovic Courtès <ludo@gnu.org>2015-01-26 00:06:32 +0100
commitac41737f49402f8717a2f105a1910ffd9c6cfdb4 (patch)
tree24f5adb20398b4670b4a65e1d7cbb2bf45f431f4
parentdfba54893e2c1a0b04ff05d289f15308907e7dbe (diff)
downloadguix-ac41737f49402f8717a2f105a1910ffd9c6cfdb4.tar.gz
guix-ac41737f49402f8717a2f105a1910ffd9c6cfdb4.zip
services: dbus: Set the search path for .service files.
* gnu/services/dbus.scm (dbus-configuration-directory)[services->sxml]: Produce a <servicedir> tag.
-rw-r--r--gnu/services/dbus.scm13
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")