[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/03: hydra: milano-guix-1: Add childhurds.
From: |
Christopher Baines |
Subject: |
02/03: hydra: milano-guix-1: Add childhurds. |
Date: |
Tue, 25 Oct 2022 10:55:45 -0400 (EDT) |
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