From 67f4a3ddfdea061b480fe13dd5d5d0ed31160130 Mon Sep 17 00:00:00 2001 From: Tobias Geerinckx-Rice Date: Sun, 8 Sep 2024 02:00:00 +0200 Subject: services: polkit: Migrate to (gnu system privilege). MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/services/dbus.scm (polkit-setuid-programs): Rename this… (polkit-privileged-programs): …to this. (polkit-service-type): Extend PRIVILEGED-PROGRAM-SERVICE-TYPE with it. Change-Id: Iae742ada6162301cdca9df5df5502f70037aaef2 --- gnu/services/dbus.scm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'gnu/services') diff --git a/gnu/services/dbus.scm b/gnu/services/dbus.scm index f9529f2934..76e04bf221 100644 --- a/gnu/services/dbus.scm +++ b/gnu/services/dbus.scm @@ -24,7 +24,6 @@ (define-module (gnu services dbus) #:use-module (gnu services) #:use-module (gnu services shepherd) #:use-module (gnu system privilege) - #:use-module (gnu system setuid) #:use-module (gnu system shadow) #:use-module (gnu system pam) #:use-module ((gnu packages glib) #:select (dbus)) @@ -390,7 +389,7 @@ (define polkit-etc-files (($ polkit packages) `(("polkit-1" ,(polkit-directory (cons polkit packages))))))) -(define polkit-setuid-programs +(define polkit-privileged-programs (match-lambda (($ polkit) (map file-like->setuid-program @@ -410,8 +409,8 @@ (define polkit-service-type polkit-configuration-polkit)) (service-extension etc-service-type polkit-etc-files) - (service-extension setuid-program-service-type - polkit-setuid-programs))) + (service-extension privileged-program-service-type + polkit-privileged-programs))) ;; Extensions are lists of packages that provide polkit rules ;; or actions under share/polkit-1/{actions,rules.d}. -- cgit v1.2.3