From 2166d67d3d413a7ab4c6fce8269bb785f6b9c8b5 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Wed, 15 May 2024 15:30:29 +0100
Subject: Retry canceling builds

As sometimes this times out.
---
 guix-qa-frontpage/manage-builds.scm | 20 ++++++++++++--------
 1 file changed, 12 insertions(+), 8 deletions(-)

diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm
index bb8d1a0..d07a773 100644
--- a/guix-qa-frontpage/manage-builds.scm
+++ b/guix-qa-frontpage/manage-builds.scm
@@ -759,14 +759,18 @@
                    category-name
                    category-value)
 
-    ;; Cancel builds first, as some of the builds we want to submit might be
-    ;; for the same outputs as ones we're going to cancel.
-    (cancel-builds-not-for-revision
-     build-coordinator
-     category-name
-     category-value
-     target-commit
-     build-ids-to-keep-set)
+    (retry-on-error
+     (lambda ()
+       ;; Cancel builds first, as some of the builds we want to submit might be
+       ;; for the same outputs as ones we're going to cancel.
+       (cancel-builds-not-for-revision
+        build-coordinator
+        category-name
+        category-value
+        target-commit
+        build-ids-to-keep-set))
+     #:times 3
+     #:delay 2)
 
     (if (or (not build-limit)
             (< builds-to-submit-count
-- 
cgit v1.2.3