guix package: '--list-available' does not show superseded packages.

* guix/scripts/package.scm (process-query) <'list-available>: Filter out
P if it matches 'package-superseded'.
This commit is contained in:
Ludovic Courtès 2017-10-25 20:35:43 -07:00
parent 17650569d4
commit 44c6a87f53
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 1 deletions

View File

@ -738,7 +738,8 @@ processed, #f otherwise."
(available (fold-packages
(lambda (p r)
(let ((n (package-name p)))
(if (supported-package? p)
(if (and (supported-package? p)
(not (package-superseded p)))
(if regexp
(if (regexp-exec regexp n)
(cons p r)