From adc1d01525b0f96c3c9ada1a33654beaa971aafd Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sun, 1 Nov 2020 21:53:19 +0000
Subject: [PATCH] Only query recent pending builds

To avoid old pending builds that never leave the scheduled/started state.
---
 guix-data-service/builds.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/guix-data-service/builds.scm b/guix-data-service/builds.scm
index 41473fc..68f4a6b 100644
--- a/guix-data-service/builds.scm
+++ b/guix-data-service/builds.scm
@@ -501,7 +501,8 @@ LEFT JOIN latest_build_status
 WHERE builds.build_server_id = $1 AND
       latest_build_status.status IN (
         'scheduled', 'started'
-      )
+      ) AND
+      latest_build_status.timestamp > (current_date - interval '28' day)
 ORDER BY latest_build_status.status DESC, -- 'started' first
          latest_build_status.timestamp ASC
 LIMIT 10000")