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

hydra: Add two more childhurds to offload to.

* hydra/modules/sysadmin/build-machines.scm (childhurd-ip?): Add two
more IPs.
* hydra/machines-for-berlin.scm (childhurd-ip?): Likewise.
This commit is contained in:
Ludovic Courtès 2022-12-07 11:29:18 +01:00
parent 3370e3a9d8
commit c096a73620
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 7 additions and 7 deletions

View file

@ -326,9 +326,9 @@
(@@ (guix scripts offload) build-machine-name))
(define (childhurd-ip? ip) ;XXX: copied from (sysadmin build-machines)
"Return #t if IP should be running a Childhurd: the first two
nodes."
(member ip '("141.80.167.158" "141.80.167.159")))
"Return #t if IP should be running a Childhurd."
(member ip '("141.80.167.158" "141.80.167.159"
"141.80.167.160" "141.80.167.161")))
(let* ((x86_64 (map template-x86_64 hosts))
(fast (filter-map

View file

@ -1,6 +1,6 @@
;;; GNU Guix system administration tools.
;;;
;;; Copyright © 2016, 2017, 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016-2017, 2019-2022 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;;
@ -84,9 +84,9 @@ HOST-NAME and accessibly by SYSADMINS, with the given AUTHORIZED-GUIX-KEYS."
authorized-guix-keys))))))))
(define (childhurd-ip? ip)
"Return #t if IP should be running a Childhurd: the first two
nodes."
(member ip '("141.80.167.158" "141.80.167.159")))
"Return #t if IP should be running a Childhurd."
(member ip '("141.80.167.158" "141.80.167.159"
"141.80.167.160" "141.80.167.161")))
(define* (berlin-new-build-machine-os id
#:key