[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/03: website: packages: Correctly compute supported systems.
From: |
Ludovic Courtès |
Subject: |
02/03: website: packages: Correctly compute supported systems. |
Date: |
Mon, 28 Aug 2017 18:29:11 -0400 (EDT) |
civodul pushed a commit to branch wip-website-update
in repository guix-artwork.
commit af86194c9ae54db41f1429c2e540f63925843ed4
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