From 831071b84fe168999a49e5987a479c847b27b3d6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Mon, 19 Dec 2016 23:07:28 +0100 Subject: [PATCH] services: cuirass: Honor 'user' and 'group'. * gnu/services/cuirass.scm (cuirass-shepherd-service): Pass the user and group of CONFIG to 'make-forkexec-constructor'. --- gnu/services/cuirass.scm | 4 ++++ 1 file changed, 4 insertions(+) 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)))))))