diff options
| -rw-r--r-- | guix-data-service/web/revision/controller.scm | 3 | ||||
| -rw-r--r-- | guix-data-service/web/revision/html.scm | 11 |
2 files changed, 6 insertions, 8 deletions
diff --git a/guix-data-service/web/revision/controller.scm b/guix-data-service/web/revision/controller.scm index 5582867..bf01863 100644 --- a/guix-data-service/web/revision/controller.scm +++ b/guix-data-service/web/revision/controller.scm @@ -360,8 +360,7 @@ (render-html #:sxml (view-revision-package-reproducibility commit-hash - output-consistency - #:header-text '("Package reproducibility status"))))))) + output-consistency)))))) (define (render-revision-news mime-types conn diff --git a/guix-data-service/web/revision/html.scm b/guix-data-service/web/revision/html.scm index 0ddd503..f388af6 100644 --- a/guix-data-service/web/revision/html.scm +++ b/guix-data-service/web/revision/html.scm @@ -649,9 +649,7 @@ '()))))) (define* (view-revision-package-reproducibility revision-commit-hash - output-consistency - #:key path-base - header-text header-link) + output-consistency) (layout #:body `(,(header) @@ -723,8 +721,9 @@ figure { (div (@ (class "col-sm-12")) (h3 (a (@ (style "white-space: nowrap;") - (href ,header-link)) - ,@header-text)))) + (href ,(string-append "/revision/" revision-commit-hash))) + "Revision " (samp ,revision-commit-hash))) + (h1 "Package reproducibility"))) (div (@ (class "row")) ;; Inspired by @@ -750,7 +749,7 @@ figure { `(div (@ (class "col-sm-6")) - (h2 (@ (style "font-family: monospace;")) + (h3 (@ (style "font-family: monospace;")) ,system) (figure (div |