diff options
Diffstat (limited to 'server/api/api.lisp')
| -rw-r--r-- | server/api/api.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
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:<jonathan-error>) + (format reason "{\"type\":\"error\",\"message\":\"Failed to parse JSON\"}~%" condition :escape nil) + (format reason "{\"type\":\"error\",\"message\":\"~a\"}~%" condition :escape nil)) reason)))) |