Improve select-derivation-outputs-by-derivation-id
It now converts the recursive value to a boolean.
This commit is contained in:
parent
a658d64b46
commit
34318fbb50
1 changed files with 9 additions and 1 deletions
|
|
@ -251,7 +251,15 @@ ORDER BY derivations.system DESC,
|
||||||
"derivation_outputs.derivation_output_details_id = derivation_output_details.id "
|
"derivation_outputs.derivation_output_details_id = derivation_output_details.id "
|
||||||
"WHERE derivation_id = $1"))
|
"WHERE derivation_id = $1"))
|
||||||
|
|
||||||
(exec-query conn query (list (number->string id))))
|
(map
|
||||||
|
(match-lambda
|
||||||
|
((name path hash_algorithm hash recursive)
|
||||||
|
(list name
|
||||||
|
path
|
||||||
|
hash_algorithm
|
||||||
|
hash
|
||||||
|
(string=? recursive "t"))))
|
||||||
|
(exec-query conn query (list (number->string id)))))
|
||||||
|
|
||||||
(define (select-derivation-inputs-by-derivation-id conn id)
|
(define (select-derivation-inputs-by-derivation-id conn id)
|
||||||
(define query
|
(define query
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue