summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorOleg Pykhalov <go.wigust@gmail.com>2018-12-04 07:08:47 +0300
committerOleg Pykhalov <go.wigust@gmail.com>2018-12-04 07:16:00 +0300
commit9325533bd009070f2f4a98362ce1d3afd9af060c (patch)
treee7c4ede308148df133f2cd846ca2e3e3c79e747e
parent191c439e79bff677fa5616b6f8675261073ce991 (diff)
downloadgnu-guix-9325533bd009070f2f4a98362ce1d3afd9af060c.tar
gnu-guix-9325533bd009070f2f4a98362ce1d3afd9af060c.tar.gz
services: ddclient: Fix unrecognized keywords.
This patch fixes warnings about unrecognized keywords in logs. * gnu/services/dns.scm (serialize-field): Skip some field names.
-rw-r--r--gnu/services/dns.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/gnu/services/dns.scm b/gnu/services/dns.scm
index 24ef886682..1ef754b360 100644
--- a/gnu/services/dns.scm
+++ b/gnu/services/dns.scm
@@ -684,7 +684,8 @@
(string-delete #\? (symbol->string field-name)))
(define (serialize-field field-name val)
- (format #t "~a=~a\n" (uglify-field-name field-name) val))
+ (when (not (member field-name '(group secret-file user)))
+ (format #t "~a=~a\n" (uglify-field-name field-name) val)))
(define (serialize-boolean field-name val)
(serialize-field field-name (if val "yes" "no")))