From a0feabdfdb5b0949ac16fc8280bbabe157cbd084 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Fri, 13 Mar 2020 11:32:35 +0100
Subject: 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(-)

(limited to 'guix/scripts')

diff --git a/guix/scripts/weather.scm b/guix/scripts/weather.scm
index 913c84955e..a9e0cba92a 100644
--- a/guix/scripts/weather.scm
+++ b/guix/scripts/weather.scm
@@ -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))
-- 
cgit v1.2.3