Serve nar files for the derivation source files

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