diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2025-01-11 19:18:01 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2025-01-11 23:36:57 +0100 |
| commit | d081b41d2ec2cb072e26a9e214705c9a004ba53f (patch) | |
| tree | 839c139bb290a27f803de0d7e2a7ad857ff2970c /gnu/services | |
| parent | 1326817ddd28eecf6c1752af3a0b2042690c02aa (diff) | |
services: cuirass: Add ‘build-expiry’ field.
* gnu/services/cuirass.scm (<cuirass-configuration>)[build-expiry]: New
field.
(cuirass-shepherd-service): Honor it.
* doc/guix.texi (Continuous Integration): Document it.
Change-Id: I1f9e21368437fd8fc236719e32bad7656928c926
Diffstat (limited to 'gnu/services')
| -rw-r--r-- | gnu/services/cuirass.scm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/gnu/services/cuirass.scm b/gnu/services/cuirass.scm index cc5cd626720..2165059fd2d 100644 --- a/gnu/services/cuirass.scm +++ b/gnu/services/cuirass.scm @@ -1,6 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org> -;;; Copyright © 2016-2024 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2016-2025 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2017, 2020 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2017 Jan Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2018, 2019 Ricardo Wurmus <rekado@elephly.net> @@ -103,6 +103,8 @@ (default 60)) (ttl cuirass-configuration-ttl ;integer (default 2592000)) + (build-expiry cuirass-configuration-build-expiry + (default (* 4 30 24 3600))) ;integer(seconds) (threads cuirass-configuration-threads ;integer (default #f)) (parameters cuirass-configuration-parameters ;string @@ -136,6 +138,7 @@ (group (cuirass-configuration-group config)) (interval (cuirass-configuration-interval config)) (ttl (cuirass-configuration-ttl config)) + (build-expiry (cuirass-configuration-build-expiry config)) (threads (cuirass-configuration-threads config)) (parameters (cuirass-configuration-parameters config)) (remote-server (cuirass-configuration-remote-server config)) @@ -168,6 +171,12 @@ (number->string ttl) "s")) '()) + #$@(if build-expiry + (list (string-append + "--build-expiry=" + (number->string build-expiry) + "s")) + '()) #$@(if threads (list (string-append "--threads=" |