From 8cba94e0812539191b40ad0f823bdaa3b14bb278 Mon Sep 17 00:00:00 2001 From: Loic Guegan Date: Sun, 12 May 2019 11:16:16 +0200 Subject: Update api --- server/api/api.lisp | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'server/api/api.lisp') 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) -- cgit v1.2.3