Use an in memory table for the build_allocation_plan

Since this doesn't need to be persisted and changes often.

1 files changed, 16 insertions, 0 deletions

diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm
index 3221f9c..5772402 100644
--- a/guix-build-coordinator/datastore/sqlite.scm
+++ b/guix-build-coordinator/datastore/sqlite.scm
@@ -144,6 +144,19 @@
           (sqlite-exec db "PRAGMA synchronous = NORMAL;")
           (sqlite-exec db "PRAGMA temp_store = MEMORY;")
           (sqlite-exec db "PRAGMA foreign_keys = ON;")
+
+          (sqlite-exec db "ATTACH DATABASE 'file:/mem?vfs=memdb' AS mem;")
+
+          (sqlite-exec
+           db
+           "
+CREATE TABLE IF NOT EXISTS mem.build_allocation_plan (
+       build_id INTEGER NOT NULL,
+       agent_id TEXT NOT NULL,
+       ordering INTEGER NOT NULL,
+       PRIMARY KEY (agent_id, build_id)
+);")
+
           (list db)))
       #:destructor
       (let ((writer-thread-destructor-counter
@@ -189,6 +202,9 @@
           (sqlite-exec db "PRAGMA temp_store = MEMORY;")
           (sqlite-exec db "PRAGMA busy_timeout = 4000;")
           (sqlite-exec db "PRAGMA cache_size = -16000;")
+
+          (sqlite-exec db "ATTACH DATABASE 'file:/mem?vfs=memdb' AS mem;")
+
           (list db)))
       #:destructor
       (let ((reader-thread-destructor-counter