me
/
guix
Archived
1
0
Fork 0
Code

services: nfs: Add verbosity control to idmap-service-type. 

* gnu/services/nfs.scm (<idmap-configuration>)[verbosity]: New field.
(idmap-configuration-verbosity): New procedure.
(idmap-service-type): Use it.
* doc/guix.texi (Network File System): Document it.
master
Ricardo Wurmus 2020-01-03 18:15:00 +01:00
parent af32ea3583
commit 2a23942e3f
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
doc/guix.texi
View File

@ -22044,6 +22044,9 @@ The local NFSv4 domain name.
This must be a string or @code{#f}. This must be a string or @code{#f}.
If it is @code{#f} then the daemon will use the host's fully qualified domain name. If it is @code{#f} then the daemon will use the host's fully qualified domain name.
@item @code{verbosity} (default: @code{0})
The verbosity level of the daemon.
@end table @end table
@end deftp @end deftp

8
gnu/services/nfs.scm
View File

@ -167,7 +167,9 @@
(domain idmap-configuration-domain (domain idmap-configuration-domain
(default #f)) (default #f))
(nfs-utils idmap-configuration-nfs-utils (nfs-utils idmap-configuration-nfs-utils
(default nfs-utils))) (default nfs-utils))
(verbosity idmap-configuration-verbosity
(default 0)))
(define idmap-service-type (define idmap-service-type
(let ((proc (let ((proc
@ -185,6 +187,10 @@
(plain-file "idmapd.conf" (plain-file "idmapd.conf"
(string-append (string-append
"\n[General]\n" "\n[General]\n"
"Verbosity = "
(number->string
(idmap-configuration-verbosity config))
"\n"
(if domain (if domain
(format #f "Domain = ~a\n" domain) (format #f "Domain = ~a\n" domain)
"") "")