diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-04-24 14:56:12 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-04-24 14:56:12 +0100 |
| commit | 2d13bcc2d9360a916aa45418d7a693f1d68907c3 (patch) | |
| tree | 8c4aa79b93003e0ab640c4bc904b50a7c10ff256 /guix-build-coordinator/datastore/sqlite.scm | |
| parent | 0af7c171eee1e1e338b7cc8e9cd647c30518d478 (diff) | |
| download | build-coordinator-2d13bcc2d9360a916aa45418d7a693f1d68907c3.tar build-coordinator-2d13bcc2d9360a916aa45418d7a693f1d68907c3.tar.gz | |
Add delay logging to more operations involved in submitting builds
Diffstat (limited to 'guix-build-coordinator/datastore/sqlite.scm')
| -rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index 7b05955..bcac7e6 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -2713,7 +2713,7 @@ WHERE derivation_outputs.output_id = :output_id" rest) (apply (lambda* (output system #:key include-canceled?) - (call-with-worker-thread + (call-with-worker-thread/delay-logging (slot-ref datastore 'worker-reader-thread-channel) (lambda (db) (let ((statement @@ -2758,7 +2758,7 @@ WHERE derivation_outputs.output_id = :output_id rest) (apply (lambda* (derivation #:key (include-canceled? #t)) - (call-with-worker-thread + (call-with-worker-thread/delay-logging (slot-ref datastore 'worker-reader-thread-channel) (lambda (db) (let ((statement @@ -3742,7 +3742,7 @@ WHERE name = :name" (define-method (datastore-find-derivation-outputs (datastore <sqlite-datastore>) derivation-name) - (call-with-worker-thread + (call-with-worker-thread/delay-logging (slot-ref datastore 'worker-reader-thread-channel) (lambda (db) (let ((statement @@ -3895,7 +3895,7 @@ WHERE builds.id = :build_id" (define-method (datastore-find-derivation-system (datastore <sqlite-datastore>) derivation-name) - (call-with-worker-thread + (call-with-worker-thread/delay-logging (slot-ref datastore 'worker-reader-thread-channel) (lambda (db) (let ((statement |