cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-17 08:10:36 +01:00
Code Issues

- [JSONRPC] included actual ID to the error response when possible.

Browse Source
This commit is contained in:
cage 2023-01-06 12:12:32 +01:00
parent 0215a4c173
commit 4fb9c6eb43
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/json-rpc2.lisp
View File

@ -79,7 +79,7 @@
(make-response-error -32603 (format nil "Internal error: ~a" msg))) (make-response-error -32603 (format nil "Internal error: ~a" msg)))
(defun make-failed-function-call-error-message (msg) (defun make-failed-function-call-error-message (msg)
(make-response-error -32001 (format nil "Failed functino call: ~a" msg))) (make-response-error -32001 (format nil "Failed function call: ~a" msg)))
(defclass function-param () (defclass function-param ()
((name ((name
@ -411,9 +411,9 @@
:error-object (make-response-error (or (code e) :error-object (make-response-error (or (code e)
(response-error-code +error-invalid-request+)) (response-error-code +error-invalid-request+))
(text e)))) (text e))))
(make-internal-error (e) (make-internal-error (e &optional (id nil))
(make-response nil (make-response nil
nil id
:error-object (make-internal-error-message (format nil "~a" e))))) :error-object (make-internal-error-message (format nil "~a" e)))))
(handler-case (handler-case
(multiple-value-bind (method id params) (multiple-value-bind (method id params)
@ -430,7 +430,7 @@
(make-rpc-error e)) (make-rpc-error e))
(error (e) (error (e)
(maybe-log-message (format nil "jsonrpc request failed: ~a" e)) (maybe-log-message (format nil "jsonrpc request failed: ~a" e))
(make-internal-error e)))) (make-internal-error e id))))
(json-rpc-error (e) (json-rpc-error (e)
(make-rpc-error e)) (make-rpc-error e))
(error (e) (error (e)