cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Support displaying builtin:download derivations

Browse source
This commit is contained in:
Christopher Baines 2019-03-28 21:02:16 +00:00
parent 76d6027b7c
commit 4619b7b575
Signed by: cbaines
GPG key ID: 5E28A33B0B84F577
1 changed files with 19 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

33
guix-data-service/web/view/html.scm
View file

@ -519,18 +519,20 @@
(div (div
(@ (class "col-md-4")) (@ (class "col-md-4"))
(h3 "Inputs") (h3 "Inputs")
(table ,(if (null? derivation-inputs)
(@ (class "table")) "No inputs"
(thead `(table
(tr (@ (class "table"))
(th "File name"))) (thead
(tdata (tr
,@(map (match-lambda (th "File name")))
((file-name output-name path) (tdata
`(tr ,@(map (match-lambda
(td (a (@ (href ,file-name)) ((file-name output-name path)
,(display-store-item-short path)))))) `(tr
derivation-inputs)))) (td (a (@ (href ,file-name))
,(display-store-item-short path))))))
derivation-inputs)))))
(div (div
(@ (class "col-md-4")) (@ (class "col-md-4"))
(h3 "Derivation details") (h3 "Derivation details")
@ -541,8 +543,11 @@
(tbody (tbody
(tr (tr
(td "Builder") (td "Builder")
(td (a (@ (href ,builder)) (td ,(if (string=? "builtin:download"
,(display-file-in-store-item builder)))) builder)
"builtin:download"
`(a (@ (href ,builder))
,(display-file-in-store-item builder)))))
(tr (tr
(td "System") (td "System")
(td (samp ,system))))))) (td (samp ,system)))))))