From 34318fbb507959479627846e3e87ac814aa53d14 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 10 Nov 2019 09:39:45 +0000 Subject: Improve select-derivation-outputs-by-derivation-id It now converts the recursive value to a boolean. --- guix-data-service/model/derivation.scm | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/guix-data-service/model/derivation.scm b/guix-data-service/model/derivation.scm index 8614491..98b89b8 100644 --- a/guix-data-service/model/derivation.scm +++ b/guix-data-service/model/derivation.scm @@ -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 -- cgit v1.2.3