[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/03: services: cuirass: Add 'ttl' configuration field.
From: |
Ludovic Courtès |
Subject: |
03/03: services: cuirass: Add 'ttl' configuration field. |
Date: |
Wed, 7 Nov 2018 10:07:25 -0500 (EST) |
civodul pushed a commit to branch master
in repository guix.
commit dcb45127e01ce2eeabc9270b64e817aa1d644672
Author: Ludovic Courtès <address@hidden>
Date: Wed Nov 7 16:01:17 2018 +0100
services: cuirass: Add 'ttl' configuration field.
* gnu/services/cuirass.scm (<cuirass-configuration>)[ttl]: New field.
(cuirass-shepherd-service): Honor it.
---
doc/guix.texi | 5 +++++
gnu/services/cuirass.scm | 6 +++++-
2 files changed, 10 insertions(+), 1 deletion(-)
diff --git a/doc/guix.texi b/doc/guix.texi
index 53aee4a..d021875 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -18672,6 +18672,11 @@ Cuirass jobs.
Location of sqlite database which contains the build results and previously
added specifications.
address@hidden @code{ttl} (default: @code{(* 30 24 3600)})
+Specifies the time-to-live (TTL) in seconds of garbage collector roots that
+are registered for build results. This means that build results are protected
+from garbage collection for at least @var{ttl} seconds.
+
@item @code{port} (default: @code{8081})
Port number used by the HTTP server.
diff --git a/gnu/services/cuirass.scm b/gnu/services/cuirass.scm
index 496b2d0..36e90fc 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 <address@hidden>
-;;; Copyright © 2016, 2017 Ludovic Courtès <address@hidden>
+;;; Copyright © 2016, 2017, 2018 Ludovic Courtès <address@hidden>
;;; Copyright © 2017 Mathieu Othacehe <address@hidden>
;;; Copyright © 2017 Jan Nieuwenhuizen <address@hidden>
;;; Copyright © 2018 Ricardo Wurmus <address@hidden>
@@ -54,6 +54,8 @@
(default "/var/log/cuirass.log"))
(cache-directory cuirass-configuration-cache-directory ;string (dir-name)
(default "/var/cache/cuirass"))
+ (ttl cuirass-configuration-ttl ;integer
+ (default (* 30 24 3600)))
(user cuirass-configuration-user ;string
(default "cuirass"))
(group cuirass-configuration-group ;string
@@ -86,6 +88,7 @@
(group (cuirass-configuration-group config))
(interval (cuirass-configuration-interval config))
(database (cuirass-configuration-database config))
+ (ttl (cuirass-configuration-ttl config))
(port (cuirass-configuration-port config))
(host (cuirass-configuration-host config))
(specs (cuirass-configuration-specifications config))
@@ -102,6 +105,7 @@
"--specifications"
#$(scheme-file "cuirass-specs.scm" specs)
"--database" #$database
+ "--ttl" #$(string-append (number->string ttl) "s")
"--port" #$(number->string port)
"--listen" #$host
"--interval" #$(number->string interval)