From 00bc6535f97cac86a91339f492256888d1fff512 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Thu, 26 Mar 2020 09:14:00 +0000
Subject: [PATCH] Add an unimplemented JSON response for the branch page

---
 .../web/repository/controller.scm             | 40 +++++++++++--------
 1 file changed, 23 insertions(+), 17 deletions(-)

diff --git a/guix-data-service/web/repository/controller.scm b/guix-data-service/web/repository/controller.scm
index f31c41f..2776773 100644
--- a/guix-data-service/web/repository/controller.scm
+++ b/guix-data-service/web/repository/controller.scm
@@ -70,23 +70,29 @@
              `((after_date     ,parse-datetime)
                (before_date    ,parse-datetime)
                (limit_results  ,parse-result-limit #:default 100)))))
-       (render-html
-        #:sxml (if (any-invalid-query-parameters? parsed-query-parameters)
-                   (view-branch repository-id
-                                branch-name parsed-query-parameters '())
-                   (view-branch
-                    repository-id
-                    branch-name
-                    parsed-query-parameters
-                    (most-recent-commits-for-branch
-                     conn
-                     (string->number repository-id)
-                     branch-name
-                     #:limit (assq-ref parsed-query-parameters 'limit_results)
-                     #:after-date (assq-ref parsed-query-parameters
-                                            'after_date)
-                     #:before-date (assq-ref parsed-query-parameters
-                                             'before_date)))))))
+       (case (most-appropriate-mime-type
+              '(application/json text/html)
+              mime-types)
+         ((application/json)
+          (render-json '((error . "unimplemented")))) ; TODO
+         (else
+          (render-html
+           #:sxml (if (any-invalid-query-parameters? parsed-query-parameters)
+                      (view-branch repository-id
+                                   branch-name parsed-query-parameters '())
+                      (view-branch
+                       repository-id
+                       branch-name
+                       parsed-query-parameters
+                       (most-recent-commits-for-branch
+                        conn
+                        (string->number repository-id)
+                        branch-name
+                        #:limit (assq-ref parsed-query-parameters 'limit_results)
+                        #:after-date (assq-ref parsed-query-parameters
+                                               'after_date)
+                        #:before-date (assq-ref parsed-query-parameters
+                                                'before_date)))))))))
     (('GET "repository" repository-id "branch" branch-name "package" package-name)
      (let ((package-versions
             (package-versions-for-branch conn