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:
Ludovic Courtès 2016-12-20 10:23:37 +01:00
parent 4a78638f1f
commit 379b6ba5a9
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
2 changed files with 7 additions and 1 deletions

View File

@ -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

View File

@ -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))