From 2d13bcc2d9360a916aa45418d7a693f1d68907c3 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Mon, 24 Apr 2023 14:56:12 +0100 Subject: Add delay logging to more operations involved in submitting builds --- guix-build-coordinator/datastore/sqlite.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'guix-build-coordinator/datastore') 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 ) 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 ) derivation-name) - (call-with-worker-thread + (call-with-worker-thread/delay-logging (slot-ref datastore 'worker-reader-thread-channel) (lambda (db) (let ((statement -- cgit v1.2.3