mirror of
git://git.savannah.gnu.org/guix/maintenance.git
synced 2023-12-14 03:33:04 +01:00
64 lines
2.7 KiB
Scheme
64 lines
2.7 KiB
Scheme
;; 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
|
|
'(("192.168.0.2"
|
|
"ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIOTaTAJNxFbPQTXjGiQ0+taDGJCirxOTe3vK++jxHTtR")
|
|
("141.80.167.134"
|
|
"ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIJDK9gGqftWQM7JkUiT58AdaUhMl04874CZ3525r9MSf")
|
|
("192.168.0.4"
|
|
"ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIIJBS5YOhjngLWE4LEQmsVQ0Oxidy3QfQlyxp+aK0cnf")
|
|
("192.168.0.5"
|
|
"ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIFNhrcrMnwVyOEJpXwEQkvAp6HfE79s2cNJf8DHC8GTv")
|
|
("192.168.0.6"
|
|
"ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIGEvwgtlWCvtZb38cDgICAdIF8KojWCrMBKT2i3fKB+l")
|
|
("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"
|
|
"ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIIyuS1MndiMbm3prey/2ccBidoz23nM6DAsurl9Yb7g6")
|
|
("192.168.0.11"
|
|
"ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIEV/kwYw7DSs0SW+2ckl0nGjdOejcYNqx4nylz73DINp")
|
|
("141.80.167.143"
|
|
"ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIFpNX9c3Gg2W0OHPC5HVPNQmYneve9dzJ2sNOLFVaE8A")
|
|
("192.168.0.13"
|
|
"ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAICKjJaVpqc8gQ9mQaxR/q1mp8ph1Dhc3ppc9c0ndCxll")
|
|
("192.168.0.14"
|
|
"ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIKN4ElXT6fA85AcrBfvAgDoJ6ySOP2IHSY7aXgZ+QzOH")
|
|
("192.168.0.15"
|
|
"ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIJZNXe33AmYuLYRj3l36ISOBARRwWPGmK8Z23Pthy5A+")
|
|
("192.168.0.16"
|
|
"ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIFJCI6Q6Jj0Jgzg3EynK2udulD4ut7jOZd8io+PuNJed")
|
|
("192.168.0.17"
|
|
"ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIF4pC34XavKqRy+SUvWTzOyk9EbIMDovDztRIFiEtlyZ")
|
|
("192.168.0.18"
|
|
"ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAICdg/NuiqdpbMW1y00AhyqhBr4J6SeVvDKXQ01m97kZj")
|
|
("141.80.167.150"
|
|
"ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIBIWiJFShafxIcJV12OzzCUczrSD65ftTfFiLRkK188D")
|
|
("141.80.167.151"
|
|
"ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIJBTH6H0vtjuNd6Zil9w9iPUbuCUDDd3ZPUQGy75oqE5")))
|
|
|
|
(define template-x86_64
|
|
(match-lambda
|
|
((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)))
|