diff options
| author | Julien Lepiller <julien@lepiller.eu> | 2019-04-26 18:36:44 +0200 |
|---|---|---|
| committer | Julien Lepiller <julien@lepiller.eu> | 2019-04-26 18:37:48 +0200 |
| commit | e379d1b5efad293951fd35920bbf142376058696 (patch) | |
| tree | 47adb0f5e3362427ab16701347bda0a4b2c0b1cd /gnu/services/dns.scm | |
| parent | 273ba2552baa5131f75c813ecc9c2272a9d96f12 (diff) | |
| download | guix-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.
Diffstat (limited to 'gnu/services/dns.scm')
| -rw-r--r-- | gnu/services/dns.scm | 2 |
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) |