[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/03: hydra: services: Add a second GC job after 12 hours.
From: |
Ludovic Courtès |
Subject: |
01/03: hydra: services: Add a second GC job after 12 hours. |
Date: |
Wed, 7 Nov 2018 10:17:49 -0500 (EST) |
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