cbaines pushed a commit to branch master
in repository data-service.
commit 46b86761f522f83b38e9978875750e1eae4d30de
Author: Christopher Baines <[email protected]>
AuthorDate: Sun Oct 13 19:12:09 2024 +0100
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)
