aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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)