aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2018-12-04 10:34:03 +0100
committerLudovic Courtès <ludo@gnu.org>2018-12-04 10:57:56 +0100
commit9300e2e893a5c04c7775a13e1dab0943c18d1faf (patch)
treef56eed38fed9ca142f70f93c7b9b2a2b17ce4872
parent0a5fa004f7f21dc3e01747b8e94fbb21e056e4ca (diff)
downloadguix-9300e2e893a5c04c7775a13e1dab0943c18d1faf.tar
guix-9300e2e893a5c04c7775a13e1dab0943c18d1faf.tar.gz
refresh: '--list-dependents' ignores deprecated packages.
* guix/scripts/refresh.scm (all-packages): Filter out deprecated packages.
-rw-r--r--guix/scripts/refresh.scm7
1 files changed, 6 insertions, 1 deletions
diff --git a/guix/scripts/refresh.scm b/guix/scripts/refresh.scm
index 58fc64db1f..60e822b16b 100644
--- 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)