01/01: hydra: Update list of build hosts for berlin.guixsd.org.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository maintenance.

commit 449e121e19c53e165cf6be1b03f2977e9fe864f4
Author: Ricardo Wurmus <address@hidden>
Date:   Fri Aug 11 20:57:00 2017 +0200

    hydra: Update list of build hosts for berlin.guixsd.org.
---
 hydra/machines-for-berlin.scm | 32 ++++++++++++++++++++++++--------
 1 file changed, 24 insertions(+), 8 deletions(-)

diff --git a/hydra/machines-for-berlin.scm b/hydra/machines-for-berlin.scm
index 85135fb..fa8d70b 100644
--- a/hydra/machines-for-berlin.scm
+++ b/hydra/machines-for-berlin.scm
@@ -1,18 +1,34 @@
 ;; Install this file as /etc/guix/machines.scm on berlin.guixsd.org
 
-;; Hosted at the MDC, rack A2
-(define mdc-01
+;; These are all hosted at the MDC in rack A2.  They are only
+;; accessible through berlin.guixsd.org, which is used as a gateway.
+(define hosts
+  '("192.168.0.2"
+    ;;"192.168.0.3"
+    ;;"192.168.0.4"
+    ;;"192.168.0.5"
+    ;;"192.168.0.6"
+    "192.168.0.7"
+    ;;"192.168.0.8"
+    "192.168.0.9"
+    ;;"192.168.0.10"
+    ;;"192.168.0.11"
+    "192.168.0.12"))
+
+(define (template-x86_64 ip)
   (build-machine
-   (name "141.80.181.41")
+   (name ip)
    (user "hydra")
    (system "x86_64-linux")
    (host-key "ssh-rsa 
AAAAB3NzaC1yc2EAAAAEJly77QAAAQEA9YhQax5gMmeDnl/i+2BUWw8zPTc1B4Ltdx6Wzvh/ZfhCvM/TDRbxKa3sq1w0PIsGqONtMJi3gZHRA1+0M55ha7HUs8TLQg8IKt2s+eiQ6mCDux/2ZwKu/C3MSSOqo1K+2sizGBS4yS8ncwr52rLfa5y2GzSUOjlk1LsrKwYInL4oaVcckboZVc8JKuYMRoYk2sAuGGELmtWA5fAXadIrSlh9LBT1Y74taQRt/UTtY0FeRj2qCqMECwH0585+5T0quO1HIqszeE4Epuuf9xaHenkH6ycT93HlulU8sDhU/mau4nCFHVHr311a3fLl3kBopSZZTcYLKv70cRLZ21mcWw==
 root@(none)")
    (speed 2)
    (parallel-builds 2)))
 
-(define mdc-01-i686
-  (build-machine (inherit mdc-01)
-    (system "i686-linux")
-    (parallel-builds 2)))
+(define (template-i686 ip)
+  (let ((m (template-x86_64 ip)))
+    (build-machine
+     (inherit m)
+     (system "i686-linux"))))
 
-(list mdc-01 mdc-01-i686)
+(append (map template-x86_64 hosts)
+        (map template-i686 hosts))