From c3ef6ab1a62cf23cd15fd8865ec6bcdf8e7e4ad7 Mon Sep 17 00:00:00 2001 From: Timo Wilken Date: Sun, 5 Nov 2023 00:32:41 +0100 Subject: Fix `match-record' indentation --- tw/services/dns.scm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'tw/services/dns.scm') 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 - (schedule host-name credential-file) + (match-record config (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 - (ipv4? ipv6?) + (match-record config (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")) '())))) -- cgit v1.2.3