diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-12-06 18:00:07 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-12-06 18:00:07 +0000 |
| commit | e5d6c72717de93b7b6d64c7febabf1dfc547d480 (patch) | |
| tree | db48eff94bbcd171003d4940a63fc2252a98d1d5 /guix-build-coordinator | |
| parent | 7de0ed3febeb7c71233d1cfa5cda944a390f7966 (diff) | |
| download | build-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.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) |