summaryrefslogtreecommitdiff
path: root/gnu/services
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2022-04-22 15:31:42 +0100
committerChristopher Baines <mail@cbaines.net>2022-04-22 15:31:42 +0100
commite32cc011bbe899fda432906776702f74fa6b1450 (patch)
tree23097d172d79f9364ae10f9e8b323fea01fddccb /gnu/services
parentcd9ed85b17482e9a1855d8e00a8297cef5084c91 (diff)
services: nar-herder: Allow specifying the log level.
* gnu/services/guix.scm (nar-herder-configuration-log-level): New procedure. (nar-herder-shepherd-services): Pass the log-level to the nar-herder process. * doc/guix.texi (Nar Herder): Document configuring the log-level.
Diffstat (limited to 'gnu/services')
-rw-r--r--gnu/services/guix.scm12
1 files changed, 9 insertions, 3 deletions
diff --git a/gnu/services/guix.scm b/gnu/services/guix.scm
index dc9bd8ad68..83c293bbb5 100644
--- a/gnu/services/guix.scm
+++ b/gnu/services/guix.scm
@@ -122,7 +122,8 @@
nar-herder-configuration-port
nar-herder-configuration-storage
nar-herder-configuration-storage-limit
- nar-herder-configuration-storage-nar-removal-criteria))
+ nar-herder-configuration-storage-nar-removal-criteria
+ nar-herder-configuration-log-level))
;;;; Commentary:
;;;
@@ -778,7 +779,9 @@ ca-certificates.crt file in the system profile."
(ttl nar-herder-configuration-ttl
(default #f))
(negative-ttl nar-herder-configuration-negative-ttl
- (default #f)))
+ (default #f))
+ (log-level nar-herder-configuration-log-level
+ (default 'DEBUG)))
(define (nar-herder-shepherd-services config)
@@ -788,7 +791,7 @@ ca-certificates.crt file in the system profile."
database database-dump
host port
storage storage-limit storage-nar-removal-criteria
- ttl negative-ttl)
+ ttl negative-ttl log-level)
(unless (or mirror storage)
(error "nar-herder: mirror or storage must be set"))
@@ -829,6 +832,9 @@ ca-certificates.crt file in the system profile."
'())
#$@(if negative-ttl
(list (string-append "--negative-ttl=" negative-ttl))
+ '())
+ #$@(if log-level
+ (list (simple-format #f "--log-level=~A" log-level))
'()))
#:user #$user
#:group #$group