[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
06/10: services: cuirass: Add 'log-file' option.
From: |
Ludovic Courtès |
Subject: |
06/10: services: cuirass: Add 'log-file' option. |
Date: |
Mon, 19 Dec 2016 22:58:30 +0000 (UTC) |
civodul pushed a commit to branch master
in repository guix.
commit b17e326f1731d7170a48cfad4d9d4c91bad7b8a4
Author: Ludovic Courtès <address@hidden>
Date: Mon Dec 19 23:01:04 2016 +0100
services: cuirass: Add 'log-file' option.
* gnu/services/cuirass.scm (<cuirass-configuration>)[log-file]: New
field.
(cuirass-shepherd-service): Pass it to 'make-forkexec-constructor'.
---
doc/guix.texi | 3 +++
gnu/services/cuirass.scm | 6 +++++-
2 files changed, 8 insertions(+), 1 deletion(-)
diff --git a/doc/guix.texi b/doc/guix.texi
index a9f9851..46d006d 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -11990,6 +11990,9 @@ accessible in other @code{cuirass-configuration} fields.
Data type representing the configuration of Cuirass.
@table @asis
address@hidden @code{log-file} (default: @code{"/var/log/cuirass.log"})
+Location of the log file.
+
@item @code{cache-directory} (default: @code{""})
Location of the repository cache.
diff --git a/gnu/services/cuirass.scm b/gnu/services/cuirass.scm
index 4975a7e..8e9316f 100644
--- a/gnu/services/cuirass.scm
+++ b/gnu/services/cuirass.scm
@@ -42,6 +42,8 @@
(define-record-type* <cuirass-configuration>
cuirass-configuration make-cuirass-configuration
cuirass-configuration?
+ (log-file cuirass-configuration-log-file ;string
+ (default "/var/log/cuirass.log"))
(cache-directory cuirass-configuration-cache-directory ;string (dir-name)
(default ""))
(user cuirass-configuration-user ;string
@@ -64,6 +66,7 @@
(and
(cuirass-configuration? config)
(let ((cache-directory (cuirass-configuration-cache-directory config))
+ (log-file (cuirass-configuration-log-file config))
(interval (cuirass-configuration-interval config))
(database (cuirass-configuration-database config))
(specs (cuirass-configuration-specifications config))
@@ -86,7 +89,8 @@
"--database" #$database
"--interval" #$(number->string interval)
#$@(if use-substitutes? '("--use-substitutes") '())
- #$@(if one-shot? '("--one-shot") '()))))
+ #$@(if one-shot? '("--one-shot") '()))
+ #:log-file #$log-file))
(stop #~(make-kill-destructor)))))))
(define (cuirass-account config)
- branch master updated (acb5f7c -> dc0ef09), Ludovic Courtès, 2016/12/19
- 05/10: gnu: cuirass: Add Git to 'PATH'., Ludovic Courtès, 2016/12/19
- 07/10: services: cuirass: Honor 'user' and 'group'., Ludovic Courtès, 2016/12/19
- 09/10: services: guix: Remove dependency on lsh., Ludovic Courtès, 2016/12/19
- 08/10: services: cuirass: Cache defaults to /var/cache/cuirass., Ludovic Courtès, 2016/12/19
- 06/10: services: cuirass: Add 'log-file' option.,
Ludovic Courtès <=
- 04/10: gnu: utox: Fix description., Ludovic Courtès, 2016/12/19
- 01/10: install: The list of services is now a plain list., Ludovic Courtès, 2016/12/19
- 03/10: gnu: utox: Update to 0.11.0., Ludovic Courtès, 2016/12/19
- 02/10: gnu: Add c-toxcore., Ludovic Courtès, 2016/12/19
- 10/10: services: guix: Add 'log-file' configuration option., Ludovic Courtès, 2016/12/19