10/10: Fix the JSON link on the compare package derivations page

[Christopher Baines]

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

commit e93da1ae8fa745fb792e39381af09482d9986b14
Author: Christopher Baines <m...@cbaines.net>
AuthorDate: Sat Nov 21 21:10:33 2020 +0000

    Fix the JSON link on the compare package derivations page
---
 guix-data-service/web/compare/html.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/guix-data-service/web/compare/html.scm 
b/guix-data-service/web/compare/html.scm
index 993137e..b2325ee 100644
--- a/guix-data-service/web/compare/html.scm
+++ b/guix-data-service/web/compare/html.scm
@@ -785,7 +785,11 @@ enough builds to determine a change")))
                 (href ,(let ((query-parameter-string
                               (query-parameters->string query-parameters)))
                          (string-append
-                          "/compare/package-derivations.json"
+                          "/"
+                          (cond
+                           ((eq? mode 'revision) "compare")
+                           ((eq? mode 'datetime) "compare-by-datetime"))
+                          "/package-derivations.json"
                           (if (string-null? query-parameter-string)
                               ""
                               (string-append "?" query-parameter-string))))))