2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/maintenance.git synced 2023-12-14 03:33:04 +01:00
maintenance/hydra/machines-for-berlin.scm

35 lines
1.2 KiB
Scheme
Raw Normal View History

;; Install this file as /etc/guix/machines.scm on berlin.guixsd.org
;; 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"
;;"192.168.0.3"
;;"192.168.0.4"
;;"192.168.0.5"
;;"192.168.0.6"
"192.168.0.7"
;;"192.168.0.8"
"192.168.0.9"
;;"192.168.0.10"
;;"192.168.0.11"
"192.168.0.12"))
(define (template-x86_64 ip)
(build-machine
(name ip)
(user "hydra")
(system "x86_64-linux")
(host-key "ssh-rsa AAAAB3NzaC1yc2EAAAAEJly77QAAAQEA9YhQax5gMmeDnl/i+2BUWw8zPTc1B4Ltdx6Wzvh/ZfhCvM/TDRbxKa3sq1w0PIsGqONtMJi3gZHRA1+0M55ha7HUs8TLQg8IKt2s+eiQ6mCDux/2ZwKu/C3MSSOqo1K+2sizGBS4yS8ncwr52rLfa5y2GzSUOjlk1LsrKwYInL4oaVcckboZVc8JKuYMRoYk2sAuGGELmtWA5fAXadIrSlh9LBT1Y74taQRt/UTtY0FeRj2qCqMECwH0585+5T0quO1HIqszeE4Epuuf9xaHenkH6ycT93HlulU8sDhU/mau4nCFHVHr311a3fLl3kBopSZZTcYLKv70cRLZ21mcWw== root@(none)")
(speed 2)
(parallel-builds 2)))
(define (template-i686 ip)
(let ((m (template-x86_64 ip)))
(build-machine
(inherit m)
(system "i686-linux"))))
(append (map template-x86_64 hosts)
(map template-i686 hosts))