02/03: hydra: milano-guix-1: Add childhurds.

[Christopher Baines]

cbaines pushed a commit to branch master
in repository maintenance.

commit db5838cb14c44f328a96a188b8a51bab8d7a7e5b
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Tue Oct 25 15:50:14 2022 +0100

    hydra: milano-guix-1: Add childhurds.
    
    * hydra/milano-guix-1.scm (childhurd-os): New procedure.
    [operating-system]<services>: Add childhurds.
---
 hydra/milano-guix-1.scm | 57 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 57 insertions(+)

diff --git a/hydra/milano-guix-1.scm b/hydra/milano-guix-1.scm
index bfb6144..d69aafc 100644
--- a/hydra/milano-guix-1.scm
+++ b/hydra/milano-guix-1.scm
@@ -48,6 +48,53 @@
                   "balance" "start" "-dusage=5" "/"))
          "btrfs-balance"))
 
+
+(define (childhurd-os id)
+  (define childhurd-name
+    (format #f "milano-childhurd-~2,'0d" id))
+
+  (operating-system
+    (inherit %hurd-vm-operating-system)
+    (host-name childhurd-name)
+    (packages
+     (append
+      (list (specification->package "nss-certs"))
+      (operating-system-packages %hurd-vm-operating-system)))
+    (services
+     (cons*
+      (service guix-build-coordinator-agent-service-type
+               (guix-build-coordinator-agent-configuration
+                (coordinator "https://coordinator.bayfront.guix.gnu.org";)
+                (authentication
+                 (guix-build-coordinator-agent-dynamic-auth-with-file
+                  (agent-name childhurd-name)
+                  (token-file
+                   "/etc/guix-build-coordinator-agent-token")))
+                (max-parallel-builds 1)
+                (max-allocated-builds 1)
+                (derivation-substitute-urls
+                 (list "https://data.guix.gnu.org";
+                       "https://data.qa.guix.gnu.org";))
+                (non-derivation-substitute-urls
+                 (list "https://bordeaux.guix.gnu.org";))))
+
+      (modify-services (operating-system-user-services
+                        %hurd-vm-operating-system)
+        (guix-service-type
+         config => (guix-configuration
+                    (inherit config)
+                    (substitute-urls
+                     '("https://bordeaux.guix.gnu.org";))
+
+                    (max-silent-time (* 12 3600))
+                    (timeout (* 48 3600))
+
+                    (authorized-keys
+                     (list
+                      (local-file "keys/guix/bordeaux.guix.gnu.org-export.pub")
+                      (local-file "keys/guix/data.guix.gnu.org.pub")
+                      (local-file 
"keys/guix/data.qa.guix.gnu.org.pub"))))))))))
+
 ;; The actual machine
 
 (operating-system
@@ -152,6 +199,16 @@
                      (non-derivation-substitute-urls
                       (list "https://bordeaux.guix.gnu.org";)))))
 
+           (let ((childhurd-count 2))
+             (map (lambda (id)
+                    (service hurd-vm-service-type
+                             (hurd-vm-configuration
+                              (id id)
+                              (os (childhurd-os id))
+                              (disk-size (* 16000 (expt 2 20))) ; 16G
+                              (memory-size 2048))))
+                  (iota childhurd-count 1)))
+
            (modify-services %base-services
              (guix-service-type
               config => (guix-configuration