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

Version bump

Browse Source
This commit is contained in:
Michael Snoyman 2015-07-23 06:18:37 +03:00
parent e023c769ee
commit 8893393ec9
3 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod-websockets/ChangeLog.md
View File

@ -1,3 +1,7 @@
## 0.2.3
* `receiveDataMessageE` and `sendDataMessageE`
## 0.2.2 ## 0.2.2
* Add exceptional websocket commands [#772](https://github.com/yesodweb/yesod/pull/772) * Add exceptional websocket commands [#772](https://github.com/yesodweb/yesod/pull/772)

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

@ -7,7 +7,7 @@ module Yesod.WebSockets
, webSockets , webSockets
, receiveData , receiveData
, receiveDataE , receiveDataE
, sendDataMessageE , receiveDataMessageE
, sendPing , sendPing
, sendPingE , sendPingE
, sendClose , sendClose
@ -91,7 +91,7 @@ receiveDataE = ReaderT $ liftIO . tryAny . WS.receiveData
-- | Receive an application message. -- | Receive an application message.
-- Capture SomeException as the result or operation -- Capture SomeException as the result or operation
-- Since 0.2.2 -- Since 0.2.3
receiveDataMessageE :: (MonadIO m) => WebSocketsT m (Either SomeException WS.DataMessage) receiveDataMessageE :: (MonadIO m) => WebSocketsT m (Either SomeException WS.DataMessage)
receiveDataMessageE = ReaderT $ liftIO . tryAny . WS.receiveDataMessage receiveDataMessageE = ReaderT $ liftIO . tryAny . WS.receiveDataMessage
@ -135,7 +135,7 @@ sendPingE = wrapWSE WS.sendPing
-- | Send a DataMessage to the client. -- | Send a DataMessage to the client.
-- Capture SomeException as the result of operation -- Capture SomeException as the result of operation
-- Since 0.2.2 -- Since 0.2.3
sendDataMessageE :: (MonadIO m) => WS.DataMessage -> WebSocketsT m (Either SomeException ()) sendDataMessageE :: (MonadIO m) => WS.DataMessage -> WebSocketsT m (Either SomeException ())
sendDataMessageE x = ReaderT $ liftIO . tryAny . (`WS.sendDataMessage` x) sendDataMessageE x = ReaderT $ liftIO . tryAny . (`WS.sendDataMessage` x)

2
yesod-websockets/yesod-websockets.cabal
View File

@ -1,5 +1,5 @@
name: yesod-websockets name: yesod-websockets
version: 0.2.2 version: 0.2.3
synopsis: WebSockets support for Yesod synopsis: WebSockets support for Yesod
description: WebSockets support for Yesod description: WebSockets support for Yesod
homepage: https://github.com/yesodweb/yesod homepage: https://github.com/yesodweb/yesod