13/29: website: packages: Correctly compute supported systems.

[Ludovic Courtès]

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

commit d30d57c315d1f2ad5ae4db775359a988b4038819
Author: Ludovic Courtès <address@hidden>
Date:   Tue Aug 29 00:11:30 2017 +0200

    website: packages: Correctly compute supported systems.
    
    * website/apps/packages/templates/components.scm (supported-systems->shtml):
    Fix computation of 'systems'.
---
 website/apps/packages/templates/components.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/website/apps/packages/templates/components.scm 
b/website/apps/packages/templates/components.scm
index 5224ba2..33a9941 100644
--- a/website/apps/packages/templates/components.scm
+++ b/website/apps/packages/templates/components.scm
@@ -14,6 +14,7 @@
   #:use-module (guix licenses)
   #:use-module (guix packages)
   #:use-module (guix gnu-maintenance)
+  #:use-module (srfi srfi-1)
   #:export (detailed-package-preview
            issue-count->shtml
            lint-issue->shtml
@@ -209,7 +210,10 @@
        (package-id (string-append (package-name package)
                                   "-"
                                   (package-version package)))
-       (systems (package-supported-systems package)))
+       (systems (lset-intersection
+                  string=?
+                  %hydra-supported-systems
+                  (package-transitive-supported-systems package))))
     (if (null? systems)
        "None"
        (separate