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

Support querying package derivations by build status

Browse source
This commit is contained in:
Christopher Baines 2020-12-09 19:06:59 +00:00
parent de3ca9d074
commit ba511d73b0
1 changed files with 128 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -193,7 +193,10 @@ ORDER BY derivations.system DESC,
maximum-builds maximum-builds
limit-results limit-results
after-name after-name
(include-builds? #t)) (include-builds? #t)
;; build-status: failing,
;; working, unknown
build-status)
(define criteria (define criteria
(string-join (string-join
`(,@(filter-map `(,@(filter-map
@ -234,7 +237,66 @@ ORDER BY derivations.system DESC,
derivations_by_output_details_set.derivation_output_details_set_id derivations_by_output_details_set.derivation_output_details_set_id
) <= " ) <= "
(number->string maximum-builds))) (number->string maximum-builds)))
'())) '())
,@(cond
((eq? build-status #f) '())
((eq? build-status 'failing)
'("
(
NOT EXISTS (
SELECT 1
FROM builds
INNER JOIN latest_build_status
ON builds.id = latest_build_status.build_id
WHERE builds.derivation_output_details_set_id =
derivations_by_output_details_set.derivation_output_details_set_id
AND latest_build_status.status = 'succeeded'
)
AND EXISTS (
SELECT 1
FROM builds
INNER JOIN latest_build_status
ON builds.id = latest_build_status.build_id
WHERE builds.derivation_output_details_set_id =
derivations_by_output_details_set.derivation_output_details_set_id
AND latest_build_status.status = 'failed'
)
)"))
((eq? build-status 'working)
'("
EXISTS (
SELECT 1
FROM builds
INNER JOIN latest_build_status
ON builds.id = latest_build_status.build_id
WHERE builds.derivation_output_details_set_id =
derivations_by_output_details_set.derivation_output_details_set_id
AND latest_build_status.status = 'succeeded'
)"))
((eq? build-status 'unknown)
'("
(
NOT EXISTS (
SELECT 1
FROM builds
INNER JOIN latest_build_status
ON builds.id = latest_build_status.build_id
WHERE builds.derivation_output_details_set_id =
derivations_by_output_details_set.derivation_output_details_set_id
AND latest_build_status.status = 'succeeded'
)
AND NOT EXISTS (
SELECT 1
FROM builds
INNER JOIN latest_build_status
ON builds.id = latest_build_status.build_id
WHERE builds.derivation_output_details_set_id =
derivations_by_output_details_set.derivation_output_details_set_id
AND latest_build_status.status = 'failed'
)
)"))
(else
(error "unknown build-status"))))
" AND ")) " AND "))
(define query (define query
@ -318,7 +380,10 @@ ORDER BY derivations.file_name
maximum-builds maximum-builds
limit-results limit-results
after-name after-name
(include-builds? #t)) (include-builds? #t)
;; build-status: failing,
;; working, unknown
build-status)
(define criteria (define criteria
(string-join (string-join
`(,@(filter-map `(,@(filter-map
@ -359,7 +424,66 @@ ORDER BY derivations.file_name
derivations_by_output_details_set.derivation_output_details_set_id derivations_by_output_details_set.derivation_output_details_set_id
) <= " ) <= "
(number->string maximum-builds))) (number->string maximum-builds)))
'())) '())
,@(cond
((eq? build-status #f) '())
((eq? build-status 'failing)
'("
(
NOT EXISTS (
SELECT 1
FROM builds
INNER JOIN latest_build_status
ON builds.id = latest_build_status.build_id
WHERE builds.derivation_output_details_set_id =
derivations_by_output_details_set.derivation_output_details_set_id
AND latest_build_status.status = 'succeeded'
)
AND EXISTS (
SELECT 1
FROM builds
INNER JOIN latest_build_status
ON builds.id = latest_build_status.build_id
WHERE builds.derivation_output_details_set_id =
derivations_by_output_details_set.derivation_output_details_set_id
AND latest_build_status.status = 'failed'
)
)"))
((eq? build-status 'working)
'("
EXISTS (
SELECT 1
FROM builds
INNER JOIN latest_build_status
ON builds.id = latest_build_status.build_id
WHERE builds.derivation_output_details_set_id =
derivations_by_output_details_set.derivation_output_details_set_id
AND latest_build_status.status = 'succeeded'
)"))
((eq? build-status 'unknown)
'("
(
NOT EXISTS (
SELECT 1
FROM builds
INNER JOIN latest_build_status
ON builds.id = latest_build_status.build_id
WHERE builds.derivation_output_details_set_id =
derivations_by_output_details_set.derivation_output_details_set_id
AND latest_build_status.status = 'succeeded'
)
AND NOT EXISTS (
SELECT 1
FROM builds
INNER JOIN latest_build_status
ON builds.id = latest_build_status.build_id
WHERE builds.derivation_output_details_set_id =
derivations_by_output_details_set.derivation_output_details_set_id
AND latest_build_status.status = 'failed'
)
)"))
(else
(error "unknown build-status"))))
" AND ")) " AND "))
(define query (define query