diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-10-25 20:35:43 -0700 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-10-25 22:25:19 -0700 |
| commit | 44c6a87f53690dd47a8ef1f139b863ba696104a1 (patch) | |
| tree | e34e42361d8c0cd14e814ed49a7475786a485873 /guix/scripts/package.scm | |
| parent | 17650569d44efbd6425f0bd93a8ff57f220034ed (diff) | |
| download | patches-44c6a87f53690dd47a8ef1f139b863ba696104a1.tar patches-44c6a87f53690dd47a8ef1f139b863ba696104a1.tar.gz | |
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'.
Diffstat (limited to 'guix/scripts/package.scm')
| -rw-r--r-- | guix/scripts/package.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm index 0e365018a9..f972ca2ef7 100644 --- a/guix/scripts/package.scm +++ b/guix/scripts/package.scm @@ -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) |