diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-10-06 19:14:47 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-10-06 19:34:27 +0200 |
| commit | 4e097f8606ddd911be6bc5eb43240cb7acee894d (patch) | |
| tree | 4f62349aa9c2f1ea699d756f6c5be14b230891e6 /guix/packages.scm | |
| parent | 288dca55a8070b502fd403639e791967dbe55b34 (diff) | |
| download | gnu-guix-4e097f8606ddd911be6bc5eb43240cb7acee894d.tar gnu-guix-4e097f8606ddd911be6bc5eb43240cb7acee894d.tar.gz | |
hydra: Honor 'package-supported-systems'.
* guix/packages.scm (%supported-systems): New variable.
(<package>)[platforms]: Rename to...
[supported-systems]: ... this. Change default to %SUPPORTED-SYSTEMS.
* build-aux/hydra/gnu-system.scm (job-name, package->job): New
procedures, formerly in 'hydra-jobs'. Honor 'package-supported-systems'.
(hydra-jobs): Use them.
Diffstat (limited to 'guix/packages.scm')
| -rw-r--r-- | guix/packages.scm | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/guix/packages.scm b/guix/packages.scm index a5b886a403..76e01f3f12 100644 --- a/guix/packages.scm +++ b/guix/packages.scm @@ -69,7 +69,7 @@ package-description package-license package-home-page - package-platforms + package-supported-systems package-maintainers package-properties package-location @@ -85,6 +85,8 @@ package-cross-derivation package-output + %supported-systems + &package-error package-error? package-error-package @@ -173,6 +175,11 @@ corresponds to the arguments expected by `set-path-environment-variable'." (($ <search-path-specification> variable directories separator) `(,variable ,directories ,separator)))) +(define %supported-systems + ;; This is the list of system types that are supported. By default, we + ;; expect all packages to build successfully here. + '("x86_64-linux" "i686-linux" "mips64el-linux")) + ;; A package. (define-record-type* <package> package make-package @@ -208,7 +215,8 @@ corresponds to the arguments expected by `set-path-environment-variable'." (description package-description) ; one or two paragraphs (license package-license) (home-page package-home-page) - (platforms package-platforms (default '())) + (supported-systems package-supported-systems ; list of strings + (default %supported-systems)) (maintainers package-maintainers (default '())) (properties package-properties (default '())) ; alist for anything else |