diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-12-10 18:35:48 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-12-10 18:35:48 +0000 |
| commit | cc9a2ddb72fb512e8aaeec3c903def949cd5fe16 (patch) | |
| tree | 8d60391908f3d67552e26582a104d21221309b99 /guix-qa-frontpage/view | |
| parent | 8644fc01068db6d69cfe187b21c3c2d4562114e2 (diff) | |
| download | qa-frontpage-cc9a2ddb72fb512e8aaeec3c903def949cd5fe16.tar qa-frontpage-cc9a2ddb72fb512e8aaeec3c903def949cd5fe16.tar.gz | |
Ignore derivation lint warnings
As the data service doesn't process these any longer.
Diffstat (limited to 'guix-qa-frontpage/view')
| -rw-r--r-- | guix-qa-frontpage/view/issue.scm | 42 |
1 files changed, 23 insertions, 19 deletions
diff --git a/guix-qa-frontpage/view/issue.scm b/guix-qa-frontpage/view/issue.scm index 11c7de2..de75503 100644 --- a/guix-qa-frontpage/view/issue.scm +++ b/guix-qa-frontpage/view/issue.scm @@ -147,26 +147,30 @@ td.bad { (small "(for lint checkers that don't require the network)")))) (append-map (lambda (package-warnings) - (map + (filter-map (lambda (warning) - `(tr - (td (@ (style ,(string-join - `("border-left-width: 0.35em;" - "border-left-style: solid;" - ,(string-append - "border-left-color: " - (if (string=? (assoc-ref warning "change") - "new") - "red" - "green")))))) - ,(assoc-ref warning "change")) - (td ,@(let ((checker (assoc-ref warning "checker"))) - `((span (@ (class "monospace") - (style "display: block;")) - ,(assoc-ref checker "name")) - (p (@ (style "font-size: small;")) - ,(assoc-ref checker "description"))))) - (td ,(assoc-ref warning "message")))) + (let ((checker (assoc-ref warning "checker"))) + (if (string=? (assoc-ref checker "name") + "derivation") + #f + `(tr + (td (@ (style ,(string-join + `("border-left-width: 0.35em;" + "border-left-style: solid;" + ,(string-append + "border-left-color: " + (if (string=? (assoc-ref warning "change") + "new") + "red" + "green")))))) + ,(assoc-ref warning "change")) + (td + (span (@ (class "monospace") + (style "display: block;")) + ,(assoc-ref checker "name")) + (p (@ (style "font-size: small;")) + ,(assoc-ref checker "description"))) + (td ,(assoc-ref warning "message")))))) (vector->list (assoc-ref package-warnings "warnings")))) (vector->list |