02/02: services: guix-publish: Configure log rotation.

[guix-commits]

cbaines pushed a commit to branch master
in repository guix.

commit 4252dace19945f56192477e8cb07973c20a526ba
Author: Christopher Baines <address@hidden>
Date:   Fri May 31 18:25:48 2019 +0100

    services: guix-publish: Configure log rotation.
    
    * gnu/services/base.scm (%guix-publish-log-rotations): New variable.
    (guix-publish-service-type): Extend the rottlog-service-type.
---
 gnu/services/base.scm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/gnu/services/base.scm b/gnu/services/base.scm
index 5e46795..3c1827f 100644
--- a/gnu/services/base.scm
+++ b/gnu/services/base.scm
@@ -28,6 +28,7 @@
   #:use-module (guix store)
   #:use-module (guix deprecation)
   #:use-module (gnu services)
+  #:use-module (gnu services admin)
   #:use-module (gnu services shepherd)
   #:use-module (gnu system pam)
   #:use-module (gnu system shadow)                ; 'user-account', etc.
@@ -1838,6 +1839,10 @@ raise a deprecation warning if the 'compression-level' 
field was used."
          (home-directory "/var/empty")
          (shell (file-append shadow "/sbin/nologin")))))
 
+(define %guix-publish-log-rotations
+  (list (log-rotation
+         (files (list "/var/log/guix-publish.log")))))
+
 (define (guix-publish-activation config)
   (let ((cache (guix-publish-configuration-cache config)))
     (if cache
@@ -1859,6 +1864,8 @@ raise a deprecation warning if the 'compression-level' 
field was used."
                                           guix-publish-shepherd-service)
                        (service-extension account-service-type
                                           (const %guix-publish-accounts))
+                       (service-extension rottlog-service-type
+                                          (const %guix-publish-log-rotations))
                        (service-extension activation-service-type
                                           guix-publish-activation)))
                 (default-value (guix-publish-configuration))