2017-07-23 03:36:37 +02:00
|
|
|
;; Install this file as /etc/guix/machines.scm on berlin.guixsd.org
|
2017-08-11 22:41:31 +02:00
|
|
|
(use-modules (ice-9 match))
|
2017-07-23 03:36:37 +02:00
|
|
|
|
2017-08-11 20:57:00 +02:00
|
|
|
;; 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
|
2017-08-11 22:41:31 +02:00
|
|
|
'(("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")
|
2017-08-14 17:30:54 +02:00
|
|
|
("192.168.0.4"
|
|
|
|
"ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIIJBS5YOhjngLWE4LEQmsVQ0Oxidy3QfQlyxp+aK0cnf")
|
|
|
|
("192.168.0.5"
|
|
|
|
"ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIFNhrcrMnwVyOEJpXwEQkvAp6HfE79s2cNJf8DHC8GTv")
|
2017-08-15 09:16:17 +02:00
|
|
|
("192.168.0.6"
|
|
|
|
"ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIGEvwgtlWCvtZb38cDgICAdIF8KojWCrMBKT2i3fKB+l")
|
2017-08-11 22:41:31 +02:00
|
|
|
("192.168.0.7"
|
|
|
|
"ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIF6P0X1V8rBjY2MzrF+D12ewk2xDtqqdrAG0br0cQEU9")
|
2017-08-14 17:30:54 +02:00
|
|
|
("192.168.0.8"
|
|
|
|
"ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIAcwpKSO33tqW5tnGyk8t0ZBiXqXQnbLqe++XYzpi+vC")
|
2017-08-11 22:41:31 +02:00
|
|
|
("192.168.0.9"
|
|
|
|
"ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIDiPbdAAWc7YRiDORu4uSjjUXWmGbGwwhVMuclyfeRku")
|
2017-08-21 23:13:00 +02:00
|
|
|
("192.168.0.10"
|
|
|
|
"ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIIyuS1MndiMbm3prey/2ccBidoz23nM6DAsurl9Yb7g6")
|
|
|
|
("192.168.0.11"
|
|
|
|
"ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIEV/kwYw7DSs0SW+2ckl0nGjdOejcYNqx4nylz73DINp")
|
2017-08-11 22:41:31 +02:00
|
|
|
("192.168.0.12"
|
2017-10-06 21:11:13 +02:00
|
|
|
"ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIFpNX9c3Gg2W0OHPC5HVPNQmYneve9dzJ2sNOLFVaE8A")
|
|
|
|
("192.168.0.13"
|
|
|
|
"ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAICKjJaVpqc8gQ9mQaxR/q1mp8ph1Dhc3ppc9c0ndCxll")
|
|
|
|
("192.168.0.14"
|
|
|
|
"ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIKN4ElXT6fA85AcrBfvAgDoJ6ySOP2IHSY7aXgZ+QzOH")))
|
2017-08-11 20:57:00 +02:00
|
|
|
|
2017-08-11 22:41:31 +02:00
|
|
|
(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)))))
|
2017-07-23 03:36:37 +02:00
|
|
|
|
2017-08-11 22:41:31 +02:00
|
|
|
(define (x86_64->i686 machine)
|
|
|
|
(build-machine (inherit machine)
|
|
|
|
(system "i686-linux")))
|
2017-07-23 03:36:37 +02:00
|
|
|
|
2017-08-11 22:41:31 +02:00
|
|
|
(let ((x86_64 (map template-x86_64 hosts)))
|
|
|
|
(append x86_64 (map x86_64->i686 x86_64)))
|