02/02: hydra: cuirass: Increase polling period.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository maintenance.

commit 5b2c48e713eb2462a3c26b87768a1630f3e0f950
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sun Oct 8 22:51:06 2023 +0200

    hydra: cuirass: Increase polling period.
    
    * hydra/modules/sysadmin/services.scm (cuirass-service): Bump ‘interval’
    to 10mn.
    (cuirass-specs): Change ‘period’ of external projects to 20mn.
---
 hydra/modules/sysadmin/services.scm | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/hydra/modules/sysadmin/services.scm 
b/hydra/modules/sysadmin/services.scm
index a64ce3a..fecfdde 100644
--- a/hydra/modules/sysadmin/services.scm
+++ b/hydra/modules/sysadmin/services.scm
@@ -381,7 +381,7 @@ collection instead."
               (branch "main"))
              %default-guix-channel))
       (priority 5)
-      (period (* 10 60))
+      (period (* 20 60))
       (systems '#$systems))
 
      (specification
@@ -399,7 +399,7 @@ collection instead."
                  "7F73 0343 F2F0 9F3C 77BF  79D3 2E25 EE8B 6180 2BB3"))))
              %default-guix-channel))
       (priority 5)
-      (period (* 10 60))
+      (period (* 20 60))
       (systems '#$systems))
 
      (specification
@@ -417,7 +417,7 @@ collection instead."
                  "3CE4 6455 8A84 FDC6 9DB4  0CFB 090B 1199 3D9A EBB5"))))
              %default-guix-channel))
       (priority 5)
-      (period (* 10 60))
+      (period (* 20 60))
       (systems '#$systems))
 
      (specification
@@ -435,7 +435,7 @@ collection instead."
                  "7F73 0343 F2F0 9F3C 77BF  79D3 2E25 EE8B 6180 2BB3"))))
              %default-guix-channel))
       (priority 5)
-      (period (* 10 60))
+      (period (* 20 60))
       (systems '#$systems))
 
      (specification
@@ -453,7 +453,7 @@ collection instead."
                  "3CE4 6455 8A84 FDC6 9DB4  0CFB 090B 1199 3D9A EBB5"))))
              %default-guix-channel))
       (priority 5)
-      (period (* 10 60))
+      (period (* 20 60))
       (systems '#$systems))))
 
 
@@ -668,7 +668,10 @@ to a selected directory.")
 (define* (cuirass-service #:key branches systems nar-ttl)
   (service cuirass-service-type
            (cuirass-configuration
-            (interval (* 5 60))
+            ;; Choose a high default polling interval because important
+            ;; branches have a push hook that triggers Cuirass:
+            ;; <https://savannah.nongnu.org/support/index.php?110939>.
+            (interval (* 10 60))
             (remote-server (cuirass-remote-server-configuration
                             (publish? #f)
                             (trigger-url "http://127.0.0.1";)))