aboutsummaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
Diffstat (limited to 'gnu')
-rw-r--r--gnu/services/desktop.scm7
1 files 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"))))