From a0feabdfdb5b0949ac16fc8280bbabe157cbd084 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès 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(-) 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 @@ 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)) -- cgit v1.2.3