diff options
Diffstat (limited to 'guix-data-service/model/derivation.scm')
| -rw-r--r-- | guix-data-service/model/derivation.scm | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/guix-data-service/model/derivation.scm b/guix-data-service/model/derivation.scm index f26102c..692b3fe 100644 --- a/guix-data-service/model/derivation.scm +++ b/guix-data-service/model/derivation.scm @@ -42,6 +42,7 @@ select-derivation-references-by-derivation-id select-derivation-source-file-by-store-path select-derivation-source-file-nar-data-by-file-name + select-derivation-source-file-data-by-file-name-hash select-derivation-by-output-filename select-derivations-using-output select-derivations-in-revision @@ -805,6 +806,31 @@ WHERE store_path = $1") (map car (exec-query conn query (list store-path)))) +(define (select-derivation-source-file-data-by-file-name-hash conn hash) + (match (exec-query + conn + " +SELECT derivation_source_files.store_path, + derivation_source_file_nars.compression, + length(derivation_source_file_nars.data) AS compressed_size, + derivation_source_file_nars.hash_algorithm, + derivation_source_file_nars.hash, + derivation_source_file_nars.uncompressed_size +FROM derivation_source_file_nars +INNER JOIN derivation_source_files + ON derivation_source_file_nars.derivation_source_file_id = + derivation_source_files.id +WHERE substring(derivation_source_files.store_path from 12 for 32) = $1" + (list hash)) + (((store_path compression compressed_size hash_algorithm hash uncompressed_size)) + (list store_path + compression + (string->number compressed_size) + hash_algorithm + hash + (string->number uncompressed_size))) + (() #f))) + (define (select-derivation-source-file-nar-data-by-file-name conn file-name) (match (exec-query conn |