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)