tristan/gptel
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

gptel-curl: Remove redundant calls to insert-response

Browse source 
* gptel-curl.el (gptel-curl--sentinel, gptel-curl--stream-filter):
Remove redundant calls to `gptel-curl--stream-insert-response`
when the response being inserted is nil or a blank string.  This
should be a modest boost to streaming performance.
This commit is contained in:
Karthik Chikmagalur 2023-12-21 15:00:07 -08:00
parent a202911009
commit 1a554785e8
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gptel-curl.el
View file

@ -295,11 +295,12 @@ See `gptel--url-get-response' for details."
(when-let ((http-msg (plist-get proc-info :status))
(http-status (plist-get proc-info :http-status)))
;; Find data chunk(s) and run callback
(when (equal http-status "200")
(when-let ((_ (equal http-status "200"))
(response (funcall (plist-get proc-info :parser) nil proc-info))
(_ (not (equal response ""))))
(funcall (or (plist-get proc-info :callback)
#'gptel-curl--stream-insert-response)
(funcall (plist-get proc-info :parser) nil proc-info)
proc-info))))))
response proc-info))))))
(cl-defgeneric gptel-curl--parse-stream (backend proc-info)
"Stream parser for gptel-curl.
@ -314,7 +315,7 @@ PROC-INFO is a plist with process information and other context.
See `gptel-curl--get-response' for its contents.")
(defun gptel-curl--sentinel (process _status)
"Process sentinel for GPTel curl requests.
"Process sentinel for gptel curl requests.
PROCESS and _STATUS are process parameters."
(let ((proc-buf (process-buffer process)))