Remove double retry-on-error for submitting outputs

As submit-output retries on failure.

1 files changed, 13 insertions, 17 deletions

diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm
index 292fd67..7980089 100644
--- a/guix-build-coordinator/agent.scm
+++ b/guix-build-coordinator/agent.scm
@@ -917,23 +917,19 @@ but the guix-daemon claims it's unavailable"
       #:unwind? #t))
 
   (define (submit-one-output output-name output bytes compressed-file)
-    (retry-on-error
-     (lambda ()
-       (with-upload-monitoring
-        lgr
-        (derivation-output-path output)
-        bytes
-        (lambda (report-bytes-sent)
-          (log-msg lgr 'INFO
-                   build-id ": submitting output "
-                   (derivation-output-path output))
-          (submit-output coordinator-interface
-                         build-id output-name
-                         compressed-file
-                         #:log (build-log-procedure lgr build-id)
-                         #:report-bytes-sent report-bytes-sent))))
-     #:times 48
-     #:delay (random 15)))
+    (with-upload-monitoring
+     lgr
+     (derivation-output-path output)
+     bytes
+     (lambda (report-bytes-sent)
+       (log-msg lgr 'INFO
+                build-id ": submitting output "
+                (derivation-output-path output))
+       (submit-output coordinator-interface
+                      build-id output-name
+                      compressed-file
+                      #:log (build-log-procedure lgr build-id)
+                      #:report-bytes-sent report-bytes-sent))))
 
   (if submit-outputs?
       (begin