diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-09-08 18:42:42 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-09-08 18:42:42 +0100 |
| commit | 3fb44001a97e7a1d5c6e7db96f7a17d814141c27 (patch) | |
| tree | 1d1f2478c578e61fe28c766c91115e64f0d0b8fd | |
| parent | 6ce7f05fca1a45f6ee217bc925b8448c8bdd8c34 (diff) | |
| download | bffe-3fb44001a97e7a1d5c6e7db96f7a17d814141c27.tar bffe-3fb44001a97e7a1d5c6e7db96f7a17d814141c27.tar.gz | |
Change #:ignore to #:no-retry for retry-on-error
As I think this was the intent.
| -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))) |