diff options
| -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") |