Skip to content
Snippets Groups Projects
Unverified Commit 831071b8 authored by Ludovic Courtès's avatar Ludovic Courtès
Browse files

services: cuirass: Honor 'user' and 'group'.

* gnu/services/cuirass.scm (cuirass-shepherd-service): Pass the user and
group of CONFIG to 'make-forkexec-constructor'.
parent b17e326f
No related branches found
No related tags found
No related merge requests found
...@@ -67,6 +67,8 @@ (define (cuirass-shepherd-service config) ...@@ -67,6 +67,8 @@ (define (cuirass-shepherd-service config)
(cuirass-configuration? config) (cuirass-configuration? config)
(let ((cache-directory (cuirass-configuration-cache-directory config)) (let ((cache-directory (cuirass-configuration-cache-directory config))
(log-file (cuirass-configuration-log-file config)) (log-file (cuirass-configuration-log-file config))
(user (cuirass-configuration-user config))
(group (cuirass-configuration-group config))
(interval (cuirass-configuration-interval config)) (interval (cuirass-configuration-interval config))
(database (cuirass-configuration-database config)) (database (cuirass-configuration-database config))
(specs (cuirass-configuration-specifications config)) (specs (cuirass-configuration-specifications config))
...@@ -90,6 +92,8 @@ (define (cuirass-shepherd-service config) ...@@ -90,6 +92,8 @@ (define (cuirass-shepherd-service config)
"--interval" #$(number->string interval) "--interval" #$(number->string interval)
#$@(if use-substitutes? '("--use-substitutes") '()) #$@(if use-substitutes? '("--use-substitutes") '())
#$@(if one-shot? '("--one-shot") '())) #$@(if one-shot? '("--one-shot") '()))
#:user #$user
#:group #$group
#:log-file #$log-file)) #:log-file #$log-file))
(stop #~(make-kill-destructor))))))) (stop #~(make-kill-destructor)))))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment