From 3fb44001a97e7a1d5c6e7db96f7a17d814141c27 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 8 Sep 2024 18:42:42 +0100 Subject: Change #:ignore to #:no-retry for retry-on-error As I think this was the intent. --- bffe/manage-builds.scm | 8 ++++---- 1 file 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))) -- cgit v1.2.3