103/155: services: cuirass: Honor 'user' and 'group'.

[John Darrington]

jmd pushed a commit to branch wip-installer
in repository guix.

commit 3ad006c453890ca1238c59bb8fdc4f120509798f
Author: Ludovic Courtès <address@hidden>
Date:   Mon Dec 19 23:07:28 2016 +0100

    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 8e9316f..c2fe9d9 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)))))))