08/08: Include if data is available in the JSON response for a branch

[Christopher Baines]

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

commit 5af213a165e3b603b27a773d52676cec633c32cc
Author: Christopher Baines <address@hidden>
AuthorDate: Fri Apr 24 18:54:12 2020 +0100

    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