ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gnu/services/dbus.scm
View file

@ -24,7 +24,6 @@ (define-module (gnu services dbus)
#:use-module (gnu services) #:use-module (gnu services)
#:use-module (gnu services shepherd) #:use-module (gnu services shepherd)
#:use-module (gnu system privilege) #:use-module (gnu system privilege)
#:use-module (gnu system setuid)
#:use-module (gnu system shadow) #:use-module (gnu system shadow)
#:use-module (gnu system pam) #:use-module (gnu system pam)
#:use-module ((gnu packages glib) #:select (dbus)) #:use-module ((gnu packages glib) #:select (dbus))
@ -390,7 +389,7 @@ (define polkit-etc-files
(($ <polkit-configuration> polkit packages) (($ <polkit-configuration> polkit packages)
`(("polkit-1" ,(polkit-directory (cons polkit packages))))))) `(("polkit-1" ,(polkit-directory (cons polkit packages)))))))
(define polkit-setuid-programs (define polkit-privileged-programs
(match-lambda (match-lambda
(($ <polkit-configuration> polkit) (($ <polkit-configuration> polkit)
(map file-like->setuid-program (map file-like->setuid-program
@ -410,8 +409,8 @@ (define polkit-service-type
polkit-configuration-polkit)) polkit-configuration-polkit))
(service-extension etc-service-type (service-extension etc-service-type
polkit-etc-files) polkit-etc-files)
(service-extension setuid-program-service-type (service-extension privileged-program-service-type
polkit-setuid-programs))) polkit-privileged-programs)))
;; Extensions are lists of packages that provide polkit rules ;; Extensions are lists of packages that provide polkit rules
;; or actions under share/polkit-1/{actions,rules.d}. ;; or actions under share/polkit-1/{actions,rules.d}.