From 5af213a165e3b603b27a773d52676cec633c32cc Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Fri, 24 Apr 2020 18:54:12 +0100
Subject: [PATCH] Include if data is available in the JSON response for a
 branch

---
 guix-data-service/web/repository/controller.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/guix-data-service/web/repository/controller.scm b/guix-data-service/web/repository/controller.scm
index 257b16a..88739d5 100644
--- a/guix-data-service/web/repository/controller.scm
+++ b/guix-data-service/web/repository/controller.scm
@@ -88,9 +88,10 @@
              `((revisions
                 . ,(list->vector
                     (map (match-lambda
-                           ((commit-hash date _ _)
-                            `((date . ,date)
-                              (commit-hash . ,commit-hash))))
+                           ((commit-hash date revision-exists? _)
+                            `((date            . ,date)
+                              (commit-hash     . ,commit-hash)
+                              (data_available  . ,revision-exists?))))
                          revisions))))))
            (else
             (render-html