diff options
Diffstat (limited to 'tw/services/dns.scm')
| -rw-r--r-- | tw/services/dns.scm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/tw/services/dns.scm b/tw/services/dns.scm index 684fea5a..ba4da6fe 100644 --- a/tw/services/dns.scm +++ b/tw/services/dns.scm @@ -25,8 +25,7 @@ Guile @code{read} calls.") (ipv6? (boolean #t) "Whether to update the specified host's AAAA record.")) (define (mythic-dynamic-dns-cronjob config api-host) - (match-record config <mythic-dynamic-dns-configuration> - (schedule host-name credential-file) + (match-record config <mythic-dynamic-dns-configuration> (schedule host-name credential-file) #~(job #$schedule #$(program-file (string-append "dynamic-dns-" api-host "-command") (with-extensions (list guile-json-4 guile-gnutls) ; guile-gnutls needed by (web client) @@ -58,8 +57,7 @@ Guile @code{read} calls.") response decoded-body))))))))) (define (mythic-dynamic-dns-cronjobs config) - (match-record config <mythic-dynamic-dns-configuration> - (ipv4? ipv6?) + (match-record config <mythic-dynamic-dns-configuration> (ipv4? ipv6?) (append (if ipv4? (list (mythic-dynamic-dns-cronjob config "ipv4.api.mythic-beasts.com")) '()) (if ipv6? (list (mythic-dynamic-dns-cronjob config "ipv6.api.mythic-beasts.com")) '())))) |