civodul pushed a commit to branch master
in repository guix.
commit a0feabdfdb5b0949ac16fc8280bbabe157cbd084
Author: Ludovic Courtès <[email protected]>
AuthorDate: Fri Mar 13 11:32:35 2020 +0100
weather: '--coverage' filters out non-package objects.
This is a followup to d37b5a1b58824dafbe6f32b1c183661c147c660c.
* guix/scripts/weather.scm (guix-weather): Filter PACKAGES passed to
'report-package-coverage'.
---
guix/scripts/weather.scm | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/guix/scripts/weather.scm b/guix/scripts/weather.scm
index 913c849..a9e0cba 100644
--- a/guix/scripts/weather.scm
+++ b/guix/scripts/weather.scm
@@ -552,7 +552,11 @@ SERVER. Display information for packages with at least
THRESHOLD dependents."
(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))
