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

Fix comparing by datetime

Browse source 
When the latest revisions haven't been processed successfully yet.
This commit is contained in:
Christopher Baines 2021-02-05 11:07:31 +00:00
parent 07f903abaf
commit b7ba8d0c2c
1 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

14
guix-data-service/model/guix-revision.scm
View file

@ -100,13 +100,19 @@ FROM guix_revisions
INNER JOIN git_branches INNER JOIN git_branches
ON git_branches.commit = guix_revisions.commit ON git_branches.commit = guix_revisions.commit
AND git_branches.git_repository_id = guix_revisions.git_repository_id AND git_branches.git_repository_id = guix_revisions.git_repository_id
WHERE git_branches.name = $1 AND git_branches.datetime <= $2 INNER JOIN load_new_guix_revision_jobs
ON load_new_guix_revision_jobs.commit = guix_revisions.commit
WHERE git_branches.name = $1
AND git_branches.datetime <= $2
AND load_new_guix_revision_jobs.succeeded_at IS NOT NULL
ORDER BY git_branches.datetime DESC ORDER BY git_branches.datetime DESC
LIMIT 1") LIMIT 1")
(car (match (exec-query conn query
(exec-query conn query (list branch (list branch
(date->string datetime "~1 ~3"))))) (date->string datetime "~1 ~3")))
(() #f)
((result) result)))
(define (guix-revisions-cgit-url-bases conn guix-revision-ids) (define (guix-revisions-cgit-url-bases conn guix-revision-ids)
(map (map