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

Fix the latest-processed-revision pages

Browse source
This commit is contained in:
Christopher Baines 2019-07-27 09:12:25 +01:00
parent 7f8ffb4bea
commit 75226a1499
2 changed files with 12 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -96,20 +96,21 @@ WHERE git_branches.commit = $1")
query
(list branch-name git-repository-id))))
(define* (latest-processed-commit-for-branch conn branch-name)
(define* (latest-processed-commit-for-branch conn repository-id branch-name)
(define query
(string-append
"SELECT git_branches.commit "
"FROM git_branches "
"INNER JOIN guix_revisions ON git_branches.commit = guix_revisions.commit "
"WHERE git_branches.name = $1 "
"WHERE guix_revisions.git_repository_id = $1 AND "
"git_branches.git_repository_id = $1 AND git_branches.name = $2 "
"ORDER BY datetime DESC "
"LIMIT 1"))
(match (exec-query
conn
query
(list branch-name))
(list repository-id branch-name))
(((commit-hash))
commit-hash)
('()