From 41afcef9a6d34687d80099659b284bbebd5ec2ef Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 9 Nov 2019 20:47:38 +0000 Subject: Add a function to select derivation sources --- guix-data-service/model/derivation.scm | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/guix-data-service/model/derivation.scm b/guix-data-service/model/derivation.scm index 4b79682..8614491 100644 --- a/guix-data-service/model/derivation.scm +++ b/guix-data-service/model/derivation.scm @@ -13,6 +13,7 @@ count-derivations select-derivation-by-file-name select-derivation-outputs-by-derivation-id + select-derivation-sources-by-derivation-id select-derivation-by-output-filename select-derivations-using-output select-derivations-by-revision-name-and-version @@ -270,6 +271,20 @@ ORDER BY derivations.file_name")) (exec-query conn query (list (number->string id)))) +(define (select-derivation-sources-by-derivation-id conn id) + (define query + (string-append + " +SELECT derivation_source_files.store_path +FROM derivation_source_files +INNER JOIN derivation_sources + ON derivation_source_files.id = derivation_sources.derivation_source_file_id +WHERE derivation_sources.derivation_id = $1 +ORDER BY 1")) + + (map first + (exec-query conn query (list (number->string id))))) + (define (insert-derivation-inputs conn derivation-id derivation-inputs) (define (insert-into-derivation-inputs output-ids) (string-append "INSERT INTO derivation_inputs " -- cgit v1.2.3