branch master updated: hydra: bayfront: Have GC clear more disk space.

[Christopher Baines]

This is an automated email from the git hooks/post-receive script.

cbaines pushed a commit to branch master
in repository maintenance.

The following commit(s) were added to refs/heads/master by this push:
     new c7194f7  hydra: bayfront: Have GC clear more disk space.
c7194f7 is described below

commit c7194f7d23758f3c43e81b99a7578b880cc06fd6
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Thu Aug 10 14:26:06 2023 +0100

    hydra: bayfront: Have GC clear more disk space.
    
    There's no need to have a large store on bayfront, so change the gc
    configuration to reduce it in size. Also reduce the frequency so that
    the gc blocks other operations less often.
    
    * hydra/bayfront.scm <services>: Change gc configuration.
---
 hydra/bayfront.scm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/hydra/bayfront.scm b/hydra/bayfront.scm
index c163be1..c5372f9 100644
--- a/hydra/bayfront.scm
+++ b/hydra/bayfront.scm
@@ -1148,15 +1148,13 @@ proxy_set_header  Via  $via;"
     (service mcron-service-type
              (mcron-configuration
               (jobs
-               (let ((threshold (* 800 GiB)))
-                 (list #~(job '(next-hour '(4))
+               (let ((threshold (* 1600 GiB)))
+                 (list #~(job '(next-hour-from (next-day (range 1 31 7)) '(2))
                               (string-append
                                #$guix "/bin/guix gc -F"
                                #$(number->string threshold)))
 
-                       ;; Half a day later, make sure
-                       ;; half of our quota is available.
-                       #~(job '(next-hour '(16))
+                       #~(job '(next-hour '(1))
                               (string-append
                                #$guix "/bin/guix gc -F"
                                #$(number->string