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))))))