diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-09-01 17:52:12 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-09-01 18:32:09 +0100 |
| commit | 514933db473b60db8fdd9eb5e5d3f94ce94ac715 (patch) | |
| tree | 4bbcd7a7c2fd5800ca7f2014c8d03f83af94eb82 | |
| parent | 14fab21dc1bb42ff894b2640b0539d2e3613e222 (diff) | |
| download | data-service-514933db473b60db8fdd9eb5e5d3f94ce94ac715.tar data-service-514933db473b60db8fdd9eb5e5d3f94ce94ac715.tar.gz | |
Link to the package from the lint warnings page
| -rw-r--r-- | guix-data-service/web/view/html.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm index 7195bf9..982b5f2 100644 --- a/guix-data-service/web/view/html.scm +++ b/guix-data-service/web/view/html.scm @@ -801,7 +801,12 @@ package-name package-version file line-number column-number message) `(tr - (td ,package-name " @ " ,package-version) + (td (a (@ (href ,(string-append + (string-join + (drop-right (string-split path-base #\/) 1) + "/") + "/package/" package-name "/" package-version))) + ,package-name " @ " ,package-version)) ,@(if (member "linter" fields) `((td (span (@ (style "font-family: monospace; display: block;")) ,lint-checker-name) |