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

Tweak using vectors in insert-derivation-outputs

Browse source
This commit is contained in:
Christopher Baines 2025-03-17 10:34:06 +00:00
parent b904fdb161
commit 7fe042498f
1 changed files with 37 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1052,9 +1052,6 @@ ON CONFLICT DO NOTHING"
(derivation-output-paths (derivation-output-paths
(map derivation-output-path (map derivation-output-path
derivation-outputs)) derivation-outputs))
(derivation-output-names
(map car names-and-derivation-outputs))
(derivation-output-details-ids (derivation-output-details-ids
(derivation-output-details->derivation-output-details-ids (derivation-output-details->derivation-output-details-ids
conn conn
@ -1073,13 +1070,17 @@ ON CONFLICT DO NOTHING"
conn conn
"derivation_outputs" "derivation_outputs"
'(derivation_id name derivation_output_details_id) '(derivation_id name derivation_output_details_id)
(let ((vec
(list->vector (list->vector
(map (lambda (output-name derivation-output-details-id) (map car names-and-derivation-outputs))))
(vector-map!
(lambda (_ output-name derivation-output-details-id)
(list derivation-id (list derivation-id
output-name output-name
derivation-output-details-id)) derivation-output-details-id))
derivation-output-names vec
(vector->list derivation-output-details-ids)))) derivation-output-details-ids)
vec))
(insert-into-derivations-by-output-details-set (insert-into-derivations-by-output-details-set
(derivation-output-details-ids->derivation-output-details-set-id (derivation-output-details-ids->derivation-output-details-set-id