From d107830300532ab0d57593ca12b4554acbed888c Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 3 Jan 2020 21:42:52 +0000 Subject: Add a #:loop? option to backfill-derivation-source-file-nars --- guix-data-service/model/derivation.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'guix-data-service/model') diff --git a/guix-data-service/model/derivation.scm b/guix-data-service/model/derivation.scm index 29a1ce7..d2ed2fa 100644 --- a/guix-data-service/model/derivation.scm +++ b/guix-data-service/model/derivation.scm @@ -1066,7 +1066,9 @@ INSERT INTO derivation_source_file_nars ( (number->string uncompressed-size) (string-append "\\x" data-string)))))) -(define* (backfill-derivation-source-file-nars conn #:key (batch-size 10000)) +(define* (backfill-derivation-source-file-nars conn #:key + (batch-size 10000) + (loop? #t)) (define (missing-batch) (exec-query conn @@ -1092,7 +1094,7 @@ LIMIT $1" (simple-format #t "inserting ~A\n" source-file)) (simple-format #t "missing ~A\n" source-file)))) batch) - (loop (missing-batch))))) + (when loop? (loop (missing-batch)))))) (define (insert-missing-derivations conn derivation-ids-hash-table -- cgit v1.2.3