summaryrefslogtreecommitdiff
path: root/build-aux
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-04-19 16:49:09 +0200
committerLudovic Courtès <ludo@gnu.org>2015-04-19 23:34:53 +0200
commitbbceb0ef8a1e05faaa15c5b4135275fb4572b8d9 (patch)
tree07b08a952584b1413678f856ba8d1e7ca48741d6 /build-aux
parent42f118010be14b761144efccae9bdeb33a3db212 (diff)
downloadpatches-bbceb0ef8a1e05faaa15c5b4135275fb4572b8d9.tar
patches-bbceb0ef8a1e05faaa15c5b4135275fb4572b8d9.tar.gz
packages: Add 'supported-package?'.
* guix/packages.scm (supported-package?): New procedure. * tests/packages.scm ("supported-package?"): New test. * build-aux/hydra/gnu-system.scm (package->job): Use it instead of 'package-transitive-supported-systems'.
Diffstat (limited to 'build-aux')
-rw-r--r--build-aux/hydra/gnu-system.scm3
1 files changed, 1 insertions, 2 deletions
diff --git a/build-aux/hydra/gnu-system.scm b/build-aux/hydra/gnu-system.scm
index 01e2859f1a..b1432f6660 100644
--- a/build-aux/hydra/gnu-system.scm
+++ b/build-aux/hydra/gnu-system.scm
@@ -204,8 +204,7 @@ all its dependencies, and ready to be installed on non-GuixSD distributions.")
valid."
(cond ((member package base-packages)
#f)
- ((member system
- (package-transitive-supported-systems package))
+ ((supported-package? package system)
(package-job store (job-name package) package system))
(else
#f)))))