weather: '--coverage' filters out non-package objects.

This is a followup to d37b5a1b58.

* guix/scripts/weather.scm (guix-weather): Filter PACKAGES passed to
'report-package-coverage'.
This commit is contained in:
Ludovic Courtès 2020-03-13 11:32:35 +01:00
parent be764b47ad
commit a0feabdfdb
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -552,7 +552,11 @@ (define coverage
(match (assoc-ref opts 'coverage)
(#f #f)
(threshold
(report-package-coverage server packages systems
;; PACKAGES may include non-package objects coming from a
;; manifest. Filter them out.
(report-package-coverage server
(filter package? packages)
systems
#:threshold threshold)))
(= 1 coverage))