cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add "No lint warning changes" message to compare page

Browse source
This commit is contained in:
Christopher Baines 2019-10-05 11:11:22 +01:00
parent 9fc6dd08e6
commit 8019d2e687
1 changed files with 37 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

7
guix-data-service/web/view/html.scm
View file

@ -1789,7 +1789,10 @@
(div (div
(@ (class "col-sm-12")) (@ (class "col-sm-12"))
(h2 "Lint warnings") (h2 "Lint warnings")
,@(map ,@(if
(null? lint-warnings-data)
'((p "No lint warning changes"))
(map
(match-lambda (match-lambda
(((package-name package-version) . warnings) (((package-name package-version) . warnings)
`((h4 ,package-name " (version: " ,package-version ")") `((h4 ,package-name " (version: " ,package-version ")")
@ -1823,7 +1826,7 @@
,lint-checker-description)) ,lint-checker-description))
(td ,message)))) (td ,message))))
warnings)))))) warnings))))))
lint-warnings-data))))))) lint-warnings-data))))))))
(define (compare/derivations query-parameters (define (compare/derivations query-parameters
valid-systems valid-systems