diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2024-01-08 17:42:19 +0100 |
|---|---|---|
| committer | Vivien Kraus <vivien@planete-kraus.eu> | 2024-01-08 17:42:19 +0100 |
| commit | 3d4344aae89d623c7dc90172005fd1ce84362d98 (patch) | |
| tree | cd641b5122fed713e64bf5bffb8798fb82d51bc5 | |
| parent | 1ce223e5fefe2c8567d0b3928b13130e33d855d8 (diff) | |
Be a touch more verbose when publishing gandi records0.0.5
| -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))))))))) |