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

Improve the builds info on the revision package version page

Browse source 
Show multiple builds, and link to the build page.
This commit is contained in:
Christopher Baines 2019-12-27 00:09:07 +00:00
parent 0e3c28ffbd
commit 7654877991
2 changed files with 44 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

16
guix-data-service/web/revision/html.scm
View file

@ -237,13 +237,25 @@
(tbody
,@(map
(match-lambda
((system target file-name status)
((system target file-name builds)
`(tr
(td (samp ,system))
(td (samp ,target))
(td (a (@ (href ,file-name))
,(display-store-item-short file-name)))
(td ,(build-status-span status)))))
(td
(ul
(@ (class "list-inline"))
,@(map (lambda (build)
`(li
(a (@ (href
,(simple-format
#f "/build-server/~A/build?derivation_file_name=~A"
(assoc-ref build "build_server_id")
file-name)))
,(build-status-span
(assoc-ref build "status")))))
builds))))))
derivations)))))
(div
(@ (class "row"))