services: cuirass: Add 'log-file' option.
* gnu/services/cuirass.scm (<cuirass-configuration>)[log-file]: New field. (cuirass-shepherd-service): Pass it to 'make-forkexec-constructor'.
This commit is contained in:
parent
2eadd8285a
commit
b17e326f17
@ -11990,6 +11990,9 @@ accessible in other @code{cuirass-configuration} fields.
|
|||||||
Data type representing the configuration of Cuirass.
|
Data type representing the configuration of Cuirass.
|
||||||
|
|
||||||
@table @asis
|
@table @asis
|
||||||
|
@item @code{log-file} (default: @code{"/var/log/cuirass.log"})
|
||||||
|
Location of the log file.
|
||||||
|
|
||||||
@item @code{cache-directory} (default: @code{""})
|
@item @code{cache-directory} (default: @code{""})
|
||||||
Location of the repository cache.
|
Location of the repository cache.
|
||||||
|
|
||||||
|
@ -42,6 +42,8 @@
|
|||||||
(define-record-type* <cuirass-configuration>
|
(define-record-type* <cuirass-configuration>
|
||||||
cuirass-configuration make-cuirass-configuration
|
cuirass-configuration make-cuirass-configuration
|
||||||
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)
|
(cache-directory cuirass-configuration-cache-directory ;string (dir-name)
|
||||||
(default ""))
|
(default ""))
|
||||||
(user cuirass-configuration-user ;string
|
(user cuirass-configuration-user ;string
|
||||||
@ -64,6 +66,7 @@
|
|||||||
(and
|
(and
|
||||||
(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))
|
||||||
(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))
|
||||||
@ -86,7 +89,8 @@
|
|||||||
"--database" #$database
|
"--database" #$database
|
||||||
"--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") '()))
|
||||||
|
#:log-file #$log-file))
|
||||||
(stop #~(make-kill-destructor)))))))
|
(stop #~(make-kill-destructor)))))))
|
||||||
|
|
||||||
(define (cuirass-account config)
|
(define (cuirass-account config)
|
||||||
|
Loading…
Reference in New Issue
Block a user