From f8b0bafa4064656624c06ad262ce87cd37cb7965 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 6 Aug 2026 00:58:36 +0100
Subject: 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.
---
 kaagum/web.scm | 2 ++
 1 file changed, 2 insertions(+)

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))
-- 
cgit 1.4.1