me
/
guix
Archived
1
0
Fork 0
Code

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.
master
Christopher Baines 2022-04-22 15:31:42 +01:00
parent cd9ed85b17
commit e32cc011bb
No known key found for this signature in database
GPG Key ID: 5E28A33B0B84F577
2 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
doc/guix.texi
View File

@ -34430,6 +34430,10 @@ time-to-live (TTL) of @emph{negative} lookups---missing store items, for
which the HTTP 404 code is returned. By default, no negative TTL is
advertised.
@item @code{log-level} (default: @code{'DEBUG})
Log level to use, specify a log level like @code{'INFO} to stop logging
individual requests.
@end table
@end deftp

12
gnu/services/guix.scm
View File

@ -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