diff options
| -rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index 7a7cb1b..e8d9f2a 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -146,13 +146,17 @@ (sqlite-exec db "PRAGMA foreign_keys = ON;") (list db))) #:destructor - (lambda (db) - (db-optimize db - database-file - metrics-registry - #:maybe-truncate-wal? #f) + (let ((writer-thread-destructor-counter + (make-gauge-metric metrics-registry + "datastore_writer_thread_close_total"))) + (lambda (db) + (db-optimize db + database-file + metrics-registry + #:maybe-truncate-wal? #f) - (sqlite-close db)) + (metric-increment writer-thread-destructor-counter) + (sqlite-close db))) #:lifetime 500 ;; SQLite doesn't support parallel writes |