diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-03-28 21:02:16 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-03-28 21:02:16 +0000 |
| commit | 4619b7b5750400d4e88a60650e489f0791589148 (patch) | |
| tree | fe16ecc93a00bd892d589b6bdf8a68245b460cca | |
| parent | 76d6027b7c84abe80b57f589174efcffbe19fc69 (diff) | |
| download | data-service-4619b7b5750400d4e88a60650e489f0791589148.tar data-service-4619b7b5750400d4e88a60650e489f0791589148.tar.gz | |
Support displaying builtin:download derivations
| -rw-r--r-- | guix-data-service/web/view/html.scm | 33 |
1 files changed, 19 insertions, 14 deletions
diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm index 6d91a92..2be4b22 100644 --- a/guix-data-service/web/view/html.scm +++ b/guix-data-service/web/view/html.scm @@ -519,18 +519,20 @@ (div (@ (class "col-md-4")) (h3 "Inputs") - (table - (@ (class "table")) - (thead - (tr - (th "File name"))) - (tdata - ,@(map (match-lambda - ((file-name output-name path) - `(tr - (td (a (@ (href ,file-name)) - ,(display-store-item-short path)))))) - derivation-inputs)))) + ,(if (null? derivation-inputs) + "No inputs" + `(table + (@ (class "table")) + (thead + (tr + (th "File name"))) + (tdata + ,@(map (match-lambda + ((file-name output-name path) + `(tr + (td (a (@ (href ,file-name)) + ,(display-store-item-short path)))))) + derivation-inputs))))) (div (@ (class "col-md-4")) (h3 "Derivation details") @@ -541,8 +543,11 @@ (tbody (tr (td "Builder") - (td (a (@ (href ,builder)) - ,(display-file-in-store-item builder)))) + (td ,(if (string=? "builtin:download" + builder) + "builtin:download" + `(a (@ (href ,builder)) + ,(display-file-in-store-item builder))))) (tr (td "System") (td (samp ,system))))))) |