aboutsummaryrefslogtreecommitdiff
path: root/guix-build-coordinator/datastore/sqlite.scm
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2021-01-26 20:58:44 +0000
committerChristopher Baines <mail@cbaines.net>2021-01-26 20:58:44 +0000
commit302142db4f6a330befd85f9daee904cf8bfc885d (patch)
tree0fd7b71768532a296f318c4a55355973f83868dd /guix-build-coordinator/datastore/sqlite.scm
parentb68b90bc392eed3387b07d22eb3f7a5c7125db8d (diff)
downloadbuild-coordinator-302142db4f6a330befd85f9daee904cf8bfc885d.tar
build-coordinator-302142db4f6a330befd85f9daee904cf8bfc885d.tar.gz
Exclude allocated builds from setup failures
As I think this is causing the allocator to crash.
Diffstat (limited to 'guix-build-coordinator/datastore/sqlite.scm')
-rw-r--r--guix-build-coordinator/datastore/sqlite.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm
index a66614a..71f67e6 100644
--- a/guix-build-coordinator/datastore/sqlite.scm
+++ b/guix-build-coordinator/datastore/sqlite.scm
@@ -1740,7 +1740,10 @@ FROM setup_failures
INNER JOIN builds
ON builds.uuid = setup_failures.build_id
WHERE builds.processed = 0
- AND builds.canceled = 0"
+ AND builds.canceled = 0
+ AND uuid NOT IN (
+ SELECT build_id FROM allocated_builds
+ )"
#:cache? #t)))
(let ((result (sqlite-fold