From b07fe25a9278abbd22edae0f697d0af76762e93b Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Wed, 8 Apr 2020 20:57:06 +0100
Subject: Add a database-file slot to the <sqlite-datastore>

---
 guix-build-coordinator/datastore/sqlite.scm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm
index e593088..8a88c76 100644
--- a/guix-build-coordinator/datastore/sqlite.scm
+++ b/guix-build-coordinator/datastore/sqlite.scm
@@ -13,6 +13,7 @@
             datastore-store-build))
 
 (define-class <sqlite-datastore> (<abstract-datastore>)
+  database-file
   worker-thread-channel)
 
 (define* (sqlite-datastore database-uri #:key update-database?)
@@ -25,6 +26,8 @@
 
   (let ((datastore (make <sqlite-datastore>)))
 
+    (slot-set! datastore 'database-file database-file)
+
     (slot-set!
      datastore
      'worker-thread-channel
-- 
cgit v1.2.3