haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

copy and paste

Browse Source
This commit is contained in:
tolysz 2014-07-14 12:41:37 +01:00
parent 56da66d937
commit 038c94d1cf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
yesod-websockets/Yesod/WebSockets.hs
View File

@ -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)