diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-12-04 10:34:03 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-12-04 10:57:56 +0100 |
| commit | 9300e2e893a5c04c7775a13e1dab0943c18d1faf (patch) | |
| tree | f56eed38fed9ca142f70f93c7b9b2a2b17ce4872 | |
| parent | 0a5fa004f7f21dc3e01747b8e94fbb21e056e4ca (diff) | |
| download | guix-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.scm | 7 |
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) |