maintenance/hydra/machines-for-berlin.scm

;; Install this file as /etc/guix/machines.scm on berlin.guixsd.org
(use-modules (ice-9 match))

;; 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"
     "ssh-rsa AAAAB3NzaC1yc2EAAAAEJly77QAAAQEA9YhQax5gMmeDnl/i+2BUWw8zPTc1B4Ltdx6Wzvh/ZfhCvM/TDRbxKa3sq1w0PIsGqONtMJi3gZHRA1+0M55ha7HUs8TLQg8IKt2s+eiQ6mCDux/2ZwKu/C3MSSOqo1K+2sizGBS4yS8ncwr52rLfa5y2GzSUOjlk1LsrKwYInL4oaVcckboZVc8JKuYMRoYk2sAuGGELmtWA5fAXadIrSlh9LBT1Y74taQRt/UTtY0FeRj2qCqMECwH0585+5T0quO1HIqszeE4Epuuf9xaHenkH6ycT93HlulU8sDhU/mau4nCFHVHr311a3fLl3kBopSZZTcYLKv70cRLZ21mcWw== root@(none)")
    ("192.168.0.3"
     "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIJDK9gGqftWQM7JkUiT58AdaUhMl04874CZ3525r9MSf")
    ("192.168.0.4"
     "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIIJBS5YOhjngLWE4LEQmsVQ0Oxidy3QfQlyxp+aK0cnf")
    ("192.168.0.5"
     "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIFNhrcrMnwVyOEJpXwEQkvAp6HfE79s2cNJf8DHC8GTv")
    ;;("192.168.0.6" "TODO")
    ("192.168.0.7"
     "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIF6P0X1V8rBjY2MzrF+D12ewk2xDtqqdrAG0br0cQEU9")
    ("192.168.0.8"
     "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIAcwpKSO33tqW5tnGyk8t0ZBiXqXQnbLqe++XYzpi+vC")
    ("192.168.0.9"
     "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIDiPbdAAWc7YRiDORu4uSjjUXWmGbGwwhVMuclyfeRku")
    ;;("192.168.0.10" "TODO")
    ;;("192.168.0.11" "TODO")
    ("192.168.0.12"
     "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIFpNX9c3Gg2W0OHPC5HVPNQmYneve9dzJ2sNOLFVaE8A")))

(define template-x86_64
  (match-lambda
    ((ip key)
     (build-machine
      (name ip)
      (user "hydra")
      (system "x86_64-linux")
      (host-key key)
      (speed 2)
      (parallel-builds 2)))))

(define (x86_64->i686 machine)
  (build-machine (inherit machine)
   (system "i686-linux")))

(let ((x86_64 (map template-x86_64 hosts)))
  (append x86_64 (map x86_64->i686 x86_64)))