web: Trace web requests even when they fail with an error code.

Trace web requests even when they fail with an error code, not just
when they succeed with a 2xx code.

1 files changed, 2 insertions, 0 deletions

diff --git a/kaagum/web.scm b/kaagum/web.scm
index db6f33a..7aa8595 100644
--- a/kaagum/web.scm
+++ b/kaagum/web.scm
@@ -59,6 +59,7 @@ additional @var{headers}. Return JSON response."
              (trace 'web "<- ~a ~a" (response-code response) (scm->json-string result))
              result))
       ((4)
+       (trace 'web "<- ~a" (response-code response))
        (raise-exception
         (condition (make-violation)
                    (make-irritants-condition (list method url headers body))
@@ -66,6 +67,7 @@ additional @var{headers}. Return JSON response."
                     (string-append "JSON API request failed with client error code "
                                    (number->string (response-code response)))))))
       (else
+       (trace 'web "<- ~a" (response-code response))
        (raise-exception
         (condition (make-error)
                    (make-irritants-condition (list method url headers body))