aboutsummaryrefslogtreecommitdiff
path: root/gnu/services/admin.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-06-08 20:23:08 +0200
committerLudovic Courtès <ludo@gnu.org>2017-06-12 23:34:14 +0200
commit254ea3f945e8bc44f8c3a4159302f24f4fe5f216 (patch)
treef99002ca3294b2d1329a887673723a22dbe5caca /gnu/services/admin.scm
parent81fa2229ecb80a8ae90c8e24771e1df880e75383 (diff)
downloadpatches-254ea3f945e8bc44f8c3a4159302f24f4fe5f216.tar
patches-254ea3f945e8bc44f8c3a4159302f24f4fe5f216.tar.gz
services: rottlog: Make extensible.
* gnu/services/admin.scm (rottlog-service-type)[compose, extend]: New fields. * doc/guix.texi (Log Rotation): Mention extension.
Diffstat (limited to 'gnu/services/admin.scm')
-rw-r--r--gnu/services/admin.scm6
1 files changed, 6 insertions, 0 deletions
diff --git a/gnu/services/admin.scm b/gnu/services/admin.scm
index 99f3b1da16..b9e3fa70a4 100644
--- a/gnu/services/admin.scm
+++ b/gnu/services/admin.scm
@@ -164,6 +164,12 @@ for ROTATION."
;; the documentation.
(service-extension profile-service-type
(compose list rottlog-rottlog))))
+ (compose concatenate)
+ (extend (lambda (config rotations)
+ (rottlog-configuration
+ (inherit config)
+ (rotations (append (rottlog-rotations config)
+ rotations)))))
(default-value (rottlog-configuration))))
;;; admin.scm ends here