diff options
Diffstat (limited to 'guix-data-service/model')
| -rw-r--r-- | guix-data-service/model/derivation.scm | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/guix-data-service/model/derivation.scm b/guix-data-service/model/derivation.scm index 5e8e3cf..f26102c 100644 --- a/guix-data-service/model/derivation.scm +++ b/guix-data-service/model/derivation.scm @@ -41,6 +41,7 @@ select-derivation-sources-by-derivation-id select-derivation-references-by-derivation-id select-derivation-source-file-by-store-path + select-derivation-source-file-nar-data-by-file-name select-derivation-by-output-filename select-derivations-using-output select-derivations-in-revision @@ -804,6 +805,23 @@ WHERE store_path = $1") (map car (exec-query conn query (list store-path)))) +(define (select-derivation-source-file-nar-data-by-file-name conn file-name) + (match (exec-query + conn + " +SELECT data +FROM derivation_source_file_nars +INNER JOIN derivation_source_files + ON derivation_source_file_nars.derivation_source_file_id = + derivation_source_files.id +WHERE derivation_source_files.store_path = $1" + (list file-name)) + (((data)) + (base16-string->bytevector + ;; Drop \x from the start of the string + (string-drop data 2))) + (() #f))) + (define (select-serialized-derivation-by-file-name conn derivation-file-name) (define (double-quote s) (string-append |