From e5d6c72717de93b7b6d64c7febabf1dfc547d480 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Wed, 6 Dec 2023 18:00:07 +0000 Subject: Add delay logging to SQLite transactions --- guix-build-coordinator/datastore/sqlite.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'guix-build-coordinator') diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index d87a90f..888775e 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -561,7 +561,7 @@ PRAGMA optimize;") (raise-exception exn)))) (lambda () (parameterize ((%current-transaction-proc proc)) - (proc db))) + (call-with-delay-logging proc #:args (list db)))) #:unwind? #t)) (lambda vals (let loop ((success? (attempt-commit))) @@ -578,7 +578,7 @@ PRAGMA optimize;") 'worker-writer-thread-channel)) (lambda (db) (if (%current-transaction-proc) - (proc db) ; already in transaction + (call-with-delay-logging proc #:args (list db)) ; already in transaction (run-proc-within-transaction db))) #:duration-logger (lambda (duration-seconds) -- cgit v1.2.3