guix/data-service
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/data-service.git synced 2023-12-14 03:23:03 +01:00
Code Issues Releases Wiki Activity

Insert derivation inputs in chunks

Browse source 
To avoid one massive query.
This commit is contained in:
Christopher Baines 2021-10-03 12:56:23 +01:00
parent d5ab67000e
commit 857b4e32d5
1 changed files with 10 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1354,20 +1354,23 @@ WHERE derivation_source_files.store_path = $1"
derivations)))
(unless (null? data)
(exec-query
conn
(string-append
"
(for-each
(lambda (chunk)
(exec-query
conn
(string-append
"
INSERT INTO derivation_inputs (derivation_id, derivation_output_id)
SELECT vals.derivation_id, derivation_outputs.id
FROM (VALUES "
(string-join data ", ")
") AS vals (derivation_id, file_name, output_name)
(string-join chunk ", ")
") AS vals (derivation_id, file_name, output_name)
INNER JOIN derivations
ON derivations.file_name = vals.file_name
INNER JOIN derivation_outputs
ON derivation_outputs.derivation_id = derivations.id
AND vals.output_name = derivation_outputs.name")))))
AND vals.output_name = derivation_outputs.name")))
(chunk! data 1000)))))
(define (select-from-derivation-source-files store-paths)
(string-append