guix/data-service
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/data-service.git synced 2023-12-14 03:23:03 +01:00
Code Issues Releases Wiki Activity

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
No known key found for this signature in database
GPG key ID: 5E28A33B0B84F577
1 changed files with 19 additions and 14 deletions
Show stats 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
(@ (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)))))))