branch master updated: hydra: services: Add a Cuirass service.

[Mathieu Othacehe]

This is an automated email from the git hooks/post-receive script.

mothacehe pushed a commit to branch master
in repository maintenance.

The following commit(s) were added to refs/heads/master by this push:
     new bfbf4c8  hydra: services: Add a Cuirass service.
bfbf4c8 is described below

commit bfbf4c8bb295a4ac2f1f484fc0a27d5308e8381c
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Thu Oct 15 13:59:06 2020 +0200

    hydra: services: Add a Cuirass service.
    
    * hydra/modules/sysadmin/services.scm (cuirass-service): New procedure.
    (frontend-services): Use it.
---
 hydra/modules/sysadmin/services.scm | 22 ++++++++++++++--------
 1 file changed, 14 insertions(+), 8 deletions(-)

diff --git a/hydra/modules/sysadmin/services.scm 
b/hydra/modules/sysadmin/services.scm
index a33d0b5..c7d28ed 100644
--- a/hydra/modules/sysadmin/services.scm
+++ b/hydra/modules/sysadmin/services.scm
@@ -47,6 +47,7 @@
   #:use-module (ice-9 match)
   #:export (firewall-service
             disk-space-watchdog-service-type
+            cuirass-service
             frontend-services
             KiB MiB GiB TiB
             goggles-service-type))
@@ -420,6 +421,16 @@
 (define GiB (* MiB KiB))
 (define TiB (* GiB KiB))
 
+(define* (cuirass-service #:key branches systems nar-ttl)
+  (service cuirass-service-type
+           (cuirass-configuration
+            (cuirass cuirass-without-fiber-tests)
+            (interval (* 5 60))
+            (ttl (quotient nar-ttl 2))
+            (specifications (cuirass-specs branches systems))
+            (queries-log-file "/var/log/cuirass-sql.log")
+            (web-queries-log-file "/var/log/cuirass-web-sql.log"))))
+
 (define* (frontend-services sysadmins #:key
                             (gc-threshold (* 800 GiB))
                             nginx-config-file
@@ -451,14 +462,9 @@
          %nginx-mime-types
          %nginx-cache-activation
 
-         (service cuirass-service-type
-                  (cuirass-configuration
-                   (cuirass cuirass-without-fiber-tests)
-                   (interval (* 5 60))
-                   (ttl (quotient nar-ttl 2))
-                   (specifications (cuirass-specs branches systems))
-                   (queries-log-file "/var/log/cuirass-sql.log")
-                   (web-queries-log-file "/var/log/cuirass-web-sql.log")))
+         (cuirass-service #:branches branches
+                          #:systems systems
+                          #:nar-ttl nar-ttl)
 
          (service openssh-service-type)
          (service sysadmin-service-type sysadmins)