Add a function to select derivation sources

1 files changed, 15 insertions, 0 deletions

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 "