diff options
author | Christopher Baines <mail@cbaines.net> | 2021-12-20 19:15:24 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2021-12-20 19:15:24 +0000 |
commit | 3bdd3c72d99b0d6b64572dff3dc08d4d84071876 (patch) | |
tree | ce6e3e4e75ed6c57cdc936d0d51387fc32bcb746 /guix-build-coordinator | |
parent | 794ca2109ed544a134d264a6d0318e5ebdd200e6 (diff) | |
download | build-coordinator-3bdd3c72d99b0d6b64572dff3dc08d4d84071876.tar build-coordinator-3bdd3c72d99b0d6b64572dff3dc08d4d84071876.tar.gz |
Log delays for procedures involved in handling build results
Diffstat (limited to 'guix-build-coordinator')
-rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index 581466a..bc349d9 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -1168,7 +1168,7 @@ WHERE builds.id = :build_id" result))) - (call-with-worker-thread + (call-with-worker-thread/delay-logging (slot-ref datastore 'worker-writer-thread-channel) (lambda (db) (let ((builds-statement @@ -1220,7 +1220,7 @@ WHERE build_id = :build_id" (define-method (datastore-remove-build-allocation (datastore <sqlite-datastore>) build-uuid agent-id) - (call-with-worker-thread + (call-with-worker-thread/delay-logging (slot-ref datastore 'worker-writer-thread-channel) (lambda (db) (sqlite-exec @@ -1237,7 +1237,7 @@ DELETE FROM allocated_builds WHERE build_id = " (define-method (datastore-mark-build-as-processed (datastore <sqlite-datastore>) build-uuid end-time) - (call-with-worker-thread + (call-with-worker-thread/delay-logging (slot-ref datastore 'worker-writer-thread-channel) (lambda (db) (sqlite-exec @@ -1270,7 +1270,7 @@ DELETE FROM unprocessed_builds_with_derived_priorities (define-method (datastore-delete-relevant-outputs-from-unbuilt-outputs (datastore <sqlite-datastore>) build-uuid) - (call-with-worker-thread + (call-with-worker-thread/delay-logging (slot-ref datastore 'worker-writer-thread-channel) (lambda (db) (let ((statement @@ -1299,7 +1299,7 @@ WHERE output_id IN ( (datastore <sqlite-datastore>) build-uuid output-metadata) - (call-with-worker-thread + (call-with-worker-thread/delay-logging (slot-ref datastore 'worker-writer-thread-channel) (lambda (db) (define (name->output-id name) |