aboutsummaryrefslogtreecommitdiff
path: root/build-aux
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-05-01 16:10:08 +0200
committerLudovic Courtès <ludo@gnu.org>2015-05-01 16:10:08 +0200
commit75c5475f31963a171e89d83b372a4858c8741498 (patch)
treedb2cf3fd68ede0bcd19c53bb1ad35fab19f85656 /build-aux
parentabcbda48c20da3d621e8170f8de30a575f080b51 (diff)
downloadguix-75c5475f31963a171e89d83b372a4858c8741498.tar
guix-75c5475f31963a171e89d83b372a4858c8741498.tar.gz
list-packages: Add status link only for systems supported on Hydra.
* build-aux/list-packages.scm (package->sxml)[status]: Intersect (package-transitive-supported-systems package) with %HYDRA-SUPPORTED-SYSTEMS.
Diffstat (limited to 'build-aux')
-rwxr-xr-xbuild-aux/list-packages.scm6
1 files changed, 5 insertions, 1 deletions
diff --git a/build-aux/list-packages.scm b/build-aux/list-packages.scm
index f3e4ac2846..c4f445291b 100755
--- a/build-aux/list-packages.scm
+++ b/build-aux/list-packages.scm
@@ -167,7 +167,11 @@ decreasing, is 1."
,system))
`(div "status: "
- ,(list-join (map url (package-transitive-supported-systems package))
+ ,(list-join (map url
+ (lset-intersection
+ string=?
+ %hydra-supported-systems
+ (package-transitive-supported-systems package)))
" ")))
(define (package-logo name)