From 207ee9d9cd78648c8604b055a9806a95a7dec625 Mon Sep 17 00:00:00 2001
From: Mathieu Othacehe <othacehe@gnu.org>
Date: Wed, 22 Dec 2021 18:28:43 +0100
Subject: 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 277178c058..0d1617354e 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
-- 
cgit v1.2.3