public
/
backplane-dns
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

encode-to-string, instead of returning nil

This commit is contained in:
Niten 2020-11-15 15:59:13 -08:00
parent 678bcc5d3d
commit cbda9609f3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
backplane-server.lisp
View File

@ -40,14 +40,14 @@
(defmethod render-result ((res result/success)) (defmethod render-result ((res result/success))
(with-slots (message msg-id) res (with-slots (message msg-id) res
(cl-json:encode-json (cl-json:encode-json-to-string
`((STATUS . "OK") `((STATUS . "OK")
(MESSAGE . ,message) (MESSAGE . ,message)
(MSGID . ,msg-id))))) (MSGID . ,msg-id)))))
(defmethod render-result ((res result/error)) (defmethod render-result ((res result/error))
(with-slots (message msg-id) res (with-slots (message msg-id) res
(cl-json:encode-json (cl-json:encode-json-to-string
`((STATUS . "ERROR") `((STATUS . "ERROR")
(MESSAGE . ,message) (MESSAGE . ,message)
(MSGID . ,msg-id))))) (MSGID . ,msg-id)))))