diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-01-16 18:19:32 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-01-16 18:19:32 +0000 |
| commit | 1aa4b34cfd6811dadbfd3d463f49f535544f92de (patch) | |
| tree | 2a491d24e0297336d87447e1766f99182c2c133d | |
| parent | ef3b1a35ba68fbe7134d5dc5abb4f8441c4b4e3d (diff) | |
| download | build-coordinator-1aa4b34cfd6811dadbfd3d463f49f535544f92de.tar build-coordinator-1aa4b34cfd6811dadbfd3d463f49f535544f92de.tar.gz | |
Fix some sqlite datastore slot references
| -rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index f9acab5..85c392f 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -2191,7 +2191,7 @@ WHERE build_derivation_outputs.derivation_name = :derivation_name agent-id build-ids) (call-with-worker-thread - (slot-ref datastore 'worker-writer-channel) + (slot-ref datastore 'worker-writer-thread-channel) (lambda (db) (sqlite-exec db @@ -2213,7 +2213,7 @@ INSERT INTO allocated_builds (build_id, agent_id) VALUES " (datastore <sqlite-datastore>) build-ids) (call-with-worker-thread - (slot-ref datastore 'worker-writer-channel) + (slot-ref datastore 'worker-writer-thread-channel) (lambda (db) (sqlite-exec db @@ -2232,7 +2232,7 @@ WHERE build_id IN (" (datastore <sqlite-datastore>) agent-id) (call-with-worker-thread - (slot-ref datastore 'worker-reader-channel) + (slot-ref datastore 'worker-reader-thread-channel) (lambda (db) (let ((statement (sqlite-prepare |