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

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

@ -108,8 +108,19 @@
(define (select-derivations-by-revision-name-and-version
conn revision-commit-hash name version)
(define query "
SELECT derivations.system, package_derivations.target, derivations.file_name,
latest_build_status.status
SELECT derivations.system,
package_derivations.target,
derivations.file_name,
JSON_AGG(
json_build_object(
'build_server_id', builds.build_server_id,
'status', latest_build_status.status,
'timestamp', latest_build_status.timestamp,
'build_for_equivalent_derivation',
builds.derivation_file_name != derivations.file_name
)
ORDER BY latest_build_status.timestamp
)
FROM derivations
INNER JOIN package_derivations
ON derivations.id = package_derivations.derivation_id
@ -124,6 +135,8 @@ INNER JOIN derivations_by_output_details_set
LEFT OUTER JOIN builds
ON derivations_by_output_details_set.derivation_output_details_set_id =
builds.derivation_output_details_set_id
LEFT OUTER JOIN build_servers
ON builds.build_server_id = build_servers.id
LEFT OUTER JOIN (
SELECT DISTINCT ON (build_id) *
FROM build_status
@ -133,11 +146,25 @@ LEFT OUTER JOIN (
WHERE guix_revisions.commit = $1
AND packages.name = $2
AND packages.version = $3
GROUP BY derivations.system,
package_derivations.target,
derivations.file_name
ORDER BY derivations.system DESC,
package_derivations.target DESC,
derivations.file_name")
(exec-query conn query (list revision-commit-hash name version)))
(map (match-lambda
((system target file-name builds-json)
(list system
target
file-name
(filter (lambda (build)
(assoc-ref build "status"))
(vector->list
(json-string->scm builds-json))))))
(exec-query conn
query
(list revision-commit-hash name version))))
(define* (select-derivations-in-revision conn
commit-hash