diff options
author | Timo Wilken | 2023-11-05 00:32:41 +0100 |
---|---|---|
committer | Timo Wilken | 2023-11-05 00:35:42 +0100 |
commit | c3ef6ab1a62cf23cd15fd8865ec6bcdf8e7e4ad7 (patch) | |
tree | f31d4fea84535b0af61f5071ef82a65e1a90a153 /tw/services/dns.scm | |
parent | 5098b845e9eb0b3a39495f4fd7890cae0d426c3e (diff) |
Fix `match-record' indentation
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")) '())))) |