encode-to-string, instead of returning nil

2020-11-15 15:59:13 -08:00 · 2020-11-15 15:59:13 -08:00 · cbda9609f3
parent 678bcc5d3d
commit cbda9609f3
1 changed files with 2 additions and 2 deletions
--- a/backplane-server.lisp
+++ b/backplane-server.lisp
@ -40,14 +40,14 @@

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

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