diff options
Diffstat (limited to 'guix-data-service/model/derivation.scm')
| -rw-r--r-- | guix-data-service/model/derivation.scm | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/guix-data-service/model/derivation.scm b/guix-data-service/model/derivation.scm index 2122121..8a9e88c 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-details-by-file-name select-derivation-source-file-nar-data-by-file-name select-derivation-source-file-data-by-file-name-hash select-derivation-by-output-filename @@ -831,6 +832,26 @@ WHERE substring(derivation_source_files.store_path from 12 for 32) = $1" (string->number uncompressed_size))) (() #f))) +(define (select-derivation-source-file-nar-details-by-file-name conn file-name) + (match (exec-query + conn + " +SELECT compression, hash_algorithm, hash, + uncompressed_size, length(data) AS compressed_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 derivation_source_files.store_path = $1" + (list file-name)) + (((compression hash_algorithm hash uncompressed_size compressed_size)) + `((compression . ,compression) + (hash_algorithm . ,hash_algorithm) + (hash . ,hash) + (uncompressed_size . ,(string->number uncompressed_size)) + (compressed_size . ,(string->number compressed_size)))) + (() #f))) + (define (select-derivation-source-file-nar-data-by-file-name conn file-name) (match (exec-query conn |