services: cuirass: Add 'cuirass' field.
* gnu/services/cuirass.scm (<cuirass-configuration>)[cuirass]: New field. (cuirass-shepherd-service): Honor it. * doc/guix.texi (Continuous Integration): Document it.
This commit is contained in:
parent
4a78638f1f
commit
379b6ba5a9
|
@ -12025,6 +12025,9 @@ from source.
|
||||||
|
|
||||||
@item @code{one-shot?} (default: @code{#f})
|
@item @code{one-shot?} (default: @code{#f})
|
||||||
Only evaluate specifications and build derivations once.
|
Only evaluate specifications and build derivations once.
|
||||||
|
|
||||||
|
@item @code{cuirass} (default: @code{cuirass})
|
||||||
|
The Cuirass package to use.
|
||||||
@end table
|
@end table
|
||||||
@end deftp
|
@end deftp
|
||||||
|
|
||||||
|
|
|
@ -43,6 +43,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?
|
||||||
|
(cuirass cuirass-configuration-cuirass ;package
|
||||||
|
(default cuirass))
|
||||||
(log-file cuirass-configuration-log-file ;string
|
(log-file cuirass-configuration-log-file ;string
|
||||||
(default "/var/log/cuirass.log"))
|
(default "/var/log/cuirass.log"))
|
||||||
(cache-directory cuirass-configuration-cache-directory ;string (dir-name)
|
(cache-directory cuirass-configuration-cache-directory ;string (dir-name)
|
||||||
|
@ -66,7 +68,8 @@
|
||||||
"Return a <shepherd-service> for the Cuirass service with CONFIG."
|
"Return a <shepherd-service> for the Cuirass service with CONFIG."
|
||||||
(and
|
(and
|
||||||
(cuirass-configuration? config)
|
(cuirass-configuration? config)
|
||||||
(let ((cache-directory (cuirass-configuration-cache-directory config))
|
(let ((cuirass (cuirass-configuration-cuirass config))
|
||||||
|
(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))
|
(user (cuirass-configuration-user config))
|
||||||
(group (cuirass-configuration-group config))
|
(group (cuirass-configuration-group config))
|
||||||
|
|
Loading…
Reference in New Issue