-- Gracefully close the connection and mask the default printout
exnHandler :: WS.Connection -> SomeException -> IO ()
exnHandler conn _ = WS.sendClose conn L.empty
exnHandler :: WS.Connection -> SomeException -> IO ()
exnHandler conn _ = WS.sendClose conn L.empty
exnHandler conn _ = WS.sendClose conn L.empty