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 A4.  They are connected to
;; a dedicated VLAN and can only be accessed from berlin.guixsd.org.
(define hosts
  '(("141.80.167.132" ; big node
     "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIMWlWUugocIkWzyxWxsJxrnIaDSUeICssBq9aqSNZivJ")
    ;; ("141.80.167.134"
    ;;  "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIJDK9gGqftWQM7JkUiT58AdaUhMl04874CZ3525r9MSf")
    ("141.80.167.135"
     "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIIJBS5YOhjngLWE4LEQmsVQ0Oxidy3QfQlyxp+aK0cnf")
    ("141.80.167.136"
     "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIFNhrcrMnwVyOEJpXwEQkvAp6HfE79s2cNJf8DHC8GTv")
    ("141.80.167.137"
     "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIGEvwgtlWCvtZb38cDgICAdIF8KojWCrMBKT2i3fKB+l")
    ("141.80.167.138"
     "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIF6P0X1V8rBjY2MzrF+D12ewk2xDtqqdrAG0br0cQEU9")
    ("141.80.167.139"
     "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIAcwpKSO33tqW5tnGyk8t0ZBiXqXQnbLqe++XYzpi+vC")
    ("141.80.167.140"
     "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIDiPbdAAWc7YRiDORu4uSjjUXWmGbGwwhVMuclyfeRku")
    ("141.80.167.141"
     "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIIyuS1MndiMbm3prey/2ccBidoz23nM6DAsurl9Yb7g6")
    ("141.80.167.142"
     "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIEV/kwYw7DSs0SW+2ckl0nGjdOejcYNqx4nylz73DINp")
    ("141.80.167.143"
     "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIFpNX9c3Gg2W0OHPC5HVPNQmYneve9dzJ2sNOLFVaE8A")
    ("141.80.167.144"
     "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAICKjJaVpqc8gQ9mQaxR/q1mp8ph1Dhc3ppc9c0ndCxll")
    ("141.80.167.145"
     "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIKN4ElXT6fA85AcrBfvAgDoJ6ySOP2IHSY7aXgZ+QzOH")
    ("141.80.167.146"
     "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIJZNXe33AmYuLYRj3l36ISOBARRwWPGmK8Z23Pthy5A+")
    ("141.80.167.147"
     "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIFJCI6Q6Jj0Jgzg3EynK2udulD4ut7jOZd8io+PuNJed")
    ("141.80.167.148"
     "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIOTaTAJNxFbPQTXjGiQ0+taDGJCirxOTe3vK++jxHTtR")
    ("141.80.167.149"
     "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAICdg/NuiqdpbMW1y00AhyqhBr4J6SeVvDKXQ01m97kZj")
    ("141.80.167.150"
     "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIBIWiJFShafxIcJV12OzzCUczrSD65ftTfFiLRkK188D")
    ("141.80.167.151"
     "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIJBTH6H0vtjuNd6Zil9w9iPUbuCUDDd3ZPUQGy75oqE5")
    ("141.80.167.152"
     "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIMR7jHaV2iKH+nbzbmzXawvOCZEYbkQmU840GIDBrIQp")
    ("141.80.167.153"
     "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIPNM1227zb06b+f7CaoswoqKVmsqhQbVqSxAmbV76kr6")
    ("141.80.167.154"
     "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIJqq+CxIa2bVf7a9hGfyt3kQcEaZhumBa5nPnBq5vnnR")
    ("141.80.167.155"
     "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIMV8v+fL04JUNJK5JLiXFwyFDiXyRkcBqJYCUgTAP0it")
    ;; ("141.80.167.156"
    ;;  "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIA+ZoD9lcmt0zBZcc8keBb8wSXgfoK5zk4s6Oteg27wb")
    ("141.80.167.157"
     "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIGquqUVY3cNMomwd4lfgXPRvxJZvvYa7ud67g01b/YTT")))

(define template-x86_64
  (match-lambda
    ;; Prefer building on the big node.
    (("141.80.167.132" key)
     (build-machine
      (name "141.80.167.132")
      (user "hydra")
      (system "x86_64-linux")
      (host-key key)
      (compression "no")
      (speed 16)
      (parallel-builds 16)))
    ((ip key)
     (build-machine
      (name ip)
      (user "hydra")
      (system "x86_64-linux")
      (host-key key)
      (compression "no")
      (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)))