From 35ef5bc8662b42bd8de3da1d720c12dc9e430f4e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 1 Feb 2019 12:43:42 +0100
Subject: [PATCH] guix package: '-A' no longer lists deprecated packages.

Fixes a regression introduced in
0ea939fb796fdd4f0d46d3534b2ec6135e0f3dc7.

* guix/scripts/package.scm (process-query) <'list-available>: Change
 #:superseded? to #:deprecated? since that's what
 'fold-available-packages' passes.
---
 guix/scripts/package.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm
index a633d2ee6d..8a71467b52 100644
--- a/guix/scripts/package.scm
+++ b/guix/scripts/package.scm
@@ -739,9 +739,9 @@ processed, #f otherwise."
               (available (fold-available-packages
                           (lambda* (name version result
                                          #:key outputs location
-                                         supported? superseded?
+                                         supported? deprecated?
                                          #:allow-other-keys)
-                            (if (and supported? (not superseded?))
+                            (if (and supported? (not deprecated?))
                                 (if regexp
                                     (if (regexp-exec regexp name)
                                         (cons `(,name ,version