cbaines pushed a commit to branch master
in repository data-service.
commit 814a5d7cba64698b3499b92854e8aa66f627c80a
Author: Christopher Baines <[email protected]>
AuthorDate: Sat Nov 21 20:10:46 2020 +0000
Fix some links on the compare page
---
guix-data-service/web/compare/html.scm | 23 ++++++++++++++++-------
1 file changed, 16 insertions(+), 7 deletions(-)
diff --git a/guix-data-service/web/compare/html.scm
b/guix-data-service/web/compare/html.scm
index e5bbcfc..825d0a7 100644
--- a/guix-data-service/web/compare/html.scm
+++ b/guix-data-service/web/compare/html.scm
@@ -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"))
