From 5bd30db9b096554e15397d111d724a14c7190d0a Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sun, 10 Aug 2014 13:23:56 -0700 Subject: [PATCH] Don't swallow exceptions in a websocket connection --- minimart/drivers/websocket.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/minimart/drivers/websocket.rkt b/minimart/drivers/websocket.rkt index 4051a79..1f85df8 100644 --- a/minimart/drivers/websocket.rkt +++ b/minimart/drivers/websocket.rkt @@ -139,7 +139,9 @@ (define (websocket-connection e state) (with-handlers [((lambda (exn) #t) - (lambda (exn) (shutdown-connection state)))] + (lambda (exn) + (shutdown-connection state) + (raise exn)))] (match e [(message (websocket-incoming-message _ m) 1 #f) (if (eof-object? m)