04/13: services: virtual-build-machine: Add periodic GC job.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit cd0dc17e43d4020d4e56afa32b6cc05072fe2e0e
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sun Feb 18 12:16:23 2024 +0100

    services: virtual-build-machine: Add periodic GC job.
    
    * gnu/services/virtualization.scm (%virtual-build-machine-operating-system):
    Add ‘periodic-gc’ service.
    
    Change-Id: Id5bde1ee3f8e1e549e231375e776d3201ec9e0b5
---
 gnu/services/virtualization.scm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/gnu/services/virtualization.scm b/gnu/services/virtualization.scm
index 1944268cf8..ea5edfcec3 100644
--- a/gnu/services/virtualization.scm
+++ b/gnu/services/virtualization.scm
@@ -36,6 +36,7 @@
   #:use-module (gnu services base)
   #:use-module (gnu services configuration)
   #:use-module (gnu services dbus)
+  #:use-module (gnu services mcron)
   #:use-module (gnu services shepherd)
   #:use-module (gnu services ssh)
   #:use-module (gnu services)
@@ -1209,6 +1210,11 @@ authpriv.*;auth.info                    /var/log/secure
                               (openssh-configuration
                                (openssh openssh-sans-x)))
 
+                     ;; Run GC once per hour.
+                     (simple-service 'perdiodic-gc mcron-service-type
+                                     (list #~(job "12 * * * *"
+                                                  "guix gc -F 2G")))
+
                      (modify-services %base-services
                        ;; By default, the secret service introduces a
                        ;; pre-initialized /etc/guix/acl file in the VM.  Thus,