diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-01-16 18:25:28 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-01-16 18:25:28 +0000 |
| commit | c0fb848dc635bff50e19cc91fd36e9036f3012ef (patch) | |
| tree | 93b727276e1344144773909b89edf3cf47f14e36 /guix-build-coordinator | |
| parent | 1aa4b34cfd6811dadbfd3d463f49f535544f92de (diff) | |
| download | build-coordinator-c0fb848dc635bff50e19cc91fd36e9036f3012ef.tar build-coordinator-c0fb848dc635bff50e19cc91fd36e9036f3012ef.tar.gz | |
Use a readonly transaction for datastore-fetch-build-to-allocate
As it doesn't write to the database.
Diffstat (limited to 'guix-build-coordinator')
| -rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index 85c392f..b49ba92 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -2184,7 +2184,8 @@ WHERE build_derivation_outputs.derivation_name = :derivation_name (match result (#f #t) (_ #f)))) - builds)))))) + builds)))) + #:readonly? #t)) (define-method (datastore-insert-to-allocated-builds (datastore <sqlite-datastore>) |