diff options
Diffstat (limited to 'server')
| -rw-r--r-- | server/api/api.lisp | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/server/api/api.lisp b/server/api/api.lisp index 6d91f57..a87cf6c 100644 --- a/server/api/api.lisp +++ b/server/api/api.lisp @@ -43,8 +43,9 @@ (let* ((game-id (create-game gm))) (let ((game-dump (dump gm game-id))) (setf (getf game-dump :game-over) :null) ; Define nil as null (for json) - (to-json - (append (list :type "state") game-dump)))))) + (string-downcase + (to-json + (append (list :type "state") game-dump))))))) (defmethod handle-update ((api api) data) (with-slots (gm) api @@ -54,8 +55,9 @@ (if dir (refresh game :dir dir) (refresh game)) - (to-json - (append (list :type "state") (dump gm game-id)))))) + (string-downcase + (to-json + (append (list :type "state") (dump gm game-id))))))) (defmethod handle-request ((api api) request) |