>From aac774421d5b746e633138c78768dcadb6be1650 Mon Sep 17 00:00:00 2001
From: Royce Strange <royball@disroot.org>
Date: Thu, 11 Jun 2020 00:41:45 -0500
Subject: [PATCH] website: Fix duplicated packages in the package-list

Fixes <https://bugs.gnu.org/36394>.

* website/apps/packages/data.scm (%package-list):
Filter out replaced packages.
---
 website/apps/packages/data.scm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/website/apps/packages/data.scm b/website/apps/packages/data.scm
index f1fa55d..d1bbc92 100644
--- a/website/apps/packages/data.scm
+++ b/website/apps/packages/data.scm
@@ -41,11 +41,10 @@
            (sort (parameterize ((%package-module-path (last-pair
                                                        (%package-module-path))))
                    (fold-packages (lambda (package lst)
-                                    (if (package-superseded package)
+                                    (if (or (package-superseded package)
+                                            (package-replacement package))
                                         lst
-                                        (cons (or (package-replacement package)
-                                                  package)
-                                              lst)))
+                                        (cons package lst)))
                                   '()))
                  (lambda (p1 p2)
                    (string<? (package-name p1)
-- 
2.26.2