diff options
author | Ludovic Courtès <ludo@gnu.org> | 2014-10-17 23:20:39 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2014-10-17 23:23:21 +0200 |
commit | 7c3c0374de446af387c8478f77083fd0e357253c (patch) | |
tree | 96901f0b59c5bd7127ec010f541959dd5d47c28f /build-aux | |
parent | 67a86d3b8d17b921728eec7776677582cfdd9266 (diff) | |
download | patches-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.scm | 3 |
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))))) |