Disconnect websocket service on error
This commit is contained in:
parent
c9b62c9a6d
commit
025f101d09
|
@ -30,7 +30,8 @@
|
||||||
(error 'server-facet/websocket "Multiple packets in a single websocket message"))
|
(error 'server-facet/websocket "Multiple packets in a single websocket message"))
|
||||||
(!! (message-poa->server id packet)))
|
(!! (message-poa->server id packet)))
|
||||||
(on (message (message-server->poa id $p))
|
(on (message (message-server->poa id $p))
|
||||||
(send! (websocket-out id (encode p)))))
|
(send! (websocket-out id (encode p)))
|
||||||
|
(when (Err? p) (stop-current-facet))))
|
||||||
|
|
||||||
(define default-http-server-port 8000)
|
(define default-http-server-port 8000)
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue