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

fix exports

Browse Source
This commit is contained in:
tolysz 2014-07-14 12:14:01 +01:00
parent 50728f6b59
commit 65c0bd5c64
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6,8 +6,15 @@ module Yesod.WebSockets
WebSocketsT WebSocketsT
, webSockets , webSockets
, receiveData , receiveData
, receiveDataX
, sendPing
, sendPingX
, sendClose
, sendCloseX
, sendTextData , sendTextData
, sendTextDataX
, sendBinaryData , sendBinaryData
, sendBinaryDataX
-- * Conduit API -- * Conduit API
, sourceWS , sourceWS
, sinkWSText , sinkWSText
@ -92,6 +99,13 @@ sendTextDataX ex x = ReaderT $ \c -> liftIO $ (flip WS.sendTextData x $ c) `E.ca
sendBinaryData :: (MonadIO m, WS.WebSocketsData a) => a -> WebSocketsT m () sendBinaryData :: (MonadIO m, WS.WebSocketsData a) => a -> WebSocketsT m ()
sendBinaryData x = ReaderT $ liftIO . flip WS.sendBinaryData x 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 ex x = ReaderT $ \c -> liftIO $ (flip WS.sendBinaryData x $ c) `E.catch` (\(_ :: E.SomeException) -> ex)
-- | Send a ping message to the client. -- | Send a ping message to the client.
-- --
-- Since 0.1.1.3 -- Since 0.1.1.3