From abcbda48c20da3d621e8170f8de30a575f080b51 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Fri, 1 May 2015 16:05:40 +0200
Subject: packages: Add '%hydra-supported-systems'.
* build-aux/hydra/gnu-system.scm (%hydra-supported-systems): Remove.
* guix/packages.scm (%hydra-supported-systems): New variable.
---
build-aux/hydra/gnu-system.scm | 4 ----
guix/packages.scm | 6 ++++++
2 files changed, 6 insertions(+), 4 deletions(-)
diff --git a/build-aux/hydra/gnu-system.scm b/build-aux/hydra/gnu-system.scm
index 9a47b4f423..c612ff1f12 100644
--- a/build-aux/hydra/gnu-system.scm
+++ b/build-aux/hydra/gnu-system.scm
@@ -210,10 +210,6 @@ valid."
#f)))))
-(define %hydra-supported-systems
- ;; This is the list of system types for which build slaves are available.
- '("x86_64-linux" "i686-linux" "mips64el-linux"))
-
;;;
;;; Hydra entry point.
;;;
diff --git a/guix/packages.scm b/guix/packages.scm
index 0e4cce17e1..a979f31a32 100644
--- a/guix/packages.scm
+++ b/guix/packages.scm
@@ -95,6 +95,7 @@
package-grafts
%supported-systems
+ %hydra-supported-systems
supported-package?
&package-error
@@ -210,6 +211,11 @@ corresponds to the arguments expected by `set-path-environment-variable'."
;; expect all packages to build successfully here.
'("x86_64-linux" "i686-linux" "armhf-linux" "mips64el-linux"))
+(define %hydra-supported-systems
+ ;; This is the list of system types for which build slaves are available.
+ (delete "armhf-linux" %supported-systems))
+
+
;; A package.
(define-record-type* <package>
package make-package
--
cgit v1.2.3