From 3d4344aae89d623c7dc90172005fd1ce84362d98 Mon Sep 17 00:00:00 2001 From: Vivien Kraus Date: Mon, 8 Jan 2024 17:42:19 +0100 Subject: Be a touch more verbose when publishing gandi records --- guile/email-key-rotation/dns.scm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/guile/email-key-rotation/dns.scm b/guile/email-key-rotation/dns.scm index a5da1b2..65dd75a 100644 --- a/guile/email-key-rotation/dns.scm +++ b/guile/email-key-rotation/dns.scm @@ -45,6 +45,8 @@ (lambda () (match record (($ name type value) + (format (current-error-port) "Publishing record on Gandi LiveDNS: ~s ~s ~s...\n" + name type value) (let ((path-under-domain `("records" ,name ,type)) (headers `((content-type . (application/json)))) (body @@ -80,4 +82,8 @@ (make-exception-with-message (format #f "the request failed with ~a ~a." (response-code response) - (response-reason-phrase response))))))))))))) + (response-reason-phrase response)))))) + (format (current-error-port) "Publishing record on Gandi LiveDNS: ~s ~s ~s: ~s ~s\n" + name type value + (response-code response) + (response-reason-phrase response))))))))) -- cgit v1.2.3