diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-08-01 09:09:27 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-08-01 09:09:39 +0100 |
| commit | 0a11541e36c863e1dc6748382bbada613be28ec3 (patch) | |
| tree | 49fce5d74942cec4767346383d375b548a07c47a /guix-qa-frontpage/manage-builds.scm | |
| parent | ad81d052c9e0dd596416095be49134b3bc5a2851 (diff) | |
| download | qa-frontpage-0a11541e36c863e1dc6748382bbada613be28ec3.tar qa-frontpage-0a11541e36c863e1dc6748382bbada613be28ec3.tar.gz | |
Always cancel builds not for revision
Rather than doing this only after submitting new builds.
Diffstat (limited to 'guix-qa-frontpage/manage-builds.scm')
| -rw-r--r-- | guix-qa-frontpage/manage-builds.scm | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm index 057547d..73aee8d 100644 --- a/guix-qa-frontpage/manage-builds.scm +++ b/guix-qa-frontpage/manage-builds.scm @@ -462,14 +462,7 @@ (n-par-for-each threads submit-single - build-details)) - - (cancel-builds-not-for-revision - build-coordinator - category-name - category-value - target-commit - build-ids-to-keep-set)) + build-details))) (let loop ((changes (vector-fold @@ -508,7 +501,14 @@ (simple-format #t "skipping ~A ~A as too many target derivations (~A)\n" category-name category-value - builds-to-submit-count))) + builds-to-submit-count)) + + (cancel-builds-not-for-revision + build-coordinator + category-name + category-value + target-commit + build-ids-to-keep-set)) (let ((change (first changes))) (if (and (string=? (assoc-ref change "target") |