From af1324855e1ecaf9b1dd7afcc714d09aaa38f081 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Tue, 26 Nov 2019 07:17:24 +0000
Subject: Fix the JSON output for the derivation history page

---
 guix-data-service/web/repository/controller.scm | 32 ++++++++++++-------------
 guix-data-service/web/repository/html.scm       |  2 +-
 2 files changed, 17 insertions(+), 17 deletions(-)

diff --git a/guix-data-service/web/repository/controller.scm b/guix-data-service/web/repository/controller.scm
index cdc89d6..45fd6bd 100644
--- a/guix-data-service/web/repository/controller.scm
+++ b/guix-data-service/web/repository/controller.scm
@@ -124,22 +124,22 @@
               mime-types)
          ((application/json)
           (render-json
-           `((versions . ,(list->vector
-                           (map (match-lambda
-                                  ((package-version derivation-file-name
-                                                    first-guix-revision-commit
-                                                    first-datetime
-                                                    last-guix-revision-commit
-                                                    last-datetime)
-                                   `((version . ,package-version)
-                                     (derivation . ,derivation-file-name)
-                                     (first_revision
-                                      . ((commit . ,first-guix-revision-commit)
-                                         (datetime . ,first-datetime)))
-                                     (last_revision
-                                      . ((commit . ,last-guix-revision-commit)
-                                         (datetime . ,last-datetime))))))
-                                package-versions))))))
+           `((derivations . ,(list->vector
+                              (map (match-lambda
+                                     ((package-version derivation-file-name
+                                                       first-guix-revision-commit
+                                                       first-datetime
+                                                       last-guix-revision-commit
+                                                       last-datetime)
+                                      `((version . ,package-version)
+                                        (derivation . ,derivation-file-name)
+                                        (first_revision
+                                         . ((commit . ,first-guix-revision-commit)
+                                            (datetime . ,first-datetime)))
+                                        (last_revision
+                                         . ((commit . ,last-guix-revision-commit)
+                                            (datetime . ,last-datetime))))))
+                                   package-derivations))))))
          (else
           (render-html
            #:sxml (view-branch-package-derivations
diff --git a/guix-data-service/web/repository/html.scm b/guix-data-service/web/repository/html.scm
index a504ee5..610af22 100644
--- a/guix-data-service/web/repository/html.scm
+++ b/guix-data-service/web/repository/html.scm
@@ -318,7 +318,7 @@
                       "/repository/" git-repository-id
                       "/branch/" branch-name
                       "/package/" package-name
-                      ".json")))
+                      "/derivation-history.json")))
            "View JSON")
         (h1 (@ (style "white-space: nowrap;"))
             (samp ,package-name))))
-- 
cgit v1.2.3