loic/remote-snake
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add simple error handling

Browse source
This commit is contained in:
Loic Guegan 2019-05-10 14:01:24 +02:00
parent 05aee16e24
commit ea2de68b47
1 changed files with 13 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
server/api/api.lisp
View file

@ -56,12 +56,19 @@
(defmethod handle-request ((api api) request) (defmethod handle-request ((api api) request)
(let* ((data (parse-request request)) (flet ((handle-fun ()
(type (getf data :type))) (let* ((data (parse-request request))
(cond (type (getf data :type)))
((equal type "new-game") (handle-new-game api data)) (cond
((equal type "update") (handle-update api data)) ((equal type "new-game") (handle-new-game api data))
(t (format t "Unknow type"))))) ((equal type "update") (handle-update api data))
(t (format t "Unknow type"))))))
(handler-case
(handle-fun)
(t (c)
(format t "Got an exception: ~a~%" c)
"Bad request"))))