From e93da1ae8fa745fb792e39381af09482d9986b14 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 21 Nov 2020 21:10:33 +0000 Subject: [PATCH] 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))))))