diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-09-20 23:02:30 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-09-21 16:48:36 +0200 |
| commit | 660dbe65641851aa99b810e4ae065a5f72dc37d0 (patch) | |
| tree | 5fb36722e205ce363a8350b41ac4992d187786d3 /guix/scripts/package.scm | |
| parent | aeb51370da7c854e8167066df9b138e15d7363e6 (diff) | |
| download | patches-660dbe65641851aa99b810e4ae065a5f72dc37d0.tar patches-660dbe65641851aa99b810e4ae065a5f72dc37d0.tar.gz | |
guix package: '--show' ignores deprecated packages.
* guix/scripts/package.scm (process-query) <'show>: Remove superseded
packages.
* tests/guix-package-aliases.sh: Add test.
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 21737f43da..f03741aa9e 100644 --- a/guix/scripts/package.scm +++ b/guix/scripts/package.scm @@ -764,7 +764,8 @@ processed, #f otherwise." (('show requested-name) (let-values (((name version) (package-name->name+version requested-name))) - (match (find-packages-by-name name version) + (match (remove package-superseded + (find-packages-by-name name version)) (() (leave (G_ "~a~@[@~a~]: package not found~%") name version)) (packages |