diff options
| author | Loic Guegan <manzerberdes@gmx.com> | 2019-05-12 11:16:16 +0200 |
|---|---|---|
| committer | Loic Guegan <manzerberdes@gmx.com> | 2019-05-12 11:16:16 +0200 |
| commit | 8cba94e0812539191b40ad0f823bdaa3b14bb278 (patch) | |
| tree | a64783b15582b7310f227b9bc58c04a99e942b95 /server | |
| parent | 4ce40ee01db2ecfc3cb1c55de2f5fa23fae87a4e (diff) | |
Update api
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) |