From 759ced5c9d62dfd877c73e768546f6ec895454d2 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Thu, 14 Nov 2019 21:32:34 +0000 Subject: Add a function for selecting derivation source files --- guix-data-service/model/derivation.scm | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/guix-data-service/model/derivation.scm b/guix-data-service/model/derivation.scm index 98b89b8..2e2cdd8 100644 --- a/guix-data-service/model/derivation.scm +++ b/guix-data-service/model/derivation.scm @@ -14,6 +14,7 @@ select-derivation-by-file-name select-derivation-outputs-by-derivation-id select-derivation-sources-by-derivation-id + select-derivation-source-file-by-store-path select-derivation-by-output-filename select-derivations-using-output select-derivations-by-revision-name-and-version @@ -293,6 +294,15 @@ ORDER BY 1")) (map first (exec-query conn query (list (number->string id))))) +(define (select-derivation-source-file-by-store-path conn store-path) + (define query + " +SELECT id +FROM derivation_source_files +WHERE store_path = $1") + + (map car (exec-query conn query (list store-path)))) + (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