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

Link to the build pages from the derivation page

Browse source
This commit is contained in:
Christopher Baines 2019-12-15 10:36:42 +00:00
parent 308d1d7102
commit 771b01ef80
2 changed files with 11 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
guix-data-service/model/build.scm
View file

@ -129,7 +129,8 @@ LIMIT 100"))
conn derivation-file-name)
(define query
"
SELECT build_servers.url,
SELECT build_servers.id,
build_servers.url,
latest_build_status.timestamp,
latest_build_status.status
FROM builds
@ -140,7 +141,7 @@ INNER JOIN
FROM build_status
ORDER BY build_id, timestamp DESC
) AS latest_build_status
ON latest_build_status.build_id = builds.id
ON latest_build_status.build_id = builds.id
INNER JOIN derivations_by_output_details_set
ON builds.derivation_output_details_set_id =
derivations_by_output_details_set.derivation_output_details_set_id

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

@ -581,10 +581,16 @@
,(build-status-span "")))
(map
(match-lambda
((build-server-url timestamp status)
((build-server-id build-server-url timestamp status)
`(div
(@ (class "text-center"))
(div ,(build-status-span status))
(div
(a (@ (href
,(simple-format
#f "/build-server/~A/build?derivation_file_name=~A"
build-server-id
(second derivation))))
,(build-status-span status)))
(a (@ (style "display: inline-block; margin-top: 0.4em;")
(href ,(simple-format
#f "~Abuild/~A"