aboutsummaryrefslogtreecommitdiff
path: root/build-aux
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-10-17 23:20:39 +0200
committerLudovic Courtès <ludo@gnu.org>2014-10-17 23:23:21 +0200
commit7c3c0374de446af387c8478f77083fd0e357253c (patch)
tree96901f0b59c5bd7127ec010f541959dd5d47c28f /build-aux
parent67a86d3b8d17b921728eec7776677582cfdd9266 (diff)
downloadpatches-7c3c0374de446af387c8478f77083fd0e357253c.tar
patches-7c3c0374de446af387c8478f77083fd0e357253c.tar.gz
packages: Add 'package-transitive-supported-systems'.
* guix/packages.scm (package-transitive-supported-systems): New procedure. * tests/packages.scm ("package-transitive-supported-systems"): New test. * build-aux/hydra/gnu-system.scm (package->job): Use it.
Diffstat (limited to 'build-aux')
-rw-r--r--build-aux/hydra/gnu-system.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/build-aux/hydra/gnu-system.scm b/build-aux/hydra/gnu-system.scm
index c26bcff6ae..c7ad730abc 100644
--- a/build-aux/hydra/gnu-system.scm
+++ b/build-aux/hydra/gnu-system.scm
@@ -172,7 +172,8 @@ system.")
valid."
(cond ((member package base-packages)
#f)
- ((member system (package-supported-systems package))
+ ((member system
+ (package-transitive-supported-systems package))
(package-job store (job-name package) package system))
(else
#f)))))