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

@@ -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