diff options
Diffstat (limited to 'guix-data-service/jobs/load-new-guix-revision.scm')
-rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 16 |
1 files changed, 13 insertions, 3 deletions
diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index 8531edf..b0493ca 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -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") |