From 4fb9c6eb432d569d886333c7cb6312a9fad16e2e Mon Sep 17 00:00:00 2001 From: cage Date: Fri, 6 Jan 2023 12:12:32 +0100 Subject: [PATCH] - [JSONRPC] included actual ID to the error response when possible. --- src/json-rpc2.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/json-rpc2.lisp b/src/json-rpc2.lisp index 283fc01..b538ebc 100644 --- a/src/json-rpc2.lisp +++ b/src/json-rpc2.lisp @@ -79,7 +79,7 @@ (make-response-error -32603 (format nil "Internal error: ~a" 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 () ((name @@ -411,9 +411,9 @@ :error-object (make-response-error (or (code e) (response-error-code +error-invalid-request+)) (text e)))) - (make-internal-error (e) + (make-internal-error (e &optional (id nil)) (make-response nil - nil + id :error-object (make-internal-error-message (format nil "~a" e))))) (handler-case (multiple-value-bind (method id params) @@ -430,7 +430,7 @@ (make-rpc-error e)) (error (e) (maybe-log-message (format nil "jsonrpc request failed: ~a" e)) - (make-internal-error e)))) + (make-internal-error e id)))) (json-rpc-error (e) (make-rpc-error e)) (error (e)