04/08: services: polkit: Migrate to (gnu system privilege).

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit 67f4a3ddfdea061b480fe13dd5d5d0ed31160130
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Sun Sep 8 02:00:00 2024 +0200

    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
---
 gnu/services/dbus.scm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

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 @@
   #: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 @@ tuples, are all set as environment variables when the bus 
daemon launches it."
     (($ <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 @@ tuples, are all set as environment variables when the bus 
daemon launches it."
                                            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}.