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

9
server/api/api.lisp
View file

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