diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-12-07 22:29:35 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-12-07 23:36:19 +0100 |
| commit | ce1f5ff6cff2a3c820c4212ae8d4c4cfa5ae949c (patch) | |
| tree | e35e70f90cd583783a5efd6cdbc2d2003981df7e /gnu/services/cuirass.scm | |
| parent | 40153fe03358a69c1b2f53237511f73ee83910a2 (diff) | |
services: cuirass-remote-worker: Rotate logs.
* gnu/services/cuirass.scm (cuirass-remote-worker-log-rotations): New
procedure.
(cuirass-remote-worker-service-type): Use it.
Diffstat (limited to 'gnu/services/cuirass.scm')
| -rw-r--r-- | gnu/services/cuirass.scm | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/gnu/services/cuirass.scm b/gnu/services/cuirass.scm index d7c6ab9877..43a1edcb34 100644 --- a/gnu/services/cuirass.scm +++ b/gnu/services/cuirass.scm @@ -394,12 +394,21 @@ CONFIG." #:log-file #$log-file)) (stop #~(make-kill-destructor)))))) +(define (cuirass-remote-worker-log-rotations config) + "Return the list of log rotations that corresponds to CONFIG." + (list (log-rotation + (files (list (cuirass-remote-worker-log-file config))) + (frequency 'weekly) + (options `("rotate 4" ;don't keep too many of them + ,@%default-log-rotation-options))))) + (define cuirass-remote-worker-service-type (service-type (name 'cuirass-remote-worker) (extensions - (list - (service-extension shepherd-root-service-type - cuirass-remote-worker-shepherd-service))) + (list (service-extension shepherd-root-service-type + cuirass-remote-worker-shepherd-service) + (service-extension rottlog-service-type + cuirass-remote-worker-log-rotations))) (description "Run the Cuirass remote build worker service."))) |