aboutsummaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2017-07-26 12:22:38 +0100
committerChristopher Baines <mail@cbaines.net>2017-08-09 23:50:27 +0100
commitf2d8e7f720c92dfb0f49d61f7b66d45e3e63e4cd (patch)
tree1e00de539777963bb2d716e470a7dd20e04e5f0d /gnu
parent761f5865c8fe1a6cda5d1481782ecf3f8fff4602 (diff)
downloadguix-f2d8e7f720c92dfb0f49d61f7b66d45e3e63e4cd.tar
guix-f2d8e7f720c92dfb0f49d61f7b66d45e3e63e4cd.tar.gz
services: Add missing wrap-lines option to tailon.
* gnu/services/admin.scm (<tailon-configuration-file>): Add wrap-lines. (tailon-configuration-wrap-lines): New procedure. (tailon-configuration-file-compiler): Add support for wrap-lines. * doc/guix.texi (Monitoring Services): Document the wrap-lines Tailon configuration option.
Diffstat (limited to 'gnu')
-rw-r--r--gnu/services/admin.scm12
1 files changed, 9 insertions, 3 deletions
diff --git a/gnu/services/admin.scm b/gnu/services/admin.scm
index 1044833fef..19169427c0 100644
--- a/gnu/services/admin.scm
+++ b/gnu/services/admin.scm
@@ -59,6 +59,8 @@
tailon-configuration-file-tail-lines
tailon-configuration-file-allowed-commands
tailon-configuration-file-debug?
+ tailon-configuration-file-wrap-lines
+
<tailon-configuration>
tailon-configuration
@@ -220,7 +222,9 @@ for ROTATION."
(allowed-commands tailon-configuration-file-allowed-commands
(default '("tail" "grep" "awk")))
(debug? tailon-configuration-file-debug?
- (default #f)))
+ (default #f))
+ (wrap-lines tailon-configuration-file-wrap-lines
+ (default #t)))
(define (tailon-configuration-files-string files)
(string-append
@@ -249,7 +253,8 @@ for ROTATION."
(match file
(($ <tailon-configuration-file> files bind relative-root
allow-transfers? follow-names?
- tail-lines allowed-commands debug?)
+ tail-lines allowed-commands debug?
+ wrap-lines)
(text-file
"tailon-config.yaml"
(string-concatenate
@@ -267,7 +272,8 @@ for ROTATION."
("commands" . ,(string-append "["
(string-join allowed-commands ", ")
"]"))
- ,@(if debug? '(("debug" . "true")) '()))))))))
+ ,@(if debug? '(("debug" . "true")) '())
+ ("wrap-lines" . ,(if wrap-lines "true" "false")))))))))
(define-record-type* <tailon-configuration>
tailon-configuration make-tailon-configuration