11/12: services: nfs: Fix statd and mountd ports.

[guix-commits]

mothacehe pushed a commit to branch wip-image
in repository guix.

commit b05c936afbd5695a7163b932a5c34791e5d869d7
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Wed Dec 22 18:28:43 2021 +0100

    services: nfs: Fix statd and mountd ports.
    
    * gnu/services/nfs.scm (nfs-shepherd-services): Fix rpcstatd-port and
    rpcmountd-port arguments.
---
 gnu/services/nfs.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnu/services/nfs.scm b/gnu/services/nfs.scm
index 277178c..0d16173 100644
--- a/gnu/services/nfs.scm
+++ b/gnu/services/nfs.scm
@@ -304,7 +304,7 @@
                             '())
                      "--foreground"
                      #$@(if rpcstatd-port
-                            '("--port" (number->string rpcstatd-port))
+                            #~("--port" #$(number->string rpcstatd-port))
                             '()))
                #:pid-file "/var/run/rpc.statd.pid"))
            (stop #~(make-kill-destructor)))
@@ -320,7 +320,7 @@
                             '("--debug" "all")
                             '())
                      #$@(if rpcmountd-port
-                            '("--port" (number->string rpcmountd-port))
+                            #~("--port" #$(number->string rpcmountd-port))
                             '()))))
            (stop #~(make-kill-destructor)))
           (shepherd-service