diff options
author | Christopher Baines <mail@cbaines.net> | 2024-05-15 15:30:29 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2024-05-17 14:39:38 +0100 |
commit | 2166d67d3d413a7ab4c6fce8269bb785f6b9c8b5 (patch) | |
tree | f95cdb9c76c687c66ab2bdf547cda85b57961e12 | |
parent | 1ba878a70ea54e04dc373b5d6eb65894a5b7e1f6 (diff) | |
download | qa-frontpage-2166d67d3d413a7ab4c6fce8269bb785f6b9c8b5.tar qa-frontpage-2166d67d3d413a7ab4c6fce8269bb785f6b9c8b5.tar.gz |
Retry canceling builds
As sometimes this times out.
-rw-r--r-- | guix-qa-frontpage/manage-builds.scm | 20 |
1 files 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 |