diff options
Diffstat (limited to 'guile/email-key-rotation/dns.scm')
| -rw-r--r-- | guile/email-key-rotation/dns.scm | 8 |
1 files changed, 7 insertions, 1 deletions
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 (($ <dns-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))))))))) |