Improve select-derivation-outputs-by-derivation-id

It now converts the recursive value to a boolean.
This commit is contained in:
Christopher Baines 2019-11-10 09:39:45 +00:00
parent a658d64b46
commit 34318fbb50

View file

@ -251,7 +251,15 @@ ORDER BY derivations.system DESC,
"derivation_outputs.derivation_output_details_id = derivation_output_details.id "
"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 query