aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2023-04-25 17:05:57 +0100
committerChristopher Baines <mail@cbaines.net>2023-04-25 17:05:57 +0100
commit843b1fd5e6197acdc6e0eabdf9f319d8e9aebba7 (patch)
tree86ee685afeba40c0f13cae1b2ec1ad75388f1305
parent69d6fd5c0cdf2d70fc214207c68443d2014d0c04 (diff)
downloadqa-frontpage-843b1fd5e6197acdc6e0eabdf9f319d8e9aebba7.tar
qa-frontpage-843b1fd5e6197acdc6e0eabdf9f319d8e9aebba7.tar.gz
Stop canceling builds again
The listing builds with no dependent builds is currently too expensive, and results in queries that take long enough to block regular build coordinator activity. This reverts commit 15ddc9c552207a7491824a539f99f9edfd3e51f0.
-rw-r--r--guix-qa-frontpage/manage-builds.scm17
1 files changed, 11 insertions, 6 deletions
diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm
index ed88aad..4aa01be 100644
--- a/guix-qa-frontpage/manage-builds.scm
+++ b/guix-qa-frontpage/manage-builds.scm
@@ -364,12 +364,17 @@
submit-single
build-details))
- (cancel-builds-not-for-revision
- build-coordinator
- category-name
- category-value
- target-commit
- build-ids-to-keep-set))
+ ;; 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)
+
+ )
(let loop ((changes
(append-map! (lambda (package)