diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-07-19 17:27:35 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-07-19 19:44:53 +0100 |
| commit | ed4ba8eb9505ba1dd5368c7735de12aa11c25057 (patch) | |
| tree | c56a8188e2a44c650304c42785f01a958b450073 /guix-data-service | |
| parent | 3f1c2ad6038515981adf3fbafd7c1e49e145047d (diff) | |
| download | data-service-ed4ba8eb9505ba1dd5368c7735de12aa11c25057.tar data-service-ed4ba8eb9505ba1dd5368c7735de12aa11c25057.tar.gz | |
Reduce the WAL size threshold
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 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) |