diff --git a/gnu/services/cuirass.scm b/gnu/services/cuirass.scm index d4faf7823bd144310aa989d27ed175c1218b2e52..a50f583807d60e66709ff4fdac2fc09cd5688d57 100644 --- a/gnu/services/cuirass.scm +++ b/gnu/services/cuirass.scm @@ -204,11 +204,15 @@ (define (cuirass-activation config) (chown #$db uid gid) (chown #$log uid gid) - (call-with-output-file #$queries-log-file (const #t)) - (call-with-output-file #$web-queries-log-file (const #t)) - - (chown #$queries-log-file uid gid) - (chown #$web-queries-log-file uid gid)))))) + (let ((queries-log-file #$queries-log-file)) + (when queries-log-file + (call-with-output-file queries-log-file (const #t)) + (chown #$queries-log-file uid gid))) + + (let ((web-queries-log-file #$web-queries-log-file)) + (when web-queries-log-file + (call-with-output-file web-queries-log-file (const #t)) + (chown web-queries-log-file uid gid)))))))) (define (cuirass-log-rotations config) "Return the list of log rotations that corresponds to CONFIG."