From fb1a8642ee783499f42d3e8d95c8601fa116606c Mon Sep 17 00:00:00 2001 From: Tobias Geerinckx-Rice Date: Sun, 8 Sep 2024 02:00:00 +0200 Subject: 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 --- gnu/services/desktop.scm | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm index 041a1aab0f..274aeeef9b 100644 --- a/gnu/services/desktop.scm +++ b/gnu/services/desktop.scm @@ -2051,11 +2051,8 @@ applications needing access to be root.") ;; 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")))) -- cgit v1.2.3