04/09: services: mpd: Do not rotate logs when using syslog.

[guix-commits]

apteryx pushed a commit to branch master
in repository guix.

commit 0db2fa1ac081f684eb15e4ef8561f6e2853527bd
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Sat Apr 29 12:02:48 2023 -0400

    services: mpd: Do not rotate logs when using syslog.
    
    * gnu/services/audio.scm (mpd-log-rotation): Conditionlize based on the 
value
    of LOG-FILE.
---
 gnu/services/audio.scm | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

diff --git a/gnu/services/audio.scm b/gnu/services/audio.scm
index f3c8fae23c..8a127d234b 100644
--- a/gnu/services/audio.scm
+++ b/gnu/services/audio.scm
@@ -581,12 +581,15 @@ appended to the configuration.")
    (serialize-configuration configuration mpd-configuration-fields)))
 
 (define (mpd-log-rotation config)
-  (match-record config <mpd-configuration> (log-file)
-    (log-rotation
-     (files (list log-file))
-     (post-rotate #~(begin
-                      (use-modules (gnu services herd))
-                      (with-shepherd-action 'mpd ('reopen) #f))))))
+  (match-record config <mpd-configuration>
+    (log-file)
+    (if (string=? "syslog" log-file)
+        '()                             ;nothing to do
+        (list (log-rotation
+               (files (list log-file))
+               (post-rotate #~(begin
+                                (use-modules (gnu services herd))
+                                (with-shepherd-action 'mpd ('reopen) #f))))))))
 
 (define (mpd-shepherd-service config)
   (match-record config <mpd-configuration>
@@ -674,10 +677,8 @@ MPD (PID ~a)." pid))
    (extensions
     (list (service-extension shepherd-root-service-type
                              (compose list mpd-shepherd-service))
-          (service-extension account-service-type
-                             mpd-accounts)
-          (service-extension rottlog-service-type
-                             (compose list mpd-log-rotation))))
+          (service-extension account-service-type mpd-accounts)
+          (service-extension rottlog-service-type mpd-log-rotation)))
    (default-value (mpd-configuration))))