02/08: hydra: Set up deployment of new nodes.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository maintenance.

commit f61efadb3eba39d3f3dc9ee865dff175c7387cba
Author: Ricardo Wurmus <address@hidden>
AuthorDate: Sun Jan 19 10:42:36 2020 +0100

    hydra: Set up deployment of new nodes.
    
    * hydra/berlin-nodes.scm (%new-ids): New variable.
    (new-system-for): New procedure.
    <top-level>: Add new machines to returned list.
---
 hydra/berlin-nodes.scm | 33 +++++++++++++++++++++++++--------
 1 file changed, 25 insertions(+), 8 deletions(-)

diff --git a/hydra/berlin-nodes.scm b/hydra/berlin-nodes.scm
index ede89f9..2fe2932 100644
--- a/hydra/berlin-nodes.scm
+++ b/hydra/berlin-nodes.scm
@@ -21,11 +21,28 @@
 (define (id->ip id)
   (format #f "141.80.167.~d" (+ 131 id)))
 
-(map (lambda (id)
-       (machine
-        (operating-system (system-for id))
-        (environment managed-host-environment-type)
-        (configuration (machine-ssh-configuration
-                        (system "x86_64-linux")
-                        (host-name (id->ip id))))))
-     %ids)
+
+(define %new-ids
+ (delete 114 (iota 26 104 1)))
+(define (new-system-for id)
+  (berlin-new-build-machine-os id
+                               #:emulated-architectures
+                               '("arm" "aarch64")))
+
+(append
+ (map (lambda (id)
+        (machine
+         (operating-system (system-for id))
+         (environment managed-host-environment-type)
+         (configuration (machine-ssh-configuration
+                         (system "x86_64-linux")
+                         (host-name (id->ip id))))))
+      %ids)
+ (map (lambda (id)
+        (machine
+         (operating-system (new-system-for id))
+         (environment managed-host-environment-type)
+         (configuration (machine-ssh-configuration
+                         (system "x86_64-linux")
+                         (host-name (format #f "141.80.167.~d" (+ id 57)))))))
+      %new-ids))