diff options
author | Christopher Baines <mail@cbaines.net> | 2023-04-22 16:32:50 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-04-22 16:32:50 +0100 |
commit | 42a5de6efee46cf1482185f869aaea5544f3fc66 (patch) | |
tree | a223dff55a12252075418d15f9f4c0d6426756d3 /guix-build-coordinator/datastore | |
parent | 46df1203aa0c1ae3502e6d70cda8e826718b37b2 (diff) | |
download | build-coordinator-42a5de6efee46cf1482185f869aaea5544f3fc66.tar build-coordinator-42a5de6efee46cf1482185f869aaea5544f3fc66.tar.gz |
Tune the extreme WAL truncating
Allow the WAL to grow a bit more, and increase the time to wait to truncate
it.
Diffstat (limited to 'guix-build-coordinator/datastore')
-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 b82cf74..31f2f4d 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -247,7 +247,7 @@ (* 5 MiB)) (define extreme-wal-size-threshold - (* 15 MiB)) + (* 30 MiB)) (and (let ((checkpoint-duration-metric-name @@ -261,7 +261,7 @@ (lambda () (when (> (wal-size) extreme-wal-size-threshold) ;; Since the WAL is really getting too big, wait for much longer - (sqlite-exec db "PRAGMA busy_timeout = 120000;")) + (sqlite-exec db "PRAGMA busy_timeout = 300000;")) (let* ((statement (sqlite-prepare |