[bug#38902] [PATCH 7/9] services: nfs: Add verbosity control to idmap-service-type.

[Ricardo Wurmus]

* 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.
---
 doc/guix.texi        | 3 +++
 gnu/services/nfs.scm | 8 +++++++-
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/doc/guix.texi b/doc/guix.texi
index 70e3dfea6a..a26056899e 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -22030,6 +22030,9 @@ The local NFSv4 domain name.
 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.
 
+@item @code{verbosity} (default: @code{0})
+The verbosity level of the daemon.
+
 @end table
 @end deftp
 
diff --git a/gnu/services/nfs.scm b/gnu/services/nfs.scm
index 9fb95bde7e..054dad08b6 100644
--- a/gnu/services/nfs.scm
+++ b/gnu/services/nfs.scm
@@ -167,7 +167,9 @@
   (domain                idmap-configuration-domain
                          (default #f))
   (nfs-utils             idmap-configuration-nfs-utils
-                         (default nfs-utils)))
+                         (default nfs-utils))
+  (verbosity             idmap-configuration-verbosity
+                         (default 0)))
 
 (define idmap-service-type
   (let ((proc
@@ -185,6 +187,10 @@
              (plain-file "idmapd.conf"
                          (string-append
                           "\n[General]\n"
+                          "Verbosity = "
+                          (number->string
+                           (idmap-configuration-verbosity config))
+                          "\n"
                           (if domain
                               (format #f "Domain = ~a\n" domain)
                               "")
-- 
2.24.1