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

Fix latest processed commit for branch

Browse source
This commit is contained in:
Christopher Baines 2021-02-03 10:58:55 +00:00
parent 643753ff46
commit 481b1c186f
1 changed files with 15 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

22
guix-data-service/model/git-branch.scm
View file

@ -118,13 +118,21 @@ WHERE git_branches.commit = $1")
(define* (latest-processed-commit-for-branch conn repository-id branch-name) (define* (latest-processed-commit-for-branch conn repository-id branch-name)
(define query (define query
(string-append (string-append
"SELECT git_branches.commit " "
"FROM git_branches " SELECT git_branches.commit
"INNER JOIN guix_revisions ON git_branches.commit = guix_revisions.commit " FROM git_branches
"WHERE guix_revisions.git_repository_id = $1 AND " INNER JOIN guix_revisions
"git_branches.git_repository_id = $1 AND git_branches.name = $2 " ON git_branches.commit = guix_revisions.commit
"ORDER BY datetime DESC " INNER JOIN load_new_guix_revision_jobs
"LIMIT 1")) ON load_new_guix_revision_jobs.commit = guix_revisions.commit
INNER JOIN load_new_guix_revision_job_events
ON job_id = load_new_guix_revision_jobs.id
WHERE guix_revisions.git_repository_id = $1
AND git_branches.git_repository_id = $1
AND git_branches.name = $2
AND load_new_guix_revision_job_events.event = 'success'
ORDER BY datetime DESC
LIMIT 1"))
(match (exec-query (match (exec-query
conn conn