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

Improve build links on the package derivations page

Browse source
This commit is contained in:
Christopher Baines 2020-12-09 19:08:19 +00:00
parent 69057b41a7
commit 74980bce70
2 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
guix-data-service/model/derivation.scm
View file

@ -311,6 +311,7 @@ SELECT derivations.file_name,
SELECT JSON_AGG( SELECT JSON_AGG(
json_build_object( json_build_object(
'build_server_id', builds.build_server_id, 'build_server_id', builds.build_server_id,
'build_server_build_id', builds.build_server_build_id,
'status', latest_build_status.status, 'status', latest_build_status.status,
'timestamp', latest_build_status.timestamp, 'timestamp', latest_build_status.timestamp,
'build_for_equivalent_derivation', 'build_for_equivalent_derivation',
@ -498,6 +499,7 @@ SELECT derivations.file_name,
SELECT JSON_AGG( SELECT JSON_AGG(
json_build_object( json_build_object(
'build_server_id', builds.build_server_id, 'build_server_id', builds.build_server_id,
'build_server_build_id', builds.build_server_build_id,
'status', latest_build_status.status, 'status', latest_build_status.status,
'timestamp', latest_build_status.timestamp, 'timestamp', latest_build_status.timestamp,
'build_for_equivalent_derivation', 'build_for_equivalent_derivation',

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

@ -1663,10 +1663,10 @@ figure {
,(assq-ref build-server-urls ,(assq-ref build-server-urls
build-server-id))) build-server-id)))
(dd (dd
(a (@ (href (a (@ (href ,(build-url
,(simple-format
#f "/build-server/~A/build?derivation_file_name=~A"
build-server-id build-server-id
(assoc-ref build
"build_server_build_id")
file-name))) file-name)))
,(build-status-alist->build-icon build)))))) ,(build-status-alist->build-icon build))))))
(vector->list builds))))))) (vector->list builds)))))))