01/02: hydra: Add two more childhurds to offload to.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository maintenance.

commit c096a73620a9e6fe4a4bf4b06059cd365390ef10
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Wed Dec 7 11:29:18 2022 +0100

    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.
---
 hydra/machines-for-berlin.scm             | 6 +++---
 hydra/modules/sysadmin/build-machines.scm | 8 ++++----
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/hydra/machines-for-berlin.scm b/hydra/machines-for-berlin.scm
index fe27c37..c0f5013 100644
--- a/hydra/machines-for-berlin.scm
+++ b/hydra/machines-for-berlin.scm
@@ -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
diff --git a/hydra/modules/sysadmin/build-machines.scm 
b/hydra/modules/sysadmin/build-machines.scm
index 082e203..74e6081 100644
--- a/hydra/modules/sysadmin/build-machines.scm
+++ b/hydra/modules/sysadmin/build-machines.scm
@@ -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