From ec3dba489442e71eae73050cee966024a8c903f0 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Wed, 14 Sep 2022 10:37:33 +0100
Subject: Implement the JSON response for package substitute availability

---
 guix-data-service/web/revision/controller.scm | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/guix-data-service/web/revision/controller.scm b/guix-data-service/web/revision/controller.scm
index b1790be..06097f9 100644
--- a/guix-data-service/web/revision/controller.scm
+++ b/guix-data-service/web/revision/controller.scm
@@ -619,7 +619,22 @@
            mime-types)
       ((application/json)
        (render-json
-        '()))                           ; TODO
+        `((commit . ,commit-hash)
+          (substitute_servers
+           . ,(list->vector
+               (map (match-lambda
+                      ((build-server-id . data)
+                       `((server . ((url . ,(assoc-ref build-server-urls
+                                                                  build-server-id))))
+                         (availability
+                          . ,(list->vector
+                              (map (match-lambda
+                                     ((system-and-target . data)
+                                      `((system . ,(assq-ref system-and-target 'system))
+                                        (target . ,(assq-ref system-and-target 'target))
+                                        ,@data)))
+                                   data))))))
+                    substitute-availability))))))
       (else
        (render-html
         #:sxml (view-revision-package-substitute-availability
-- 
cgit v1.2.3