From b8edd351cbff3db7bff50574edaf208572097cc4 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sun, 10 May 2026 20:24:54 +0100
Subject: Report request parameters as irritants on failed HTTP requests.

---
 kaagum/openai.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/kaagum/openai.scm b/kaagum/openai.scm
index 87478fd..4cf643d 100644
--- a/kaagum/openai.scm
+++ b/kaagum/openai.scm
@@ -58,12 +58,14 @@ additional @var{headers}. Return JSON response."
       ((4)
        (raise-exception
         (condition (make-violation)
+                   (make-irritants-condition (list method url headers body))
                    (make-message-condition
                     (string-append "JSON API request failed with client error code "
                                    (number->string (response-code response)))))))
       (else
        (raise-exception
         (condition (make-error)
+                   (make-irritants-condition (list method url headers body))
                    (make-message-condition
                     (string-append "JSON API request failed with code "
                                    (number->string (response-code response))))))))))
-- 
cgit 1.4.1