diff options
| author | Christopher Baines <mail@cbaines.net> | 2025-02-09 10:39:32 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2025-02-09 10:39:32 +0000 |
| commit | 4050f45d413029c9851a0c4b38c5d69f771c4345 (patch) | |
| tree | 91c93bebdfad2968d1999a9c8b5ba75cb0ce13b0 | |
| parent | 5ff441332eb7d9b648c78ad4e657007aa9c6a7b2 (diff) | |
| download | build-coordinator-4050f45d413029c9851a0c4b38c5d69f771c4345.tar build-coordinator-4050f45d413029c9851a0c4b38c5d69f771c4345.tar.gz | |
Log the WAL checkpoint duration
| -rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index 328a9c4..3233938 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -139,7 +139,8 @@ (let ((db (db-open database-file))) (sqlite-exec db "PRAGMA journal_mode=WAL;") (sqlite-exec db "PRAGMA optimize;") - (sqlite-exec db "PRAGMA wal_checkpoint(TRUNCATE);") + (with-time-logging "truncating the WAL" + (sqlite-exec db "PRAGMA wal_checkpoint(TRUNCATE);")) (sqlite-close db)) (let ((datastore (make <sqlite-datastore>))) |