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

Add a view build link on the build page

Browse source
This commit is contained in:
Christopher Baines 2020-10-21 19:26:18 +01:00
parent 41a7f38f44
commit efb26a616d
3 changed files with 18 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -245,6 +245,7 @@ ORDER BY latest_build_status.timestamp DESC")
(define query
"
SELECT build_servers.url,
builds.build_server_build_id,
builds.derivation_file_name,
(
SELECT JSON_AGG(
@ -273,8 +274,9 @@ GROUP BY builds.id, build_servers.url, builds.derivation_file_name")
query
(list (number->string build-server-id)
build-server-build-id))
(((build-server-url derivation-file-name statuses-json))
(((build-server-url build-server-build-id derivation-file-name statuses-json))
(list build-server-url
build-server-build-id
derivation-file-name
(json-string->scm statuses-json)))
(()
@ -285,6 +287,7 @@ GROUP BY builds.id, build_servers.url, builds.derivation_file_name")
(define query
"
SELECT build_servers.url,
builds.build_server_build_id,
builds.derivation_file_name,
(
SELECT JSON_AGG(
@ -313,10 +316,11 @@ GROUP BY builds.id, build_servers.url, builds.derivation_file_name")
query
(list (number->string build-server-id)
derivation-file-name))
(((build-server-url derivation-file-name statuses-json))
(((build-server-url build-server-build-id derivation-file-name statuses-json))
;; Returning the derivation-file-name is for consistency with
;; select-build-by-build-server-and-build-server-build-id
(list build-server-url
build-server-build-id
derivation-file-name
(json-string->scm statuses-json)))
(()