diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-12-30 12:32:20 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-12-30 12:32:20 +0000 |
| commit | 2cb5309851b3868dcdb0e88145d676b474c575aa (patch) | |
| tree | 274c9ac598f8a561d630ee4ebc1b5d05fa4ecb8b /guix-data-service/web | |
| parent | 7881eec3152b19de1850c3ef54236f75ae5ed015 (diff) | |
| download | data-service-2cb5309851b3868dcdb0e88145d676b474c575aa.tar data-service-2cb5309851b3868dcdb0e88145d676b474c575aa.tar.gz | |
Display details for the derivation source files
If the nar file is available.
Diffstat (limited to 'guix-data-service/web')
| -rw-r--r-- | guix-data-service/web/controller.scm | 5 | ||||
| -rw-r--r-- | guix-data-service/web/view/html.scm | 24 |
2 files changed, 26 insertions, 3 deletions
diff --git a/guix-data-service/web/controller.scm b/guix-data-service/web/controller.scm index f2a6385..71b2429 100644 --- a/guix-data-service/web/controller.scm +++ b/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 diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm index c0df5cb..cf718a8 100644 --- a/guix-data-service/web/view/html.scm +++ b/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) |