branch master updated: hydra: hatysa: Add btrfs maintenance jobs.

[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 4e3a25f  hydra: hatysa: Add btrfs maintenance jobs.
4e3a25f is described below

commit 4e3a25ffbcc2fbf8c087c476caeaf8cbd91996ee
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Mon Mar 27 21:31:08 2023 +0100

    hydra: hatysa: Add btrfs maintenance jobs.
    
    * hydra/hatysa.scm (btrfs-balance-job, btrfs-scrub-job): New
    variables.
    <mcron-service-type>: Add new jobs.
---
 hydra/hatysa.scm | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/hydra/hatysa.scm b/hydra/hatysa.scm
index 9db1fb9..c868cee 100644
--- a/hydra/hatysa.scm
+++ b/hydra/hatysa.scm
@@ -139,6 +139,21 @@ ssl_ciphers         HIGH:!aNULL:!MD5;
 ssl_prefer_server_ciphers on;"))
       (locations common-locations)))))
 
+(define btrfs-balance-job
+  #~(job '(next-hour-from (next-day (range 1 31 3)) '(5))
+         (lambda ()
+           (system* #$(file-append btrfs-progs "/bin/btrfs")
+                    "balance" "start" "-dusage=5"
+                    "/var/lib/nars"))
+         "btrfs-balance"))
+
+(define btrfs-scrub-job
+  #~(job '(next-hour-from (next-day (range 1 31 7)) '(5))
+         (lambda ()
+           (system* #$(file-append btrfs-progs "/bin/btrfs")
+                    "scrub" "start" "/var/lib/nars"))
+         "btrfs-scrub"))
+
 (operating-system
   (host-name "hatysa")
   (timezone "Europe/London")
@@ -181,7 +196,9 @@ ssl_prefer_server_ciphers on;"))
           (service mcron-service-type
                    (mcron-configuration
                     (jobs
-                     (list #~(job '(next-hour '(3)) "guix gc -F 250G")))))
+                     (list #~(job '(next-hour '(3)) "guix gc -F 250G")
+                           btrfs-balance-job
+                           btrfs-scrub-job))))
 
           (service agetty-service-type
                    (agetty-configuration