diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-04-20 14:07:01 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-04-20 14:07:01 +0100 |
| commit | 15ddc9c552207a7491824a539f99f9edfd3e51f0 (patch) | |
| tree | 0fdafa5e4968e467ed01db4808b4538a170f907f /guix-qa-frontpage | |
| parent | 0622ba655ba5b8e5d27643c6d96f4012d07fcf18 (diff) | |
| download | qa-frontpage-15ddc9c552207a7491824a539f99f9edfd3e51f0.tar qa-frontpage-15ddc9c552207a7491824a539f99f9edfd3e51f0.tar.gz | |
Start canceling builds again
As this should work better now.
Diffstat (limited to 'guix-qa-frontpage')
| -rw-r--r-- | guix-qa-frontpage/manage-builds.scm | 17 |
1 files changed, 6 insertions, 11 deletions
diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm index e44fb00..8fec47a 100644 --- a/guix-qa-frontpage/manage-builds.scm +++ b/guix-qa-frontpage/manage-builds.scm @@ -364,17 +364,12 @@ submit-single build-details)) - ;; TODO Don't currently cancel builds - ;; I think this approach has some problems and needs more thinking about. - ;; - ;; (cancel-builds-not-for-revision - ;; build-coordinator - ;; category-name - ;; category-value - ;; target-commit - ;; build-ids-to-keep-set) - - ) + (cancel-builds-not-for-revision + build-coordinator + category-name + category-value + target-commit + build-ids-to-keep-set)) (let loop ((changes (append-map! (lambda (package) |