diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-10-28 10:30:38 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-10-28 10:30:38 +0100 |
| commit | bc36105651f236a0d71902ec63207ff6d3112a94 (patch) | |
| tree | fec2b5f6096a7b8ba119c63d725453043a2646b5 /build-aux | |
| parent | 7491edafdbfdf1e2195789e47f6c0379fd039c70 (diff) | |
| download | guix-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')
| -rwxr-xr-x | build-aux/list-packages.scm | 5 |
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) |