From bc36105651f236a0d71902ec63207ff6d3112a94 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Tue, 28 Oct 2014 10:30:38 +0100 Subject: 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. --- build-aux/list-packages.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'build-aux') 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) -- cgit v1.2.3