aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJulien Lepiller <julien@lepiller.eu>2019-04-26 18:36:44 +0200
committerJulien Lepiller <julien@lepiller.eu>2019-04-26 18:37:48 +0200
commite379d1b5efad293951fd35920bbf142376058696 (patch)
tree47adb0f5e3362427ab16701347bda0a4b2c0b1cd
parent273ba2552baa5131f75c813ecc9c2272a9d96f12 (diff)
downloadguix-e379d1b5efad293951fd35920bbf142376058696.tar
guix-e379d1b5efad293951fd35920bbf142376058696.tar.gz
gnu: dns: Fix configuration formating.
* gnu/services/dns.scm (format-string-list): Fix formating of lists with only one symbol.
-rw-r--r--gnu/services/dns.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/gnu/services/dns.scm b/gnu/services/dns.scm
index 445e03570a..1613325645 100644
--- a/gnu/services/dns.scm
+++ b/gnu/services/dns.scm
@@ -336,7 +336,7 @@
(fold (lambda (x1 x2)
(string-append (if (symbol? x1) (symbol->string x1) x1) ", "
(if (symbol? x2) (symbol->string x2) x2)))
- (car l) (cdr l))
+ (if (symbol? (car l)) (symbol->string (car l)) (car l)) (cdr l))
"]"))))
(define (knot-acl-config acls)