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

Continue improving pages and linking things together

Browse source
This commit is contained in:
Christopher Baines 2019-03-07 23:50:51 +00:00
parent 0380c84a67
commit a1e481cc4d
Signed by: cbaines
GPG key ID: 5E28A33B0B84F577
4 changed files with 160 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2,6 +2,7 @@
#:use-module (squee)
#:export (select-build-stats
select-builds-with-context
select-builds-with-context-by-derivation-id
select-build-by-build-server-and-id
insert-build
ensure-build-exists))
@ -42,6 +43,25 @@
(exec-query conn query))
(define (select-builds-with-context-by-derivation-id conn derivation-id)
(define query
(string-append
"SELECT builds.id, build_servers.url, "
"latest_build_status.status_fetched_at, latest_build_status.starttime, "
"latest_build_status.stoptime, latest_build_status.status "
"FROM builds "
"INNER JOIN build_servers ON build_servers.id = builds.build_server_id "
"INNER JOIN "
"(SELECT DISTINCT ON (internal_build_id) * "
"FROM build_status "
"ORDER BY internal_build_id, status_fetched_at DESC"
") AS latest_build_status "
"ON latest_build_status.internal_build_id = builds.internal_id "
"WHERE builds.derivation_id = $1 "
"ORDER BY latest_build_status.status_fetched_at DESC "))
(exec-query conn query (list derivation-id)))
(define (select-build-by-build-server-and-id
conn build-server-id id)
(exec-query conn