services: dbus: Search more directories for '.service' files.

* gnu/services/dbus.scm (system-service-directory): Remove one level of
directories when searching for '.service' files.
This commit is contained in:
Efraim Flashner 2018-05-18 18:23:39 +03:00
parent 9b0e51461d
commit 6a2b906565
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351

View file

@ -63,7 +63,7 @@ (define files
(find-files (find-files
(string-append (string-append
service service
"/share/dbus-1/system-services") "/share/dbus-1/")
"\\.service$")) "\\.service$"))
(list #$@services))) (list #$@services)))