01/04: Fix WAL threshold

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit 2043a4ef6f85ea943f6b1d0ab453c5b9c716f824
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Mon May 13 17:20:25 2024 +0100

    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)