refresh: '--list-dependents' ignores deprecated packages.

* guix/scripts/refresh.scm (all-packages): Filter out deprecated packages.
2018-12-04 10:34:03 +01:00 · 2018-12-04 10:34:03 +01:00 · 9300e2e893
parent 0a5fa004f7
commit 9300e2e893
1 changed files with 6 additions and 1 deletions
--- a/guix/scripts/refresh.scm
+++ b/guix/scripts/refresh.scm
@ -278,7 +278,12 @@ the latest known version of ~a (~a)~%")

 (define (all-packages)
  "Return the list of all the distro's packages."
-  (fold-packages cons '()
+  (fold-packages (lambda (package result)
+                   ;; Ignore deprecated packages.
+                   (if (package-superseded package)
+                       result
+                       (cons package result)))
+                 '()
                 #:select? (const #t)))           ;include hidden packages

 (define (list-dependents packages)