Allow prioritising jobs from specific repositories

To help the QA data service prioritise branches over patches.

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")