Tweak retrying for status update requests

Don't retry status updates many times, since the information will be more out
of date each time.

1 files changed, 7 insertions, 4 deletions

diff --git a/guix-build-coordinator/agent-messaging/http.scm b/guix-build-coordinator/agent-messaging/http.scm
index 96c67ec..9a2732d 100644
--- a/guix-build-coordinator/agent-messaging/http.scm
+++ b/guix-build-coordinator/agent-messaging/http.scm
@@ -126,7 +126,8 @@
                                    interface
                                    path
                                    #:key method body (headers '())
-                                   succeed-on-access-denied-retry?)
+                                   succeed-on-access-denied-retry?
+                                   retry-times)
   (define auth-value
     (string-append
      "Basic "
@@ -196,7 +197,7 @@
 
   (retry-on-error (lambda ()
                     (with-port-timeouts make-request))
-                  #:times 9
+                  #:times retry-times
                   #:delay 10
                   #:ignore agent-error-from-coordinator?))
 
@@ -250,7 +251,8 @@
   (apply
    (lambda* (status #:key 1min-load-average system-uptime
                     (log default-log)
-                    initial-status-update?)
+                    initial-status-update?
+                    (retry-times 1))
      (coordinator-http-request
       log
       interface
@@ -267,7 +269,8 @@
                      '())
                ,@(if initial-status-update?
                      `((initial_status_update . #t))
-                     '()))))
+                     '()))
+      #:retry-times retry-times))
    args))
 
 (define-method (submit-output