From cbda9609f36dabf6e0b4bfb63736ca457c7e58d8 Mon Sep 17 00:00:00 2001
From: Niten <niten@fudo.org>
Date: Sun, 15 Nov 2020 15:59:13 -0800
Subject: [PATCH] encode-to-string, instead of returning nil
---
backplane-server.lisp | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/backplane-server.lisp b/backplane-server.lisp
index 5fa6c99..b441143 100644
--- 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)))))