[bug#70670] [PATCH 1/2] services: dnsmasq: Fix tftp-unique-root option.

[Jean-Baptiste Note]

* gnu/services/dns.scm (dnsmasq-shepherd-service): tftp-unique-root is a
string and its length is taken with string-length.
---
 gnu/services/dns.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gnu/services/dns.scm b/gnu/services/dns.scm
index 6608046909..ff169f4e8d 100644
--- a/gnu/services/dns.scm
+++ b/gnu/services/dns.scm
@@ -874,7 +874,7 @@ (define (dnsmasq-shepherd-service config)
                        '())
                 #$@(if tftp-unique-root
                        (list
-                        (if (> (length tftp-unique-root) 0)
+                        (if (> (string-length tftp-unique-root) 0)
                             (format #f "--tftp-unique-root=~a" 
tftp-unique-root)
                             (format #f "--tftp-unique-root")))
                        '()))
-- 
2.41.0