From 038c94d1cf124c52ac1984f9fa35198a3c1389b7 Mon Sep 17 00:00:00 2001 From: tolysz Date: Mon, 14 Jul 2014 12:41:37 +0100 Subject: [PATCH] copy and paste --- yesod-websockets/Yesod/WebSockets.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/yesod-websockets/Yesod/WebSockets.hs b/yesod-websockets/Yesod/WebSockets.hs index 8046f875..0f6cff7e 100644 --- a/yesod-websockets/Yesod/WebSockets.hs +++ b/yesod-websockets/Yesod/WebSockets.hs @@ -103,7 +103,7 @@ sendBinaryData x = ReaderT $ liftIO . flip WS.sendBinaryData x -- | Send a binary message to the client. -- Execute IO () action on WebSocket Exception -- Since 0.1.1.3 -sendBinaryDataX :: (MonadIO m, WS.WebSocketsData a) => a -> WebSocketsT m () +sendBinaryDataX :: (MonadIO m, WS.WebSocketsData a) => IO () -> a -> WebSocketsT m () sendBinaryDataX ex x = ReaderT $ \c -> liftIO $ (flip WS.sendBinaryData x $ c) `E.catch` (\(_ :: E.SomeException) -> ex)