diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-04-09 22:38:11 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-04-09 22:38:11 +0100 |
| commit | d89d938f7a16a8040115e83dc54bc211f9c5bbac (patch) | |
| tree | 1809f0041a41f28dfa59929dac91980f9195e16f | |
| parent | 7c9c1b200032fe3f7187749c376a8c911cd98b72 (diff) | |
| download | build-coordinator-d89d938f7a16a8040115e83dc54bc211f9c5bbac.tar build-coordinator-d89d938f7a16a8040115e83dc54bc211f9c5bbac.tar.gz | |
Remove double retry-on-error for submitting outputs
As submit-output retries on failure.
| -rw-r--r-- | guix-build-coordinator/agent.scm | 30 |
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 |