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

* gnu/services/desktop.scm (desktop-services-for-system): Extend
PRIVILEGED-PROGRAM-SERVICE-TYPE rather than SETUID-PROGRAM-SERVICE-TYPE
and use the totally new FILE-LIKE->SETUID-PROGRAM.

Change-Id: Ia8cac67c8234657332390794a41d91e60f788d90
This commit is contained in:
Tobias Geerinckx-Rice 2024-09-08 02:00:00 +02:00
parent 67f4a3ddfd
commit fb1a8642ee
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79

View file

@ -2051,11 +2051,8 @@ (define* (desktop-services-for-system #:optional
;; Allow desktop users to also mount NTFS and NFS file systems
;; without root.
(simple-service 'mount-setuid-helpers setuid-program-service-type
(map (lambda (program)
(privileged-program
(program program)
(setuid? #t)))
(simple-service 'mount-setuid-helpers privileged-program-service-type
(map file-like->setuid-program
(list (file-append nfs-utils "/sbin/mount.nfs")
(file-append ntfs-3g "/sbin/mount.ntfs-3g"))))