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

- [RPC] fixed encoding of certificates.

Browse Source
This commit is contained in:
cage 2023-01-13 16:09:14 +01:00
parent 48f950af1e
commit b0140d6fc6
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/gui/server/public-api.lisp
View File

@ -322,13 +322,14 @@
(defstruct (gemini-certificates (:include box))) (defstruct (gemini-certificates (:include box)))
(defmethod yason:encode ((object gemini-certificates) &optional (stream *standard-output*)) (defmethod yason:encode ((object gemini-certificates) &optional (stream *standard-output*))
(let ((json:*symbol-encoder* #'json:encode-symbol-as-lowercase) (let ((json:*symbol-encoder* #'json:encode-symbol-as-lowercase)
(yason:*list-encoder* #'yason:encode-plist) (yason:*list-encoder* #'yason:encode-plist)
(json:*symbol-key-encoder* #'json:encode-symbol-as-lowercase)) (json:*symbol-key-encoder* #'json:encode-symbol-as-lowercase))
(yason:with-output (stream) (yason:with-output (stream)
(yason:encode (gemini-certificates-payload object))))) (yason:with-array ()
(loop for certificate in (gemini-certificates-payload object) do
(yason:encode-array-element certificate))))))
(defun gemini-certificates () (defun gemini-certificates ()
(make-gemini-certificates :payload (db:find-tls-certificates-rows))) (make-gemini-certificates :payload (db:find-tls-certificates-rows)))