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

Sort derivation output details ids

Browse source 
To ensure that direct array comparison can be used in the query.
This commit is contained in:
Christopher Baines 2022-07-08 12:36:20 +01:00
parent db37d9f6a8
commit 6da5e8e67b
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -989,6 +989,9 @@ LOCK TABLE ONLY derivation_output_details
(define (derivation-output-details-ids->derivation-output-details-set-id (define (derivation-output-details-ids->derivation-output-details-set-id
conn conn
derivation-output-details-ids) derivation-output-details-ids)
(define sorted-derivation-output-details-ids
(sort derivation-output-details-ids <))
(define (select-derivation-output-details-sets-id) (define (select-derivation-output-details-sets-id)
(match (exec-query (match (exec-query
conn conn
@ -998,7 +1001,7 @@ SELECT id
FROM derivation_output_details_sets FROM derivation_output_details_sets
WHERE derivation_output_details_ids = ARRAY[" WHERE derivation_output_details_ids = ARRAY["
(string-join (map number->string (string-join (map number->string
derivation-output-details-ids) sorted-derivation-output-details-ids)
",") ",")
"]")) "]"))
(((id)) (((id))
@ -1012,7 +1015,8 @@ WHERE derivation_output_details_ids = ARRAY["
" "
INSERT INTO derivation_output_details_sets (derivation_output_details_ids) INSERT INTO derivation_output_details_sets (derivation_output_details_ids)
VALUES (ARRAY[" VALUES (ARRAY["
(string-join (map number->string derivation-output-details-ids) (string-join (map number->string
sorted-derivation-output-details-ids)
",") ",")
"]) "])
RETURNING id")) RETURNING id"))