[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/03: hydra: build-machines: GC less on childhurds.
From: |
Ludovic Courtès |
Subject: |
02/03: hydra: build-machines: GC less on childhurds. |
Date: |
Fri, 2 Oct 2020 04:46:16 -0400 (EDT) |
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