[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/02: hydra: services: Keep fewer disk images, and increase GC threshol
From: |
Ludovic Courtès |
Subject: |
01/02: hydra: services: Keep fewer disk images, and increase GC threshold. |
Date: |
Fri, 16 Aug 2019 05:34:24 -0400 (EDT) |
civodul pushed a commit to branch master
in repository maintenance.
commit f45766df8325c884c613a149647e1c7e83138cc4
Author: Ludovic Courtès <address@hidden>
Date: Fri Aug 16 11:29:25 2019 +0200
hydra: services: Keep fewer disk images, and increase GC threshold.
* hydra/modules/sysadmin/services.scm (cleanup-cuirass-roots)[old?]:
Change to 5 days.
(%gc-jobs): Change to 800G free per day.
---
hydra/modules/sysadmin/services.scm | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/hydra/modules/sysadmin/services.scm
b/hydra/modules/sysadmin/services.scm
index 26f3220..9e0af31 100644
--- a/hydra/modules/sysadmin/services.scm
+++ b/hydra/modules/sysadmin/services.scm
@@ -51,7 +51,7 @@
(define (old? stat)
(< (stat:mtime stat)
- (- now (* 7 3600 24))))
+ (- now (* 5 3600 24))))
(define (handle-gc-root file stat _)
(when (and (string-suffix? "-disk-image" file)
@@ -81,11 +81,11 @@
#$cleanup-cuirass-roots)
#~(job '(next-hour '(4))
- (string-append #$guix "/bin/guix gc -F80G"))
+ (string-append #$guix "/bin/guix gc -F800G"))
;; Half a day later, make sure half of our quota is available.
#~(job '(next-hour '(16))
- (string-append #$guix "/bin/guix gc -F40G"))))
+ (string-append #$guix "/bin/guix gc -F400G"))))
(define* (guix-daemon-config #:key (max-jobs 5) (cores 4))
(guix-configuration