From 4f225a13bd8be43b6e4b41338d01410f3076b51f Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Fri, 13 Nov 2020 21:19:53 +0000
Subject: Cache a couple of SQLite statements that should be cached

---
 guix-build-coordinator/datastore/sqlite.scm | 20 ++++++++------------
 1 file changed, 8 insertions(+), 12 deletions(-)

diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm
index 8a76e50..82d7003 100644
--- a/guix-build-coordinator/datastore/sqlite.scm
+++ b/guix-build-coordinator/datastore/sqlite.scm
@@ -1185,18 +1185,13 @@ EXCEPT
     (let ((statement
            (sqlite-prepare
             db
-            (string-append
-             "
-SELECT * FROM unprocessed_builds"))))
-
-      (let ((builds (sqlite-map
-                     (match-lambda
-                       (#(uuid) uuid))
-                     statement)))
-
-        (sqlite-finalize statement)
+            "SELECT * FROM unprocessed_builds"
+            #:cache? #t)))
 
-        builds)))
+      (sqlite-map
+       (match-lambda
+         (#(uuid) uuid))
+       statement)))
 
   (define (fetch-propagated-priorities-for-unprocessed-builds db)
     (let ((statement
@@ -1264,7 +1259,8 @@ GROUP BY builds_with_derived_priority.uuid"
           db
           "
 INSERT INTO unprocessed_hook_events (event, arguments)
-VALUES (:event, :arguments)")))
+VALUES (:event, :arguments)"
+          #:cache? #t)))
 
     (sqlite-bind-arguments statement
                            #:event event
-- 
cgit v1.2.3