diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-01-12 18:31:28 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-01-12 18:31:28 +0000 |
| commit | 4b8426b7e2833479f8e471315ab904fc8d83b1f7 (patch) | |
| tree | ba4b5641661b3b5ef7b17c8112486a576e88c424 /guix-build-coordinator/datastore | |
| parent | 577d71f1209c7c60f342ca2614ce7e282c782f6c (diff) | |
| download | build-coordinator-4b8426b7e2833479f8e471315ab904fc8d83b1f7.tar build-coordinator-4b8426b7e2833479f8e471315ab904fc8d83b1f7.tar.gz | |
Add some extra delay logging
Diffstat (limited to 'guix-build-coordinator/datastore')
| -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 c78b202..6b813a2 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -1082,7 +1082,7 @@ DELETE FROM unprocessed_builds_with_derived_priorities `((agent_id . ,agent-id))))) (datastore-count-build-allocation-plan-entries datastore)))) - (call-with-worker-thread + (call-with-worker-thread/delay-logging (slot-ref datastore 'worker-writer-thread-channel) (lambda (db) (let ((statement (sqlite-prepare @@ -1127,7 +1127,7 @@ SELECT agent_id, result, COUNT(*) FROM build_results GROUP BY agent_id, result" (define-method (datastore-insert-build-result (datastore <sqlite-datastore>) build-uuid agent-id result failure-reason) - (call-with-worker-thread + (call-with-worker-thread/delay-logging (slot-ref datastore 'worker-writer-thread-channel) (lambda (db) (sqlite-exec @@ -1617,7 +1617,7 @@ SELECT id FROM builds WHERE uuid = :uuid" (define-method (datastore-find-build (datastore <sqlite-datastore>) uuid) - (call-with-worker-thread + (call-with-worker-thread/delay-logging (slot-ref datastore 'worker-reader-thread-channel) (lambda (db) (let ((statement @@ -2344,7 +2344,7 @@ WHERE all_inputs_built = 1 (datastore <sqlite-datastore>) event arguments) - (call-with-worker-thread + (call-with-worker-thread/delay-logging (slot-ref datastore 'worker-writer-thread-channel) (lambda (db) (insert-unprocessed-hook-event db |