diff options
author | Simon Tournier <zimon.toutoune@gmail.com> | 2023-10-18 16:53:44 +0200 |
---|---|---|
committer | Simon Tournier <zimon.toutoune@gmail.com> | 2023-10-24 18:51:39 +0200 |
commit | 7e4324575c80cbe3c18c26b0507776b16ba3989e (patch) | |
tree | b22b1790cfa385cfac38228a3d127d431f03a13c /gnu/services/admin.scm | |
parent | f3714b3d5f51aced4b31447c42d5e89c75e3079f (diff) |
services: admin: Export rottlog-configuration accessors.
* gnu/services/admin.scm (<rottlog-configuration>): Rename accessors
rottlog-rottlog to rottlog-configuration-rottlog, rottlog-rc-file to
rottlog-configuration-rc-file, rottlog-rotations to
rottlog-configuration-rotations, rottlog-jobs to rottlog-configuration-jobs.
(rottlog-etc, rottlog-jobs-or-default, rottlog-service-type): Adjust
accordingly.
Diffstat (limited to 'gnu/services/admin.scm')
-rw-r--r-- | gnu/services/admin.scm | 24 |
1 files changed, 14 insertions, 10 deletions
diff --git a/gnu/services/admin.scm b/gnu/services/admin.scm index 5cf74c6e4d..0b325fddb1 100644 --- a/gnu/services/admin.scm +++ b/gnu/services/admin.scm @@ -52,6 +52,10 @@ rottlog-configuration rottlog-configuration? + rottlog-configuration-rottlog + rottlog-configuration-rc-file + rottlog-configuration-rotations + rottlog-configuration-jobs rottlog-service rottlog-service-type @@ -193,25 +197,25 @@ for ROTATION." (define-record-type* <rottlog-configuration> rottlog-configuration make-rottlog-configuration rottlog-configuration? - (rottlog rottlog-rottlog ;file-like + (rottlog rottlog-configuration-rottlog ;file-like (default rottlog)) - (rc-file rottlog-rc-file ;file-like + (rc-file rottlog-configuration-rc-file ;file-like (default (file-append rottlog "/etc/rc"))) - (rotations rottlog-rotations ;list of <log-rotation> + (rotations rottlog-configuration-rotations ;list of <log-rotation> (default %default-rotations)) - (jobs rottlog-jobs ;list of <mcron-job> + (jobs rottlog-configuration-jobs ;list of <mcron-job> (default #f))) (define (rottlog-etc config) `(("rottlog" ,(file-union "rottlog" - (cons `("rc" ,(rottlog-rc-file config)) + (cons `("rc" ,(rottlog-configuration-rc-file config)) (log-rotations->/etc-entries - (rottlog-rotations config))))))) + (rottlog-configuration-rotations config))))))) (define (rottlog-jobs-or-default config) - (or (rottlog-jobs config) - (default-jobs (rottlog-rottlog config)))) + (or (rottlog-configuration-jobs config) + (default-jobs (rottlog-configuration-rottlog config)))) (define rottlog-service-type (service-type @@ -226,12 +230,12 @@ Old log files are removed or compressed according to the configuration.") ;; Add Rottlog to the global profile so users can access ;; the documentation. (service-extension profile-service-type - (compose list rottlog-rottlog)))) + (compose list rottlog-configuration-rottlog)))) (compose concatenate) (extend (lambda (config rotations) (rottlog-configuration (inherit config) - (rotations (append (rottlog-rotations config) + (rotations (append (rottlog-configuration-rotations config) rotations))))) (default-value (rottlog-configuration)))) |