diff options
| -rw-r--r-- | kaagum/openai.scm | 2 |
1 files changed, 2 insertions, 0 deletions
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)))))))))) |