01/02: hydra: services: Keep fewer disk images, and increase GC threshold.

[Ludovic Courtès]

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