Add links from the builds pages to the pages for individual builds

This commit is contained in:
Christopher Baines 2019-12-22 15:23:03 +00:00
parent 14b7993636
commit 0b0d734a97
2 changed files with 12 additions and 2 deletions

View file

@ -107,7 +107,12 @@
timestamp status)
`(tr
(td (@ (class "text-center"))
,(build-status-span status))
(a (@ (href
,(simple-format
#f "/build-server/~A/build?derivation_file_name=~A"
(assoc-ref build-server-options build-server-url)
derivation-file-name)))
,(build-status-span status)))
(td (a (@ (href ,derivation-file-name))
,(display-store-item-short derivation-file-name)))
(td ,timestamp)

View file

@ -1248,7 +1248,12 @@ figure {
timestamp status)
`(tr
(td (@ (class "text-center"))
,(build-status-span status))
(a (@ (href
,(simple-format
#f "/build-server/~A/build?derivation_file_name=~A"
(assoc-ref build-server-options build-server-url)
derivation-file-name)))
,(build-status-span status)))
(td (a (@ (href ,derivation-file-name))
,(display-store-item-short derivation-file-name)))
(td ,timestamp)