From 14fab21dc1bb42ff894b2640b0539d2e3613e222 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 1 Sep 2019 17:27:36 +0100 Subject: Link to the lint warnings page from the revision page --- guix-data-service/web/view/html.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm index ac3ec03..7195bf9 100644 --- a/guix-data-service/web/view/html.scm +++ b/guix-data-service/web/view/html.scm @@ -451,8 +451,10 @@ '()))))) jobs-and-events))))) -(define (view-revision/lint-warning-counts lint-warning-counts) +(define (view-revision/lint-warning-counts path-base lint-warning-counts) `((h3 "Lint warnings") + (a (@ (href ,(string-append path-base "/lint-warnings"))) + "View lint warnings") (table (@ (class "table")) (thead @@ -503,7 +505,8 @@ (view-revision/git-repositories git-repositories-and-branches commit-hash)) ,@(view-revision/jobs-and-events jobs-and-events) - ,@(view-revision/lint-warning-counts lint-warning-counts)) + ,@(view-revision/lint-warning-counts path-base + lint-warning-counts)) (div (@ (class "col-md-6")) (h3 "Derivations") -- cgit v1.2.3