01/03: hydra: services: Add a second GC job after 12 hours.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository maintenance.

commit 36f5b0a92beb2272588b8536b4a550a81456c54a
Author: Ludovic Courtès <address@hidden>
Date:   Wed Nov 7 16:14:55 2018 +0100

    hydra: services: Add a second GC job after 12 hours.
    
    * hydra/modules/sysadmin/services.scm (%gc-job): Rename to...
    (%gc-jobs): ... this.  Add a job at 4PM.
    (frontend-services): Adjust accordingly.
---
 hydra/modules/sysadmin/services.scm | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/hydra/modules/sysadmin/services.scm 
b/hydra/modules/sysadmin/services.scm
index 8b0c97e..187cc23 100644
--- a/hydra/modules/sysadmin/services.scm
+++ b/hydra/modules/sysadmin/services.scm
@@ -35,10 +35,14 @@
   #:export (firewall-service
             frontend-services))
 
-(define %gc-job
-  ;; The garbage collection mcron job, once per day.
-  #~(job '(next-hour '(4))
-         (string-append #$guix "/bin/guix gc -F80G")))
+(define %gc-jobs
+  ;; The garbage collection mcron jobs.
+  (list #~(job '(next-hour '(4))
+               (string-append #$guix "/bin/guix gc -F80G"))
+
+        ;; Half a day later, make sure half of our quota is available.
+        #~(job '(next-hour '(16))
+               (string-append #$guix "/bin/guix gc -F40G"))))
 
 (define* (guix-daemon-config #:key (max-jobs 5) (cores 4))
   (guix-configuration
@@ -207,7 +211,7 @@
   (cons* (service rottlog-service-type (rottlog-configuration))
          (service mcron-service-type
                   (mcron-configuration
-                   (jobs (list %gc-job %certbot-job))))
+                   (jobs (cons %certbot-job %gc-jobs))))
 
          firewall-service