aboutsummaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
authorBruno Victal <mirai@makinata.eu>2023-02-25 18:58:04 +0000
committerLudovic Courtès <ludo@gnu.org>2023-03-03 17:55:34 +0100
commitffc5d42fc2589c349579c00e9dd11fabdff2663b (patch)
treeea2dd2e1b87933bae294af794627a951b23cee26 /gnu
parentc3dc13e29c624609b851ef50db343074fad2d7cb (diff)
downloadguix-ffc5d42fc2589c349579c00e9dd11fabdff2663b.tar.gz
guix-ffc5d42fc2589c349579c00e9dd11fabdff2663b.zip
services: dbus: Deprecate 'polkit-service' procedure.
* doc/guix.texi (Desktop Services): Replace 'polkit-service' with 'polkit-service-type'. * gnu/services/dbus.scm (polkit-service): Deprecate procedure. * gnu/tests/docker.scm (%docker-os): Use polkit-service-type. * gnu/tests/virtualization.scm (%libvirt-os): Ditto. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'gnu')
-rw-r--r--gnu/services/dbus.scm6
-rw-r--r--gnu/tests/docker.scm2
-rw-r--r--gnu/tests/virtualization.scm2
3 files changed, 6 insertions, 4 deletions
diff --git a/gnu/services/dbus.scm b/gnu/services/dbus.scm
index 5efd6bdadf..ea2593501f 100644
--- a/gnu/services/dbus.scm
+++ b/gnu/services/dbus.scm
@@ -28,6 +28,7 @@
#:use-module ((gnu packages glib) #:select (dbus))
#:use-module (gnu packages polkit)
#:use-module (gnu packages admin)
+ #:use-module (guix deprecation)
#:use-module (guix gexp)
#:use-module ((guix packages) #:select (package-name))
#:use-module (guix records)
@@ -43,7 +44,7 @@
polkit-configuration
polkit-configuration?
polkit-service-type
- polkit-service))
+ polkit-service)) ; deprecated
;;;
;;; D-Bus.
@@ -404,7 +405,8 @@ management service}, which allows system administrators to grant access to
privileged operations in a structured way. Polkit is a requirement for most
desktop environments, such as GNOME.")))
-(define* (polkit-service #:key (polkit polkit))
+(define-deprecated (polkit-service #:key (polkit polkit))
+ polkit-service-type
"Return a service that runs the
@uref{http://www.freedesktop.org/wiki/Software/polkit/, Polkit privilege
management service}, which allows system administrators to grant access to
diff --git a/gnu/tests/docker.scm b/gnu/tests/docker.scm
index 4267ff89a8..e464ec587e 100644
--- a/gnu/tests/docker.scm
+++ b/gnu/tests/docker.scm
@@ -49,7 +49,7 @@
(simple-operating-system
(service dhcp-client-service-type)
(dbus-service)
- (polkit-service)
+ (service polkit-service-type)
(service elogind-service-type)
(service docker-service-type)))
diff --git a/gnu/tests/virtualization.scm b/gnu/tests/virtualization.scm
index 60789fbb5b..6749ade4bd 100644
--- a/gnu/tests/virtualization.scm
+++ b/gnu/tests/virtualization.scm
@@ -50,7 +50,7 @@
(simple-operating-system
(service dhcp-client-service-type)
(dbus-service)
- (polkit-service)
+ (service polkit-service-type)
(service libvirt-service-type)))
(define (run-libvirt-test)