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

[guix-commits]

rekado pushed a commit to branch master
in repository guix.

commit 2a23942e3fbda98a9457304785481dd54302714a
Author: Ricardo Wurmus <address@hidden>
AuthorDate: Fri Jan 3 18:15:00 2020 +0100

    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.
---
 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 bb0ef17..0f498a0 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -22044,6 +22044,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 9fb95bd..054dad0 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)
                               "")