aboutsummaryrefslogtreecommitdiff
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
parentb17e326f1731d7170a48cfad4d9d4c91bad7b8a4 (diff)
downloadpatches-831071b84fe168999a49e5987a479c847b27b3d6.tar
patches-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'.
-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)))))))