From 69cd15b64a1b4dc8276abb2b273ba185f9a48ba2 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Wed, 29 Apr 2020 20:46:42 +0100
Subject: Only return setup failures for unprocessed builds

The ones for processed builds aren't relevent to the allocator.
---
 guix-build-coordinator/datastore/sqlite.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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)
-- 
cgit v1.2.3