From 1de169ef420e513da8deccebd65b3b9b8ce3a58d Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sun, 8 Sep 2024 19:09:21 +0100
Subject: Check specifically for 429's

---
 bffe/manage-builds.scm | 3 +++
 1 file changed, 3 insertions(+)

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))))))
 
-- 
cgit v1.2.3