From 59f42680ef0b20377989f15aa81f15be2f6a0d59 Mon Sep 17 00:00:00 2001 From: Loic Guegan Date: Sat, 11 May 2019 15:27:04 +0200 Subject: Debug serveré MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- server/api/api.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'server/api') diff --git a/server/api/api.lisp b/server/api/api.lisp index 7ccff24..476f3f9 100644 --- a/server/api/api.lisp +++ b/server/api/api.lisp @@ -38,8 +38,6 @@ p-request))) - - (defmethod handle-new-game ((api api) data) (with-slots (gm) api (let* ((game-id (create-game gm))) @@ -80,7 +78,9 @@ :element-type 'character :adjustable t :fill-pointer 0))) - (format reason "~a~%" condition :escape nil) + (if (typep condition 'jonathan.error:) + (format reason "{\"type\":\"error\",\"message\":\"Failed to parse JSON\"}~%" condition :escape nil) + (format reason "{\"type\":\"error\",\"message\":\"~a\"}~%" condition :escape nil)) reason)))) -- cgit v1.2.3