02/03: hydra: build-machines: GC less on childhurds.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository maintenance.

commit f85bd7cd55a35229cb084ec7f9b3056ba13e756b
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri Oct 2 10:33:01 2020 +0200

    hydra: build-machines: GC less on childhurds.
    
    * hydra/modules/sysadmin/build-machines.scm 
(berlin-new-build-machine-os)[childhurd-os]:
    Use CHILDHURD-GC-JOB, no GC-JOB.
    [childhurd-gc-job]: GC at 2PM too.
---
 hydra/modules/sysadmin/build-machines.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/hydra/modules/sysadmin/build-machines.scm 
b/hydra/modules/sysadmin/build-machines.scm
index 611069f..f948aea 100644
--- a/hydra/modules/sysadmin/build-machines.scm
+++ b/hydra/modules/sysadmin/build-machines.scm
@@ -101,8 +101,8 @@ EMULATED-ARCHITECTURES, unless it's empty."
            "guix gc -F 90G"))
 
   (define childhurd-gc-job
-    ;; Run 'guix gc' at 2AM every day.
-    #~(job '(next-hour '(2))
+    ;; Run 'guix gc' at 2AM and 2PM every day.
+    #~(job '(next-hour '(2 14))
            "guix gc -F 2G"))
 
   (define childhurd-os
@@ -122,7 +122,8 @@ EMULATED-ARCHITECTURES, unless it's empty."
                     %base-user-accounts))
       (services
        (cons* (service mcron-service-type
-                       (mcron-configuration (jobs (list gc-job))))
+                       (mcron-configuration
+                        (jobs (list childhurd-gc-job))))
               (modify-services
                (operating-system-user-services %hurd-vm-operating-system)
                (guix-service-type