01/03: hydra: services: Use a 90-day TTL for 'guix publish'.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository maintenance.

commit 213556aef7b3c0d1395027dd23183b34f31047b5
Author: Ludovic Courtès <address@hidden>
Date:   Sat Nov 17 18:01:00 2018 +0100

    hydra: services: Use a 90-day TTL for 'guix publish'.
    
    * hydra/modules/sysadmin/services.scm (frontend-services): Increase
    default NAR-TTL to 90 days.  See Cuirass 'ttl' to a third of NAR-TTL.
    * hydra/bayfront.scm: Pass #:nar-ttl to 'frontend-services'.
---
 hydra/bayfront.scm                  | 1 +
 hydra/modules/sysadmin/services.scm | 4 ++--
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/hydra/bayfront.scm b/hydra/bayfront.scm
index 8ca54d6..16b136c 100644
--- a/hydra/bayfront.scm
+++ b/hydra/bayfront.scm
@@ -124,6 +124,7 @@ Happy hacking!\n"))
                    (tor-service)
 
                    (frontend-services %sysadmins
+                                      #:nar-ttl (* 45 24 3600)
                                       #:motd %motd
                                       #:max-jobs 10
                                       #:cores 6
diff --git a/hydra/modules/sysadmin/services.scm 
b/hydra/modules/sysadmin/services.scm
index f39c30b..50cc584 100644
--- a/hydra/modules/sysadmin/services.scm
+++ b/hydra/modules/sysadmin/services.scm
@@ -205,7 +205,7 @@
                             (cores 4)
                             (systems '("x86_64-linux" "i686-linux"))
                             (motd %default-motd)
-                            (nar-ttl (* 45 24 3600))
+                            (nar-ttl (* 90 24 3600))
                             (publish-workers 6))
   "Return the list of services for the build farm frontend."
   (cons* (service rottlog-service-type (rottlog-configuration))
@@ -234,7 +234,7 @@
          (service cuirass-service-type
                   (cuirass-configuration
                    (interval (* 5 60))
-                   (ttl (* 20 24 3600))
+                   (ttl (quotient nar-ttl 3))
                    (specifications (cuirass-specs systems))))
 
          (service openssh-service-type)