Don't swallow exceptions in a websocket connection
This commit is contained in:
parent
81d2ddedbb
commit
5bd30db9b0
|
@ -139,7 +139,9 @@
|
||||||
|
|
||||||
(define (websocket-connection e state)
|
(define (websocket-connection e state)
|
||||||
(with-handlers [((lambda (exn) #t)
|
(with-handlers [((lambda (exn) #t)
|
||||||
(lambda (exn) (shutdown-connection state)))]
|
(lambda (exn)
|
||||||
|
(shutdown-connection state)
|
||||||
|
(raise exn)))]
|
||||||
(match e
|
(match e
|
||||||
[(message (websocket-incoming-message _ m) 1 #f)
|
[(message (websocket-incoming-message _ m) 1 #f)
|
||||||
(if (eof-object? m)
|
(if (eof-object? m)
|
||||||
|
|
Loading…
Reference in New Issue