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

* guix/scripts/refresh.scm (all-packages): Filter out deprecated packages.
This commit is contained in:
Ludovic Courtès 2018-12-04 10:34:03 +01:00
parent 0a5fa004f7
commit 9300e2e893
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 6 additions and 1 deletions

View File

@ -278,7 +278,12 @@ the latest known version of ~a (~a)~%")
(define (all-packages) (define (all-packages)
"Return the list of all the distro's 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 #:select? (const #t))) ;include hidden packages
(define (list-dependents packages) (define (list-dependents packages)