diff options
-rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 4 |
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) |