branch: externals/llm
commit 2daffebdee1c1ced3d6e96a9bdd27b2cf1ead387
Author: Andrew Hyatt <ahy...@gmail.com>
Commit: Andrew Hyatt <ahy...@gmail.com>
Properly throw errors when sync requests receive an error code
---
llm-request.el | 12 +++++++++++-
1 file changed, 11 insertions(+), 1 deletion(-)
diff --git a/llm-request.el b/llm-request.el
index 8054e79c31..8645b42144 100644
--- a/llm-request.el
+++ b/llm-request.el
@@ -41,6 +41,8 @@
(defvar-local llm-request--partial-callback nil
"The callback to call when a partial response is received.")
+(defvar url-http-response-status)
+
(cl-defun llm-request-sync-raw-output (url &key headers data timeout)
"Make a request to URL. The raw text response will be returned.
@@ -57,7 +59,15 @@ TIMEOUT is the number of seconds to wait for a response."
(url-request-data (encode-coding-string (json-encode data) 'utf-8)))
(let ((buf (url-retrieve-synchronously url t nil (or timeout 5))))
(if buf
- (with-current-buffer buf (llm-request--content))
+ (with-current-buffer buf
+ (url-http-parse-response)
+ (if (and (>= url-http-response-status 200)
+ (< url-http-response-status 300))
+ (llm-request--content)
+ (error "LLM request failed with code %d: %s (additional
information: %s)"
+ url-http-response-status
+ (nth 2 (assq url-http-response-status url-http-codes))
+ (string-trim (llm-request--content)))))
(error "LLM request timed out")))))
(cl-defun llm-request-sync (url &key headers data timeout)
