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

Support querying builds by status

Browse source
This commit is contained in:
Christopher Baines 2019-12-01 21:31:29 +00:00
parent 04e98ed4da
commit f7069456b5
4 changed files with 67 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -28,9 +28,9 @@ ORDER BY status")
(exec-query conn query))
(define (select-builds-with-context conn)
(define (select-builds-with-context conn build-statuses)
(define query
"
(string-append "
SELECT builds.id, build_servers.url, derivations.file_name,
latest_build_status.timestamp, latest_build_status.status
FROM builds
@ -43,8 +43,17 @@ INNER JOIN
ORDER BY build_id, timestamp DESC
) AS latest_build_status
ON latest_build_status.build_id = builds.id
"
(if (list? build-statuses)
(string-append
"WHERE latest_build_status.status IN ("
(string-join (map quote-string build-statuses)
",")
")")
"")
"
ORDER BY latest_build_status.timestamp DESC
LIMIT 100")
LIMIT 100"))
(exec-query conn query))