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

Allow prioritising jobs from specific repositories

Browse source 
To help the QA data service prioritise branches over patches.
This commit is contained in:
Christopher Baines 2024-03-07 09:44:47 +00:00
parent 184d341671
commit 5f80856ad1
5 changed files with 35 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

16
guix-data-service/jobs/load-new-guix-revision.scm
View file

@ -1898,6 +1898,9 @@ SELECT
) branches_and_latest_commits
) AS latest_branch_commit
FROM load_new_guix_revision_jobs
INNER JOIN git_repositories
ON load_new_guix_revision_jobs.git_repository_id =
git_repositories.id
WHERE
succeeded_at IS NULL AND
(
@ -1909,7 +1912,9 @@ WHERE
FROM load_new_guix_revision_job_events
WHERE job_id = load_new_guix_revision_jobs.id AND event = 'failure'
)
ORDER BY latest_branch_commit DESC, id DESC")
ORDER BY latest_branch_commit DESC,
git_repositories.job_priority DESC,
id DESC")
(map
(match-lambda
@ -2021,7 +2026,7 @@ WHERE id = $1 ")
(define (fetch-unlocked-jobs conn)
(define query "
SELECT
id,
load_new_guix_revision_jobs.id,
commit IN (
SELECT commit FROM (
SELECT DISTINCT ON (name)
@ -2035,6 +2040,9 @@ SELECT
) branches_and_latest_commits
) AS latest_branch_commit
FROM load_new_guix_revision_jobs
INNER JOIN git_repositories
ON load_new_guix_revision_jobs.git_repository_id =
git_repositories.id
WHERE
succeeded_at IS NULL AND
(
@ -2046,7 +2054,9 @@ WHERE
FROM load_new_guix_revision_job_events
WHERE job_id = load_new_guix_revision_jobs.id AND event = 'failure'
)
ORDER BY latest_branch_commit DESC, id DESC
ORDER BY latest_branch_commit DESC,
git_repositories.job_priority DESC,
load_new_guix_revision_jobs.id DESC
FOR NO KEY UPDATE OF load_new_guix_revision_jobs
SKIP LOCKED")