summary refs log tree commit diff
path: root/gnu/services/cuirass.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-12-19 23:07:28 +0100
committerLudovic Courtès <ludo@gnu.org>2016-12-19 23:57:19 +0100
commit831071b84fe168999a49e5987a479c847b27b3d6 (patch)
tree21c921849a37fc2458710fd05cd0bbebbbeb273d /gnu/services/cuirass.scm
parentb17e326f1731d7170a48cfad4d9d4c91bad7b8a4 (diff)
downloadguix-831071b84fe168999a49e5987a479c847b27b3d6.tar.gz
services: cuirass: Honor 'user' and 'group'.
* gnu/services/cuirass.scm (cuirass-shepherd-service): Pass the user and
group of CONFIG to 'make-forkexec-constructor'.
Diffstat (limited to 'gnu/services/cuirass.scm')
-rw-r--r--gnu/services/cuirass.scm4
1 files changed, 4 insertions, 0 deletions
diff --git a/gnu/services/cuirass.scm b/gnu/services/cuirass.scm
index 8e9316ffc7..c2fe9d9bf7 100644
--- a/gnu/services/cuirass.scm
+++ b/gnu/services/cuirass.scm
@@ -67,6 +67,8 @@
    (cuirass-configuration? config)
    (let ((cache-directory  (cuirass-configuration-cache-directory config))
          (log-file         (cuirass-configuration-log-file config))
+         (user             (cuirass-configuration-user config))
+         (group            (cuirass-configuration-group config))
          (interval         (cuirass-configuration-interval config))
          (database         (cuirass-configuration-database config))
          (specs            (cuirass-configuration-specifications config))
@@ -90,6 +92,8 @@
                             "--interval" #$(number->string interval)
                             #$@(if use-substitutes? '("--use-substitutes") '())
                             #$@(if one-shot? '("--one-shot") '()))
+                      #:user #$user
+                      #:group #$group
                       #:log-file #$log-file))
             (stop #~(make-kill-destructor)))))))