From 39f52e3a2ea126a08d60e087d1f6b83f8e00f5d4 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Thu, 4 Feb 2021 10:28:04 +0000
Subject: [PATCH] Update parse-commit for the guix-revision changes

---
 guix-data-service/web/compare/controller.scm | 51 +++++++++++---------
 1 file changed, 27 insertions(+), 24 deletions(-)

diff --git a/guix-data-service/web/compare/controller.scm b/guix-data-service/web/compare/controller.scm
index a847a1b..a6aa198 100644
--- a/guix-data-service/web/compare/controller.scm
+++ b/guix-data-service/web/compare/controller.scm
@@ -57,30 +57,33 @@
   (parallel-via-thread-pool-channel
    (with-thread-postgresql-connection
     (lambda (conn)
-      (if (guix-commit-exists? conn s)
-          s
-          (let* ((job-details
-                  (select-job-for-commit conn s))
-                 (job-state
-                  (assq-ref job-details 'state)))
-            (if job-details
-                (make-invalid-query-parameter
-                 s
-                 (cond
-                  ((string=? job-state "queued")
-                   `("data unavailable, "
-                     (a (@ (href ,(string-append
-                                   "/revision/" s)))
-                        "yet to process revision")))
-                  ((string=? job-state "failed")
-                   `("data unavailable, "
-                     (a (@ (href ,(string-append
-                                   "/revision/" s)))
-                        "failed to process revision")))
-                  (else
-                   "unknown job state")))
-                (make-invalid-query-parameter
-                 s "unknown commit"))))))))
+      (let* ((job-details
+              (select-job-for-commit conn s))
+             (job-state
+              (assq-ref job-details 'state)))
+        (if job-details
+            (cond
+             ((string=? job-state "succeeded")
+              s)
+             ((string=? job-state "queued")
+              (make-invalid-query-parameter
+               s
+               `("data unavailable, "
+                 (a (@ (href ,(string-append
+                               "/revision/" s)))
+                    "yet to process revision"))))
+             ((string=? job-state "failed")
+              (make-invalid-query-parameter
+               s
+               `("data unavailable, "
+                 (a (@ (href ,(string-append
+                               "/revision/" s)))
+                    "failed to process revision"))))
+             (else
+              (make-invalid-query-parameter
+               s "unknown job state")))
+            (make-invalid-query-parameter
+             s "unknown commit")))))))
 
 (define (parse-derivation file-name)
   (if (parallel-via-thread-pool-channel