services: polkit: Migrate to (gnu system privilege).

* 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
This commit is contained in:
Tobias Geerinckx-Rice 2024-09-08 02:00:00 +02:00
parent c6fe8424e4
commit 67f4a3ddfd
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79

View file

@ -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-configuration> polkit packages)
`(("polkit-1" ,(polkit-directory (cons polkit packages)))))))
(define polkit-setuid-programs
(define polkit-privileged-programs
(match-lambda
(($ <polkit-configuration> 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}.