diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-04-08 20:57:06 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-04-10 20:34:47 +0100 |
| commit | b07fe25a9278abbd22edae0f697d0af76762e93b (patch) | |
| tree | a3d72de8379e31f9092de550dc6bfdc394dd87ec | |
| parent | 8aeade3380ec9eba9ad34f891af49940096288cd (diff) | |
| download | build-coordinator-b07fe25a9278abbd22edae0f697d0af76762e93b.tar build-coordinator-b07fe25a9278abbd22edae0f697d0af76762e93b.tar.gz | |
Add a database-file slot to the <sqlite-datastore>
| -rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 3 |
1 files changed, 3 insertions, 0 deletions
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 |