diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-10-13 19:12:09 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-10-13 19:12:09 +0100 |
| commit | 46b86761f522f83b38e9978875750e1eae4d30de (patch) | |
| tree | 25ea85f650bea51e52e91193f7c63af9ba66b668 | |
| parent | c04ea067c2c0f226f304fe8e1c90a56c4fdf46f8 (diff) | |
| download | data-service-46b86761f522f83b38e9978875750e1eae4d30de.tar data-service-46b86761f522f83b38e9978875750e1eae4d30de.tar.gz | |
Fix free-disk-space call
As the WAL file might not exist.
| -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 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) |