Sort the derivation inputs by derivation file name

As this is the way they're sorted in the derivation.
This commit is contained in:
Christopher Baines 2019-11-03 16:03:51 +00:00
parent 5e1808b4c2
commit fea4dc9385

View file

@ -245,16 +245,18 @@ ORDER BY derivations.system DESC,
(define (select-derivation-inputs-by-derivation-id conn id) (define (select-derivation-inputs-by-derivation-id conn id)
(define query (define query
(string-append (string-append
"SELECT derivations.file_name, derivation_outputs.name, " "
"derivation_output_details.path " SELECT derivations.file_name, derivation_outputs.name,
"FROM derivation_inputs " derivation_output_details.path
"INNER JOIN derivation_outputs" FROM derivation_inputs
" ON derivation_outputs.id = derivation_inputs.derivation_output_id " INNER JOIN derivation_outputs
"INNER JOIN derivation_output_details" ON derivation_outputs.id = derivation_inputs.derivation_output_id
" ON derivation_outputs.derivation_output_details_id = derivation_output_details.id " INNER JOIN derivation_output_details
"INNER JOIN derivations" ON derivation_outputs.derivation_output_details_id = derivation_output_details.id
" ON derivation_outputs.derivation_id = derivations.id " INNER JOIN derivations
"WHERE derivation_inputs.derivation_id = $1")) ON derivation_outputs.derivation_id = derivations.id
WHERE derivation_inputs.derivation_id = $1
ORDER BY derivations.file_name"))
(exec-query conn query (list id))) (exec-query conn query (list id)))