From 2043a4ef6f85ea943f6b1d0ab453c5b9c716f824 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Mon, 13 May 2024 17:20:25 +0100 Subject: [PATCH] Fix WAL threshold As it was too small. --- 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 5c2744c..d821157 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -1485,7 +1485,7 @@ (match-lambda ((system . target) (let loop ((wal-bytes (stat:size (stat "/var/guix/db/db.sqlite-wal")))) - (when (> wal-bytes 200000000) + (when (> wal-bytes (* 2048 (expt 2 20))) (simple-format #t "debug: guix-daemon WAL is large (~A), waiting\n" wal-bytes)