diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-09-01 17:27:36 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-09-01 18:32:09 +0100 |
| commit | 14fab21dc1bb42ff894b2640b0539d2e3613e222 (patch) | |
| tree | f3c9169af6d9226b5dc8389472568c3c288f2f1d /guix-data-service | |
| parent | be25e487f1e97ec2e6e706c2864323e4b6ed6a22 (diff) | |
| download | data-service-14fab21dc1bb42ff894b2640b0539d2e3613e222.tar data-service-14fab21dc1bb42ff894b2640b0539d2e3613e222.tar.gz | |
Link to the lint warnings page from the revision page
Diffstat (limited to 'guix-data-service')
| -rw-r--r-- | guix-data-service/web/view/html.scm | 7 |
1 files 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") |