Display details for the derivation source files

If the nar file is available.

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

guix-data-service/web/controller.scm

@@ -177,7 +177,10 @@
            #:code 404))
          ((id)
           (render-html
-           #:sxml (view-derivation-source-file filename)
+           #:sxml (view-derivation-source-file
+                   filename
+                   (select-derivation-source-file-nar-details-by-file-name conn
+                                                                           filename))
            #:extra-headers http-headers-for-unchanging-content))))
       (derivations
        (render-html

guix-data-service/web/view/html.scm

@@ -499,7 +499,14 @@
              derivations
              derivations-using-store-item-list)))))
 
-(define (view-derivation-source-file filename)
+(define (view-derivation-source-file filename details)
+  (define labels
+    '((compression       . "Compression")
+      (hash_algorithm    . "Hash algorithm")
+      (hash              . "Hash")
+      (uncompressed_size . "Uncompressed size")
+      (compressed_size   . "Compressed size")))
+
   (layout
    #:body
    `(,(header)
@@ -510,7 +517,20 @@
        (div
         (@ (class "col-sm-12"))
         ,(display-store-item-title filename)
-        "Derivation source file."))))))
+        (h4 "Derivation source file")
+        ,@(if details
+              `((dl
+                 (@ (class "dl-horizontal"))
+                 ,@(append-map
+                    (match-lambda
+                      ((key . value)
+                       `((dt ,(assq-ref labels key))
+                         (dd ,(if (eq? key 'hash)
+                                  `(span (@ (style "font-family: monospace"))
+                                         ,value)
+                                  value)))))
+                    details)))
+              '())))))))
 
 (define (view-derivation derivation derivation-inputs derivation-outputs
                          builds)