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

Fix some links on the compare page

Browse source
This commit is contained in:
Christopher Baines 2020-11-21 20:10:46 +00:00
parent 12f35c493b
commit 814a5d7cba
1 changed files with 16 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
guix-data-service/web/compare/html.scm
View file

@ -54,9 +54,7 @@
(define query-params
(unless invalid-query?
(string-append "?base_commit=" base-commit
"&target_commit=" target-commit
"&locale=" locale)))
(query-parameters->string query-parameters)))
(layout
#:body
@ -172,17 +170,28 @@
(@ (class "btn-group btn-group-lg")
(role "group"))
(a (@ (class "btn btn-default")
(href ,(string-append "/compare/packages" query-params)))
(href ,(string-append
"/"
(cond
((eq? mode 'revision) "compare")
((eq? mode 'datetime) "compare-by-datetime"))
"/packages?"
query-params)))
"Compare packages")
(a (@ (class "btn btn-default")
(href ,(string-append "/compare/package-derivations"
query-params)))
(href ,(string-append
"/"
(cond
((eq? mode 'revision) "compare")
((eq? mode 'datetime) "compare-by-datetime"))
"/package-derivations?"
query-params)))
"Compare package derivations")))
(div
(@ (class "col-sm-6"))
(a (@ (class "btn btn-default btn-lg pull-right")
(href ,(string-append
"/compare.json" query-params)))
"/compare.json?" query-params)))
"View JSON")))
(div
(@ (class "row"))