From 42a5de6efee46cf1482185f869aaea5544f3fc66 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 22 Apr 2023 16:32:50 +0100 Subject: Tune the extreme WAL truncating Allow the WAL to grow a bit more, and increase the time to wait to truncate it. --- guix-build-coordinator/datastore/sqlite.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'guix-build-coordinator/datastore') 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 -- cgit v1.2.3