03/03: Fix comparing by datetime

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit b7ba8d0c2ca3aca9ba5b5f9f27b9778ee949d20e
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Fri Feb 5 11:07:31 2021 +0000

    Fix comparing by datetime
    
    When the latest revisions haven't been processed successfully yet.
---
 guix-data-service/model/guix-revision.scm | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/guix-data-service/model/guix-revision.scm 
b/guix-data-service/model/guix-revision.scm
index f7dc26a..2ebeacc 100644
--- a/guix-data-service/model/guix-revision.scm
+++ b/guix-data-service/model/guix-revision.scm
@@ -100,13 +100,19 @@ FROM guix_revisions
 INNER JOIN git_branches
   ON git_branches.commit = guix_revisions.commit
  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
 LIMIT 1")
 
-  (car
-   (exec-query conn query (list branch
-                                (date->string datetime "~1 ~3")))))
+  (match (exec-query conn query
+                     (list branch
+                           (date->string datetime "~1 ~3")))
+    (() #f)
+    ((result) result)))
 
 (define (guix-revisions-cgit-url-bases conn guix-revision-ids)
   (map