02/02: services: Add pkexec to setuid programs.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository guix.

commit eac26c3b09138f3ef22497fcf97212c376fc6d5c
Author: Ricardo Wurmus <address@hidden>
Date:   Sat Nov 21 22:40:22 2015 +0100

    services: Add pkexec to setuid programs.
    
    * gnu/services/desktop.scm (polkit-setuid-programs): Add pkexec to
      list of setuid programs.
---
 gnu/services/desktop.scm |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm
index 0b4ed56..694a8ed 100644
--- a/gnu/services/desktop.scm
+++ b/gnu/services/desktop.scm
@@ -381,7 +381,8 @@ site} for more information."
   (match-lambda
     (($ <polkit-configuration> polkit)
      (list #~(string-append #$polkit
-                            "/lib/polkit-1/polkit-agent-helper-1")))))
+                            "/lib/polkit-1/polkit-agent-helper-1")
+           #~(string-append #$polkit "/bin/pkexec")))))
 
 (define polkit-service-type
   (service-type (name 'polkit)