From f83cff7107e5aacba1cd8f0c971cd9c27451e720 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Fri, 24 Apr 2020 10:46:20 +0100
Subject: Add a JSON output for the revision channel instances

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

(limited to 'guix-data-service/web/revision')

diff --git a/guix-data-service/web/revision/controller.scm b/guix-data-service/web/revision/controller.scm
index 9f8592a..c48da0f 100644
--- a/guix-data-service/web/revision/controller.scm
+++ b/guix-data-service/web/revision/controller.scm
@@ -417,7 +417,14 @@
            mime-types)
       ((application/json)
        (render-json
-        '()))                           ; TODO
+        `((channel_instances . ,(list->vector
+                                 (map
+                                  (match-lambda
+                                    ((system derivation-file-name builds)
+                                     `((system     . ,system)
+                                       (derivation . ,derivation-file-name)
+                                       (builds     . ,(list->vector builds)))))
+                                  channel-instances))))))
       (else
        (render-html
         #:sxml (view-revision-channel-instances
-- 
cgit v1.2.3