03/04: Implement the JSON response for package substitute availability

[Christopher Baines]

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

commit ec3dba489442e71eae73050cee966024a8c903f0
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Wed Sep 14 10:37:33 2022 +0100

    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