branch master updated: website: packages: Fix list of supported architecture.

[julien lepiller]

This is an automated email from the git hooks/post-receive script.

roptat pushed a commit to branch master
in repository guix-artwork.

The following commit(s) were added to refs/heads/master by this push:
     new 34eea1c  website: packages: Fix list of supported architecture.
34eea1c is described below

commit 34eea1c726ddf879223925d2d135e79025863840
Author: Julien Lepiller <julien@lepiller.eu>
AuthorDate: Mon Nov 23 22:21:51 2020 +0100

    website: packages: Fix list of supported architecture.
    
    package-transitive-supported-systems looks at the transitive closure of
    inputs for the current architecture.  When we generate the website on
    x86_64, it selects the reduced bootstrap path, which is only supported
    on x86_64 and i686.  The result is that it would show only these two
    architectures as supported when it is not the case.
    
    Thanks to baryluk on IRC for noticing the set of supported architecture
    on the website was so small.
    
    * website/apps/packages/templates/components.scm (package-t): Fix list of
    supported architecture.
---
 website/apps/packages/templates/components.scm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/website/apps/packages/templates/components.scm 
b/website/apps/packages/templates/components.scm
index 2695f73..565b408 100644
--- a/website/apps/packages/templates/components.scm
+++ b/website/apps/packages/templates/components.scm
@@ -16,6 +16,7 @@
   #:use-module (guix packages)
   #:use-module (guix gnu-maintenance)
   #:use-module (srfi srfi-1)
+  #:use-module (srfi srfi-26)
   #:use-module (texinfo)
   #:use-module (texinfo plain-text)
   #:export (detailed-package-preview
@@ -262,10 +263,8 @@
        (package-id (string-append (package-name package)
                                   "-"
                                   (package-version package)))
-       (systems (lset-intersection
-                  string=?
-                  %hydra-supported-systems
-                  (package-transitive-supported-systems package))))
+       (systems (filter (cut supported-package? package <>)
+                     %hydra-supported-systems)))
     (if (null? systems)
         (C_ "systems" "None")
         ;; TODO: There's currently no way to refer to a job like