From ed4ba8eb9505ba1dd5368c7735de12aa11c25057 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 19 Jul 2024 17:27:35 +0100 Subject: [PATCH] Reduce the WAL size threshold --- guix-data-service/jobs/load-new-guix-revision.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index 00b20f7..dd52c73 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -1528,7 +1528,7 @@ (match-lambda ((system . target) (let loop ((wal-bytes (stat:size (stat "/var/guix/db/db.sqlite-wal")))) - (when (> wal-bytes (* 2048 (expt 2 20))) + (when (> wal-bytes (* 512 (expt 2 20))) (simple-format #t "debug: guix-daemon WAL is large (~A), waiting\n" wal-bytes)