Cache a couple of SQLite statements that should be cached

1 files 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