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

Increase the batch size for fetching builds/narinfo files

Browse source 
To increase the likelyhood that all the builds and narinfo files for the
latest revisions are fetched.
This commit is contained in:
Christopher Baines 2020-03-14 12:34:23 +00:00
parent 6e81acf0a5
commit 33958eac79
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/builds.scm
View file

@ -522,7 +522,7 @@ WHERE derivation_output_details_set_id NOT IN (
" "
) )
ORDER BY derivation_output_details_set_id, derivations.id ORDER BY derivation_output_details_set_id, derivations.id
LIMIT 15000")) LIMIT 30000"))
(exec-query conn query (list (number->string build-server-id)))) (exec-query conn query (list (number->string build-server-id))))
@ -606,7 +606,7 @@ WHERE NOT EXISTS (
" "
) )
ORDER BY derivation_output_details_sets.id DESC, derivation_output_details.id ORDER BY derivation_output_details_sets.id DESC, derivation_output_details.id
LIMIT 15000")) LIMIT 30000"))
(fold (lambda (row result) (fold (lambda (row result)
(match row (match row

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

@ -347,7 +347,7 @@ WHERE derivation_output_details.path NOT IN (
)")) )"))
" "
ORDER BY derivation_output_details.id DESC ORDER BY derivation_output_details.id DESC
LIMIT 10000")) LIMIT 100000"))
(map car (exec-query conn query (list (number->string build-server-id))))) (map car (exec-query conn query (list (number->string build-server-id)))))