diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-05-13 17:20:25 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-05-13 17:20:25 +0100 |
| commit | 2043a4ef6f85ea943f6b1d0ab453c5b9c716f824 (patch) | |
| tree | d30e4d386b023ea89cebbed39206fc4790d17ba8 /guix-data-service | |
| parent | f4be64761073fbe9b1b07c6126104b54358c7bfb (diff) | |
| download | data-service-2043a4ef6f85ea943f6b1d0ab453c5b9c716f824.tar data-service-2043a4ef6f85ea943f6b1d0ab453c5b9c716f824.tar.gz | |
Fix WAL threshold
As it was too small.
Diffstat (limited to 'guix-data-service')
| -rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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) |