02/06: weather: '--coverage' filters out non-package objects.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit a0feabdfdb5b0949ac16fc8280bbabe157cbd084
Author: Ludovic Courtès <address@hidden>
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))