diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index 2d6af34..5e28ba0 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -1891,7 +1891,7 @@ SELECT 1 FROM derivation_source_file_nars WHERE derivation_source_file_id = $1" (define chunk-size 5000) - (define (process-system-and-target system target) + (define (check-wal-size) (let loop ((wal-bytes (catch #t (lambda () @@ -1914,6 +1914,7 @@ SELECT 1 FROM derivation_source_file_nars WHERE derivation_source_file_id = $1" (with-time-logging (simple-format #f "getting derivations for ~A" (cons system target)) (let loop ((start-index 0)) + (check-wal-size) (let* ((count (if (>= (+ start-index chunk-size) packages-count) (- packages-count start-index)