diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-11-20 19:37:12 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-11-20 19:37:12 +0000 |
| commit | 00c84640c5952a1f0da80140afedcafafde118e3 (patch) | |
| tree | 40515e7b9639eec7540de1717dbeb11c775b7258 | |
| parent | 65507aaac1d7534f58908bde967d8c209e9999f4 (diff) | |
| download | data-service-00c84640c5952a1f0da80140afedcafafde118e3.tar data-service-00c84640c5952a1f0da80140afedcafafde118e3.tar.gz | |
Improve the headings on the compare derivations page
| -rw-r--r-- | guix-data-service/web/compare/html.scm | 19 |
1 files 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") |