From 44c6a87f53690dd47a8ef1f139b863ba696104a1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 25 Oct 2017 20:35:43 -0700
Subject: [PATCH] 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'.
---
 guix/scripts/package.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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)