branch master updated: hydra: harbourfront: Garbage collect more things more often.

[Andreas Enge]

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

andreas pushed a commit to branch master
in repository maintenance.

The following commit(s) were added to refs/heads/master by this push:
     new 8ed4838  hydra: harbourfront: Garbage collect more things more often.
8ed4838 is described below

commit 8ed4838af81bf070afbf691242b58725c0cb380d
Author: Andreas Enge <andreas@enge.fr>
AuthorDate: Mon Sep 21 22:27:32 2020 +0200

    hydra: harbourfront: Garbage collect more things more often.
    
    * hydra/harbourfront.scm (gc-job): Replace by...
    (gc-jobs): ...this; garbage collect twice a day and increase the amount.
---
 hydra/harbourfront.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/hydra/harbourfront.scm b/hydra/harbourfront.scm
index 21bf9db..c3f8202 100644
--- a/hydra/harbourfront.scm
+++ b/hydra/harbourfront.scm
@@ -2,9 +2,9 @@
 (use-service-modules mcron networking ssh)
 (use-package-modules certs screen ssh vim)
 
-(define gc-job
-  ;; Run 'guix gc' at 3AM every day.
-  #~(job '(next-hour '(3)) "guix gc -F 50G"))
+(define gc-jobs
+  (list #~(job '(next-hour  '(3)) "guix gc -F 200G")
+        #~(job '(next-hour '(15)) "guix gc -F 100G")))
 
 (operating-system
   (host-name "harbourfront")
@@ -57,7 +57,7 @@
                            ("root" ,(local-file "keys/ssh/andreas.pub"))))))
                    (service mcron-service-type
                             (mcron-configuration
-                             (jobs (list gc-job))))
+                             (jobs gc-jobs)))
                    (service ntp-service-type)
                    (modify-services %base-services
                      (guix-service-type config =>