aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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)