diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-09-08 19:09:21 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-09-08 19:09:21 +0100 |
| commit | 1de169ef420e513da8deccebd65b3b9b8ce3a58d (patch) | |
| tree | 62931d9974cf7f401db6dde61546b34b8d9a85a1 | |
| parent | 1ba2961d38db5db7923d2e422486ee8f4858fcef (diff) | |
| download | bffe-1de169ef420e513da8deccebd65b3b9b8ce3a58d.tar bffe-1de169ef420e513da8deccebd65b3b9b8ce3a58d.tar.gz | |
Check specifically for 429's
| -rw-r--r-- | bffe/manage-builds.scm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/bffe/manage-builds.scm b/bffe/manage-builds.scm index 29f01bf..caa4893 100644 --- a/bffe/manage-builds.scm +++ b/bffe/manage-builds.scm @@ -141,6 +141,9 @@ #:delay retry-delay #:no-retry (lambda (exn) (and (guix-data-service-error? exn) + (not + (= (guix-data-service-error-response-code exn) + 429)) (< (guix-data-service-error-response-code exn) 500)))))) |