nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

* gnu/services/cuirass.scm (cuirass-shepherd-service): Pass the user and
group of CONFIG to 'make-forkexec-constructor'.
This commit is contained in:
Ludovic Courtès 2016-12-19 23:07:28 +01:00
parent b17e326f17
commit 831071b84f
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gnu/services/cuirass.scm
View File

@ -67,6 +67,8 @@
(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 @@
"--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)))))))