summaryrefslogtreecommitdiff
path: root/build-aux/list-packages.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-10-28 10:30:38 +0100
committerLudovic Courtès <ludo@gnu.org>2014-10-28 10:30:38 +0100
commitbc36105651f236a0d71902ec63207ff6d3112a94 (patch)
treefec2b5f6096a7b8ba119c63d725453043a2646b5 /build-aux/list-packages.scm
parent7491edafdbfdf1e2195789e47f6c0379fd039c70 (diff)
downloadpatches-bc36105651f236a0d71902ec63207ff6d3112a94.tar
patches-bc36105651f236a0d71902ec63207ff6d3112a94.tar.gz
list-packages: Add Hydra links only for the supported systems.
* build-aux/list-packages.scm (package->sxml)[status]: Use 'package-transitive-supported-systems' instead of a hard-coded list of systems.
Diffstat (limited to 'build-aux/list-packages.scm')
-rwxr-xr-xbuild-aux/list-packages.scm5
1 files changed, 2 insertions, 3 deletions
diff --git a/build-aux/list-packages.scm b/build-aux/list-packages.scm
index 7b046fe0c7..6e0455a7a0 100755
--- a/build-aux/list-packages.scm
+++ b/build-aux/list-packages.scm
@@ -162,9 +162,8 @@ decreasing, is 1."
,system))
`(div "status: "
- ,(url "x86_64-linux") " "
- ,(url "i686-linux") " "
- ,(url "mips64el-linux")))
+ ,(list-join (map url (package-transitive-supported-systems package))
+ " ")))
(define (package-logo name)
(and=> (lookup-gnu-package name)