From bbceb0ef8a1e05faaa15c5b4135275fb4572b8d9 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sun, 19 Apr 2015 16:49:09 +0200 Subject: 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'. --- build-aux/hydra/gnu-system.scm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'build-aux/hydra/gnu-system.scm') 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))))) -- cgit v1.2.3