branch master updated: hydra: milano-guix-1: Update config.

[Christopher Baines]

This is an automated email from the git hooks/post-receive script.

cbaines pushed a commit to branch master
in repository maintenance.

The following commit(s) were added to refs/heads/master by this push:
     new 5ee3f82  hydra: milano-guix-1: Update config.
5ee3f82 is described below

commit 5ee3f825d649a3fbdd8ce0c0edda5b305b01f13a
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Mon Nov 20 15:35:51 2023 +0000

    hydra: milano-guix-1: Update config.
    
    * hydra/milano-guix-1.scm (full-gc-job): New variable.
    <services>: Use the full-gc-job and increase resources for childhurds.
---
 hydra/milano-guix-1.scm | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/hydra/milano-guix-1.scm b/hydra/milano-guix-1.scm
index 50caa2a..1507ec7 100644
--- a/hydra/milano-guix-1.scm
+++ b/hydra/milano-guix-1.scm
@@ -10,7 +10,8 @@
 (use-modules (gnu)
              (guix gexp))
 (use-service-modules databases getmail guix networking mcron ssh
-                     virtualization web monitoring linux)
+                     virtualization web monitoring linux
+                     package-management)
 (use-package-modules certs screen tmux ssh linux)
 
 ;; The following definition are **almost** copied from dover.scm: a
@@ -39,6 +40,10 @@
   ;; Run 'guix gc' at 3AM every day.
   #~(job '(next-hour '(3)) "guix gc -F 350G"))
 
+(define full-gc-job
+  #~(job '(next-hour-from (next-day (range 1 31 7)) '(2))
+         (string-append #$guix "/bin/guix gc")))
+
 (define btrfs-balance-job
   ;; Re-allocate chunks which are using less than 5% of their chunk
   ;; space, to regain Btrfs 'unallocated' space.  The usage is kept
@@ -185,7 +190,9 @@
 
             (service mcron-service-type
                      (mcron-configuration
-                      (jobs (list gc-job btrfs-balance-job))))
+                      (jobs (list gc-job
+                                  full-gc-job
+                                  btrfs-balance-job))))
 
            (service guix-build-coordinator-agent-service-type
                     (guix-build-coordinator-agent-configuration
@@ -210,8 +217,8 @@
                              (hurd-vm-configuration
                               (id id)
                               (os (childhurd-os id))
-                              (disk-size (* 16000 (expt 2 20))) ; 16G
-                              (memory-size 2048))))
+                              (disk-size (* 20000 (expt 2 20))) ; 20G
+                              (memory-size 4096))))
                   (iota childhurd-count 1)))
 
            (modify-services %base-services