2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/data-service.git synced 2023-12-14 03:23:03 +01:00

Fix the JSON link on the compare package derivations page

This commit is contained in:
Christopher Baines 2020-11-21 21:10:33 +00:00
parent 7e1cba3309
commit e93da1ae8f

View file

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