cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Further reduce some chunk sizes

Browse source
This commit is contained in:
Christopher Baines 2022-09-15 16:25:31 +02:00
parent 37e8af60fb
commit 8ef896b103
2 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
guix-data-service/model/derivation.scm
View file

@ -1423,7 +1423,7 @@ INNER JOIN derivation_outputs
AND vals.output_name = derivation_outputs.name"))))) AND vals.output_name = derivation_outputs.name")))))
(chunk-for-each! process-chunk (chunk-for-each! process-chunk
250 200
(list-copy derivation-ids) (list-copy derivation-ids)
(list-copy derivations))) (list-copy derivations)))
@ -1773,7 +1773,7 @@ WHERE " criteria ";"))
file-name file-name
(string->number id)))) (string->number id))))
(exec-query conn (select-existing-derivations chunk)))) (exec-query conn (select-existing-derivations chunk))))
(chunk! missing-file-names 2000))))) (chunk! missing-file-names 1000)))))
(define (derivation-file-names->derivation-ids conn derivation-file-names) (define (derivation-file-names->derivation-ids conn derivation-file-names)
(define (insert-source-files-missing-nars derivation-ids) (define (insert-source-files-missing-nars derivation-ids)

2
guix-data-service/model/utils.scm
View file

@ -366,7 +366,7 @@ WHERE table_name = $1"
(delete-duplicates (delete-duplicates
(concatenate data)) (concatenate data))
data) data)
5000))))) 3000)))))
(missing-entries (missing-entries
(filter (lambda (field-values) (filter (lambda (field-values)
(not (vhash-assoc (not (vhash-assoc