diff options
author | Christopher Baines <mail@cbaines.net> | 2020-05-11 10:10:53 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-05-11 10:10:53 +0100 |
commit | c184ebec65c47e9caff8a0ecb7d90b6d1947ee3d (patch) | |
tree | 2c6ddc22150220787aa8c4c2d8393d586f81fd65 /guix-build-coordinator | |
parent | ec8c7683d3dd8ceb6b8cb360295494671a0ac733 (diff) | |
download | build-coordinator-c184ebec65c47e9caff8a0ecb7d90b6d1947ee3d.tar build-coordinator-c184ebec65c47e9caff8a0ecb7d90b6d1947ee3d.tar.gz |
Optimise the database and truncate the WAL on startup
Diffstat (limited to 'guix-build-coordinator')
-rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index a0faaae..793f157 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -68,6 +68,11 @@ (when update-database? (run-sqitch database-file)) + (let ((db (db-open database-file))) + (sqlite-exec db "PRAGMA optimize;") + (sqlite-exec db "PRAGMA wal_checkpoint(TRUNCATE);") + (sqlite-close db)) + (let ((datastore (make <sqlite-datastore>))) (slot-set! datastore 'database-file database-file) |