diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-11-10 09:39:45 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-11-10 09:39:45 +0000 |
| commit | 34318fbb507959479627846e3e87ac814aa53d14 (patch) | |
| tree | eb3136fda03a36d0c3d42a7a475778cb88ce1438 | |
| parent | a658d64b46352830e82de28f8555691b63c9974c (diff) | |
| download | data-service-34318fbb507959479627846e3e87ac814aa53d14.tar data-service-34318fbb507959479627846e3e87ac814aa53d14.tar.gz | |
Improve select-derivation-outputs-by-derivation-id
It now converts the recursive value to a boolean.
| -rw-r--r-- | guix-data-service/model/derivation.scm | 10 |
1 files changed, 9 insertions, 1 deletions
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 |