[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/04: services: cuirass: Add 'cuirass' field.
From: |
Ludovic Courtès |
Subject: |
03/04: services: cuirass: Add 'cuirass' field. |
Date: |
Tue, 20 Dec 2016 09:38:21 +0000 (UTC) |
civodul pushed a commit to branch master
in repository guix.
commit 379b6ba5a906b62252dd5bcb142ec050ae34bc74
Author: Ludovic Courtès <address@hidden>
Date: Tue Dec 20 10:23:37 2016 +0100
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.
---
doc/guix.texi | 3 +++
gnu/services/cuirass.scm | 5 ++++-
2 files changed, 7 insertions(+), 1 deletion(-)
diff --git a/doc/guix.texi b/doc/guix.texi
index bb96385..389afe0 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -12025,6 +12025,9 @@ from source.
@item @code{one-shot?} (default: @code{#f})
Only evaluate specifications and build derivations once.
+
address@hidden @code{cuirass} (default: @code{cuirass})
+The Cuirass package to use.
@end table
@end deftp
diff --git a/gnu/services/cuirass.scm b/gnu/services/cuirass.scm
index 91d78d1..0ecdccf 100644
--- a/gnu/services/cuirass.scm
+++ b/gnu/services/cuirass.scm
@@ -43,6 +43,8 @@
(define-record-type* <cuirass-configuration>
cuirass-configuration make-cuirass-configuration
cuirass-configuration?
+ (cuirass cuirass-configuration-cuirass ;package
+ (default cuirass))
(log-file cuirass-configuration-log-file ;string
(default "/var/log/cuirass.log"))
(cache-directory cuirass-configuration-cache-directory ;string (dir-name)
@@ -66,7 +68,8 @@
"Return a <shepherd-service> for the Cuirass service with CONFIG."
(and
(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))
(user (cuirass-configuration-user config))
(group (cuirass-configuration-group config))