diff options
| -rw-r--r-- | bffe/manage-builds.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/bffe/manage-builds.scm b/bffe/manage-builds.scm index 16d986d..aab20c9 100644 --- a/bffe/manage-builds.scm +++ b/bffe/manage-builds.scm @@ -139,10 +139,10 @@ make-request #:times retry-times #:delay retry-delay - #:ignore (lambda (exn) - (and (guix-data-service-error? exn) - (< (guix-data-service-error-response-code exn) - 500)))))) + #:no-retry (lambda (exn) + (and (guix-data-service-error? exn) + (< (guix-data-service-error-response-code exn) + 500)))))) (define* (fiberize proc #:key (parallelism 1)) (let ((channel (make-channel))) |