aboutsummaryrefslogtreecommitdiff
path: root/guix-build-coordinator
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2023-12-06 18:00:07 +0000
committerChristopher Baines <mail@cbaines.net>2023-12-06 18:00:07 +0000
commite5d6c72717de93b7b6d64c7febabf1dfc547d480 (patch)
treedb48eff94bbcd171003d4940a63fc2252a98d1d5 /guix-build-coordinator
parent7de0ed3febeb7c71233d1cfa5cda944a390f7966 (diff)
downloadbuild-coordinator-e5d6c72717de93b7b6d64c7febabf1dfc547d480.tar
build-coordinator-e5d6c72717de93b7b6d64c7febabf1dfc547d480.tar.gz
Add delay logging to SQLite transactions
Diffstat (limited to 'guix-build-coordinator')
-rw-r--r--guix-build-coordinator/datastore/sqlite.scm4
1 files changed, 2 insertions, 2 deletions
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)