ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 22:08:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: cuirass: Add 'log-file' option.

Browse source 
* gnu/services/cuirass.scm (<cuirass-configuration>)[log-file]: New
field.
(cuirass-shepherd-service): Pass it to 'make-forkexec-constructor'.
This commit is contained in:
Ludovic Courtès 2016-12-19 23:01:04 +01:00
parent 2eadd8285a
commit b17e326f17
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
doc/guix.texi
View file

@ -11990,6 +11990,9 @@ accessible in other @code{cuirass-configuration} fields.
Data type representing the configuration of Cuirass.
@table @asis
@item @code{log-file} (default: @code{"/var/log/cuirass.log"})
Location of the log file.
@item @code{cache-directory} (default: @code{""})
Location of the repository cache.

6
gnu/services/cuirass.scm
View file

@ -42,6 +42,8 @@ (define-module (gnu services cuirass)
(define-record-type* <cuirass-configuration>
cuirass-configuration make-cuirass-configuration
cuirass-configuration?
(log-file cuirass-configuration-log-file ;string
(default "/var/log/cuirass.log"))
(cache-directory cuirass-configuration-cache-directory ;string (dir-name)
(default ""))
(user cuirass-configuration-user ;string
@ -64,6 +66,7 @@ (define (cuirass-shepherd-service config)
(and
(cuirass-configuration? config)
(let ((cache-directory (cuirass-configuration-cache-directory config))
(log-file (cuirass-configuration-log-file config))
(interval (cuirass-configuration-interval config))
(database (cuirass-configuration-database config))
(specs (cuirass-configuration-specifications config))
@ -86,7 +89,8 @@ (define (cuirass-shepherd-service config)
"--database" #$database
"--interval" #$(number->string interval)
#$@(if use-substitutes? '("--use-substitutes") '())
#$@(if one-shot? '("--one-shot") '()))))
#$@(if one-shot? '("--one-shot") '()))
#:log-file #$log-file))
(stop #~(make-kill-destructor)))))))
(define (cuirass-account config)