syndicate-lang
/
minimart-2014
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Attempt at better error handling in websocket server

This commit is contained in:
Tony Garnock-Jones 2014-08-09 22:45:09 -07:00
parent 7ab3f61ef9
commit f189dfdf4f
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
minimart/drivers/websocket.rkt
View File

@ -90,7 +90,9 @@
never-evt
(handle-evt c-input-port
(lambda (dummy)
(define msg (ws-recv c #:payload-type 'text))
(define msg
(with-handlers ([exn:fail:network? (lambda (e) eof)])
(ws-recv c #:payload-type 'text)))
(send-ground-message (websocket-incoming-message id msg))
(loop (or blocked? (eof-object? msg))))))))
(ws-close! c))
@ -120,7 +122,7 @@
(define c (ws-connect (string->url url)))
(define control-ch (make-channel))
(define id (gensym 'ws))
(thread (lambda ()(connection-thread-loop control-ch c id)))
(thread (lambda () (connection-thread-loop control-ch c id)))
(spawn-connection local-addr remote-addr id c control-ch))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;