diff options
| -rw-r--r-- | gnu/services/desktop.scm | 7 |
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")))) |