02/02: hydra: services: /var/log/goggles.log is rotated.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository maintenance.

commit 4b23c09a117393033bce991856c9936892b44bf3
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sat Jun 27 14:15:27 2020 +0200

    hydra: services: /var/log/goggles.log is rotated.
    
    * hydra/modules/sysadmin/services.scm (%goggles-log-rotations): New 
variable.
    (goggles-service-type): Extend ROTTLOG-SERVICE-TYPE.
---
 hydra/modules/sysadmin/services.scm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/hydra/modules/sysadmin/services.scm 
b/hydra/modules/sysadmin/services.scm
index 0be6535..80f47db 100644
--- a/hydra/modules/sysadmin/services.scm
+++ b/hydra/modules/sysadmin/services.scm
@@ -520,6 +520,10 @@
          (name "goggles")
          (system? #t))))
 
+(define %goggles-log-rotations
+  (list (log-rotation
+         (files (list "/var/log/goggles.log")))))
+
 (define goggles-service-type
   (service-type
    (name 'goggles)
@@ -529,6 +533,8 @@
                                         (const %goggles-activation))
                      (service-extension mcron-service-type
                                         goggles-mcron-jobs)
+                     (service-extension rottlog-service-type
+                                        (const %goggles-log-rotations))
                      (service-extension shepherd-root-service-type
                                         goggles-shepherd-services)))
    (default-value goggles)