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

Properly sort the derivation outputs

Browse source
This commit is contained in:
Christopher Baines 2020-02-15 19:54:17 +00:00
parent a6e19a4102
commit 617af6c9d3
1 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -818,13 +818,15 @@ VALUES ($1, $2)"
(define (select-derivation-outputs-by-derivation-id conn id) (define (select-derivation-outputs-by-derivation-id conn id)
(define query (define query
(string-append (string-append
"SELECT derivation_outputs.name, derivation_output_details.path, " "
"derivation_output_details.hash_algorithm, derivation_output_details.hash, " SELECT derivation_outputs.name, derivation_output_details.path,
"derivation_output_details.recursive " derivation_output_details.hash_algorithm, derivation_output_details.hash,
"FROM derivation_outputs " derivation_output_details.recursive
"INNER JOIN derivation_output_details ON " FROM derivation_outputs
"derivation_outputs.derivation_output_details_id = derivation_output_details.id " INNER JOIN derivation_output_details ON
"WHERE derivation_id = $1")) derivation_outputs.derivation_output_details_id = derivation_output_details.id
WHERE derivation_id = $1
ORDER BY derivation_outputs.name"))
(map (map
(match-lambda (match-lambda