From 46b86761f522f83b38e9978875750e1eae4d30de Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 13 Oct 2024 19:12:09 +0100 Subject: [PATCH] Fix free-disk-space call As the WAL file might not exist. --- 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 ddfd364..3db3b9f 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -1771,7 +1771,7 @@ SELECT 1 FROM derivation_source_file_nars WHERE derivation_source_file_id = $1" (max (* 4096 (expt 2 20)) (* 0.8 - (- (free-disk-space "/var/guix/db/db.sqlite-wal") + (- (free-disk-space "/var/guix/db/db.sqlite") (get-wal-bytes))))) (if (< (get-wal-bytes) threshold)