aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2020-04-29 20:46:42 +0100
committerChristopher Baines <mail@cbaines.net>2020-04-29 20:46:42 +0100
commit69cd15b64a1b4dc8276abb2b273ba185f9a48ba2 (patch)
treee2bd308b73e1bd1bdeb5da8c71c4faf065d85cdf
parent82ea7c7fe76c4e1c194eab1ad7bfbbd1b725de83 (diff)
downloadbuild-coordinator-69cd15b64a1b4dc8276abb2b273ba185f9a48ba2.tar
build-coordinator-69cd15b64a1b4dc8276abb2b273ba185f9a48ba2.tar.gz
Only return setup failures for unprocessed builds
The ones for processed builds aren't relevent to the allocator.
-rw-r--r--guix-build-coordinator/datastore/sqlite.scm6
1 files changed, 5 insertions, 1 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm
index faaf8d1..0183da1 100644
--- a/guix-build-coordinator/datastore/sqlite.scm
+++ b/guix-build-coordinator/datastore/sqlite.scm
@@ -690,7 +690,11 @@ GROUP BY agent_id, failure_reason")))
(sqlite-prepare
db
"
-SELECT id, build_id, agent_id, failure_reason FROM setup_failures")))
+SELECT id, build_id, agent_id, failure_reason
+FROM setup_failures
+INNER JOIN builds
+ ON builds.uuid = setup_failures.build_id
+WHERE builds.processed = 0")))
(let ((result (sqlite-fold
(lambda (row result)