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) conn derivation-file-name)
(define query (define query
" "
SELECT build_servers.url, SELECT build_servers.id,
build_servers.url,
latest_build_status.timestamp, latest_build_status.timestamp,
latest_build_status.status latest_build_status.status
FROM builds FROM builds
@ -140,7 +141,7 @@ INNER JOIN
FROM build_status FROM build_status
ORDER BY build_id, timestamp DESC ORDER BY build_id, timestamp DESC
) AS latest_build_status ) 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 INNER JOIN derivations_by_output_details_set
ON builds.derivation_output_details_set_id = ON builds.derivation_output_details_set_id =
derivations_by_output_details_set.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 ""))) ,(build-status-span "")))
(map (map
(match-lambda (match-lambda
((build-server-url timestamp status) ((build-server-id build-server-url timestamp status)
`(div `(div
(@ (class "text-center")) (@ (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;") (a (@ (style "display: inline-block; margin-top: 0.4em;")
(href ,(simple-format (href ,(simple-format
#f "~Abuild/~A" #f "~Abuild/~A"