Close input/output ports in web.rkt once connection is logically over
This commit is contained in:
parent
8899807216
commit
81034e017e
|
@ -285,6 +285,8 @@
|
||||||
(output-response/method conn resp (request-method req))
|
(output-response/method conn resp (request-method req))
|
||||||
(when (not should-close?)
|
(when (not should-close?)
|
||||||
(do-request))])))))
|
(do-request))])))))
|
||||||
|
(with-handlers ([exn:fail? (lambda (e) (values #f #f))]) (close-input-port i))
|
||||||
|
(with-handlers ([exn:fail? (lambda (e) (values #f #f))]) (close-output-port o))
|
||||||
(signal-background-activity! -1))))
|
(signal-background-activity! -1))))
|
||||||
|
|
||||||
(define ((websocket-connection-main id ws-ch) wsc _ws-connection-state)
|
(define ((websocket-connection-main id ws-ch) wsc _ws-connection-state)
|
||||||
|
|
Loading…
Reference in New Issue