diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-04-22 15:31:42 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-04-22 15:31:42 +0100 |
| commit | e32cc011bbe899fda432906776702f74fa6b1450 (patch) | |
| tree | 23097d172d79f9364ae10f9e8b323fea01fddccb /gnu/services/guix.scm | |
| parent | cd9ed85b17482e9a1855d8e00a8297cef5084c91 (diff) | |
| download | guix-e32cc011bbe899fda432906776702f74fa6b1450.tar.gz | |
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/guix.scm')
| -rw-r--r-- | gnu/services/guix.scm | 12 |
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 |