diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-09-16 15:40:03 +0200 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-09-16 15:40:03 +0200 |
| commit | 3d392e803644e0f5177216a1e62982e65292a3ce (patch) | |
| tree | c800fad2e96a353eeeb4e9d9403327e7cd41c5f1 | |
| parent | 6b813f20eed2db6c45cd2ff3f7cc03ed0236aa8c (diff) | |
| download | qa-frontpage-3d392e803644e0f5177216a1e62982e65292a3ce.tar qa-frontpage-3d392e803644e0f5177216a1e62982e65292a3ce.tar.gz | |
Use a set for derivations in cancel-builds-not-for-revision
Since the list of derivations may be very long.
| -rw-r--r-- | guix-qa-frontpage/manage-builds.scm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm index e53e945..ed107a3 100644 --- a/guix-qa-frontpage/manage-builds.scm +++ b/guix-qa-frontpage/manage-builds.scm @@ -200,6 +200,9 @@ category-value revision derivations) + (define derivations-set + (list->set derivations)) + (simple-format (current-error-port) "canceling builds for ~A ~A and not revision ~A\n" category-name @@ -208,8 +211,9 @@ (for-each-build build-coordinator (lambda (build-details) - (unless (member derivations - (assoc-ref build-details "derivation-name")) + (unless (set-contains? + derivations-set + (assoc-ref build-details "derivation-name")) (retry-on-error (lambda () (send-cancel-build-request build-coordinator |