aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-07-11 00:47:57 +0200
committerLudovic Courtès <ludo@gnu.org>2017-07-11 00:48:51 +0200
commit3e8d037b168f101aa4691f0f963e6084e0f37df7 (patch)
tree9de9afa037f831ad4e495a1706ab85168c6fd3c8
parent638e9deaf8926f02cb7ee861914b8eee5a3463a3 (diff)
downloadguix-3e8d037b168f101aa4691f0f963e6084e0f37df7.tar
guix-3e8d037b168f101aa4691f0f963e6084e0f37df7.tar.gz
services: dbus, polkit: Add default value.
* gnu/services/dbus.scm (dbus-root-service-type)[default-value]: New field. (polkit-service-type)[default-value]: New field.
-rw-r--r--gnu/services/dbus.scm10
1 files changed, 7 insertions, 3 deletions
diff --git a/gnu/services/dbus.scm b/gnu/services/dbus.scm
index 26390a4acd..360a8af9ab 100644
--- a/gnu/services/dbus.scm
+++ b/gnu/services/dbus.scm
@@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2013, 2014, 2015, 2016 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2013, 2014, 2015, 2016, 2017 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015 Sou Bunnbu <iyzsong@gmail.com>
;;;
;;; This file is part of GNU Guix.
@@ -205,7 +205,9 @@ includes the @code{etc/dbus-1/system.d} directories of each package listed in
(inherit config)
(services
(append (dbus-configuration-services config)
- services)))))))
+ services)))))
+
+ (default-value (dbus-configuration))))
(define* (dbus-service #:key (dbus dbus) (services '()))
"Return a service that runs the \"system bus\", using @var{dbus}, with
@@ -297,7 +299,9 @@ and policy files. For example, to allow avahi-daemon to use the system bus,
(inherit config)
(actions
(append (polkit-configuration-actions config)
- actions)))))))
+ actions)))))
+
+ (default-value (polkit-configuration))))
(define* (polkit-service #:key (polkit polkit))
"Return a service that runs the