From b0140d6fc6a3b817270a5d78ddb2da6f615aa603 Mon Sep 17 00:00:00 2001 From: cage Date: Fri, 13 Jan 2023 16:09:14 +0100 Subject: [PATCH] - [RPC] fixed encoding of certificates. --- src/gui/server/public-api.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/gui/server/public-api.lisp b/src/gui/server/public-api.lisp index ae438e7..587558f 100644 --- a/src/gui/server/public-api.lisp +++ b/src/gui/server/public-api.lisp @@ -322,13 +322,14 @@ (defstruct (gemini-certificates (:include box))) - (defmethod yason:encode ((object gemini-certificates) &optional (stream *standard-output*)) (let ((json:*symbol-encoder* #'json:encode-symbol-as-lowercase) (yason:*list-encoder* #'yason:encode-plist) (json:*symbol-key-encoder* #'json:encode-symbol-as-lowercase)) - (yason:with-output (stream) - (yason:encode (gemini-certificates-payload object))))) + (yason:with-output (stream) + (yason:with-array () + (loop for certificate in (gemini-certificates-payload object) do + (yason:encode-array-element certificate)))))) (defun gemini-certificates () (make-gemini-certificates :payload (db:find-tls-certificates-rows)))