From 0db2fa1ac081f684eb15e4ef8561f6e2853527bd Mon Sep 17 00:00:00 2001 From: Maxim Cournoyer Date: Sat, 29 Apr 2023 12:02:48 -0400 Subject: 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(-) (limited to 'gnu/services') 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 (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 + (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 @@ -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)))) -- cgit 1.4.1