From abcbda48c20da3d621e8170f8de30a575f080b51 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <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 ----
 1 file changed, 4 deletions(-)

(limited to 'build-aux')

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.
 ;;;
-- 
cgit v1.2.3


From 75c5475f31963a171e89d83b372a4858c8741498 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 1 May 2015 16:10:08 +0200
Subject: list-packages: Add status link only for systems supported on Hydra.

* build-aux/list-packages.scm (package->sxml)[status]:
  Intersect (package-transitive-supported-systems package) with
  %HYDRA-SUPPORTED-SYSTEMS.
---
 build-aux/list-packages.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'build-aux')

diff --git a/build-aux/list-packages.scm b/build-aux/list-packages.scm
index f3e4ac2846..c4f445291b 100755
--- a/build-aux/list-packages.scm
+++ b/build-aux/list-packages.scm
@@ -167,7 +167,11 @@ decreasing, is 1."
           ,system))
 
     `(div "status: "
-          ,(list-join (map url (package-transitive-supported-systems package))
+          ,(list-join (map url
+                           (lset-intersection
+                            string=?
+                            %hydra-supported-systems
+                            (package-transitive-supported-systems package)))
                       " ")))
 
   (define (package-logo name)
-- 
cgit v1.2.3


From 78bed82d193d73488f18d76165aa3f809122311f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 1 May 2015 17:38:09 +0200
Subject: check-available-binaries: Use %HYDRA-SUPPORTED-SYSTEMS.

* build-aux/check-available-binaries.scm: Use %HYDRA-SUPPORTED-SYSTEMS
  instead of %SUPPORTED-SYSTEMS.
---
 build-aux/check-available-binaries.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'build-aux')

diff --git a/build-aux/check-available-binaries.scm b/build-aux/check-available-binaries.scm
index bc6207eb2a..04f88b7d0c 100644
--- a/build-aux/check-available-binaries.scm
+++ b/build-aux/check-available-binaries.scm
@@ -33,7 +33,7 @@
     (let* ((native (append-map (lambda (system)
                                  (map (cut package-derivation store <> system)
                                       (list %bootstrap-tarballs emacs)))
-                               %supported-systems))
+                               %hydra-supported-systems))
            (cross  (map (cut package-cross-derivation store
                              %bootstrap-tarballs <>)
                         '("mips64el-linux-gnuabi64")))
-- 
cgit v1.2.3