Fix comparing by datetime

When the latest revisions haven't been processed successfully yet.

1 files 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