From 00c84640c5952a1f0da80140afedcafafde118e3 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 20 Nov 2020 19:37:12 +0000 Subject: [PATCH] Improve the headings on the compare derivations page --- guix-data-service/web/compare/html.scm | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) diff --git a/guix-data-service/web/compare/html.scm b/guix-data-service/web/compare/html.scm index 2fea059..46e7be0 100644 --- a/guix-data-service/web/compare/html.scm +++ b/guix-data-service/web/compare/html.scm @@ -612,16 +612,19 @@ (@ (class "container")) (div (@ (class "row")) - (h1 ,@(let ((base-commit (assq-ref query-parameters 'base_commit)) + (h3 ,@(let ((base-commit (assq-ref query-parameters 'base_commit)) (target-commit (assq-ref query-parameters 'target_commit))) (if (every string? (list base-commit target-commit)) - `("Comparing " - (a (@ (href ,(string-append "/revision/" base-commit))) - (samp ,(string-take base-commit 8) "…")) - " and " - (a (@ (href ,(string-append "/revision/" target-commit))) + `((a (@ (href ,(string-append + "/compare?base_commit=" + base-commit + "&target_commit=" + target-commit))) + "Comparing " + (samp ,(string-take base-commit 8) "…") + " and " (samp ,(string-take target-commit 8) "…"))) - '("Comparing derivations"))))) + '("Comparing package derivations"))))) (div (@ (class "row")) (div @@ -714,7 +717,7 @@ enough builds to determine a change"))) (@ (class "row")) (div (@ (class "col-sm-12")) - (h3 "Package derivation changes") + (h1 "Package derivation changes") ,(if (null? derivation-changes) '(p "No derivation changes")