Don't swallow exceptions in a websocket connection

2014-08-10 13:23:56 -07:00 · 2014-08-10 13:23:56 -07:00 · 5bd30db9b0
parent 81d2ddedbb
commit 5bd30db9b0
1 changed files with 3 additions and 1 deletions
--- 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)