diff options
| author | Ahmad Draidi <a.r.draidi@redscript.org> | 2024-05-02 05:37:48 +0400 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2024-05-04 19:14:25 +0200 |
| commit | 70f277d0e440c26a5026311b0658323be2d3271e (patch) | |
| tree | 3e50b02924394d01818d967f0388980e9396604f /gnu/services/cuirass.scm | |
| parent | 2cd6831161700409a16e5affd9145d0d4f2a56fe (diff) | |
| download | guix-70f277d0e440c26a5026311b0658323be2d3271e.tar.gz | |
services: cuirass: Add new configuration options.
* gnu/services/cuirass.scm (<cuirass-configuration>): Add ttl and threads fields. (cuirass-shepherd-service): Handle the new options. * doc/guix.texi (Continuous Integration): Document them. Change-Id: I4387fbd7bf6766f4a54801f35c7ed82ce4eb9645 Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'gnu/services/cuirass.scm')
| -rw-r--r-- | gnu/services/cuirass.scm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/gnu/services/cuirass.scm b/gnu/services/cuirass.scm index b09d5601d4..f430c38a69 100644 --- a/gnu/services/cuirass.scm +++ b/gnu/services/cuirass.scm @@ -101,6 +101,10 @@ (default "cuirass")) (interval cuirass-configuration-interval ;integer (seconds) (default 60)) + (ttl cuirass-configuration-ttl ;integer + (default 2592000)) + (threads cuirass-configuration-threads ;integer + (default #f)) (parameters cuirass-configuration-parameters ;string (default #f)) (remote-server cuirass-configuration-remote-server @@ -133,6 +137,8 @@ (user (cuirass-configuration-user config)) (group (cuirass-configuration-group config)) (interval (cuirass-configuration-interval config)) + (ttl (cuirass-configuration-ttl config)) + (threads (cuirass-configuration-threads config)) (parameters (cuirass-configuration-parameters config)) (remote-server (cuirass-configuration-remote-server config)) (database (cuirass-configuration-database config)) @@ -159,6 +165,17 @@ "--specifications" #$config-file "--database" #$database "--interval" #$(number->string interval) + #$@(if ttl + (list (string-append + "--ttl=" + (number->string ttl) + "s")) + '()) + #$@(if threads + (list (string-append + "--threads=" + (number->string threads))) + '()) #$@(if parameters (list (string-append "--parameters=" |