diff options
| -rw-r--r-- | guix-qa-frontpage/manage-builds.scm | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm index f5195eb..9276e4f 100644 --- a/guix-qa-frontpage/manage-builds.scm +++ b/guix-qa-frontpage/manage-builds.scm @@ -710,6 +710,15 @@ 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) + (if (or (not build-limit) (< builds-to-submit-count build-limit)) @@ -728,14 +737,7 @@ (simple-format #t "skipping ~A ~A as too many target derivations (~A)\n" category-name category-value - builds-to-submit-count)) - - (cancel-builds-not-for-revision - build-coordinator - category-name - category-value - target-commit - build-ids-to-keep-set))) + builds-to-submit-count)))) (define %system-tests-that-change-every-revision '("btrfs-raid10-root-os" |