aboutsummaryrefslogtreecommitdiff
path: root/gnu/services/dns.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/services/dns.scm')
-rw-r--r--gnu/services/dns.scm7
1 files changed, 4 insertions, 3 deletions
diff --git a/gnu/services/dns.scm b/gnu/services/dns.scm
index 16bd039f59..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")))
@@ -763,9 +764,9 @@ manually.")
(use-modules (guix build utils)
(ice-9 rdelim))
(let ((ddclient-user
- #$(passwd:uid (getpw (ddclient-configuration-user config))))
+ (passwd:uid (getpw #$(ddclient-configuration-user config))))
(ddclient-group
- #$(passwd:gid (getpw (ddclient-configuration-group config))))
+ (passwd:gid (getpw #$(ddclient-configuration-group config))))
(ddclient-secret-file
#$(ddclient-configuration-secret-file config)))
;; 'ddclient' complains about ddclient.conf file permissions, which