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

Merge pull request #889 from creichert/master

Browse Source 
Keep client WebSocket connections alive using Network.WebSockets.forkPingThread
This commit is contained in:
Michael Snoyman 2014-12-15 08:47:04 +02:00
commit af7b2dd230
3 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -53,6 +53,7 @@ webSockets inner = do
(WaiWS.getRequestHead req) (WaiWS.getRequestHead req)
(\pconn -> do (\pconn -> do
conn <- WS.acceptRequest pconn conn <- WS.acceptRequest pconn
WS.forkPingThread conn 30
runInIO $ runReaderT inner conn) runInIO $ runReaderT inner conn)
src src
sink sink

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

@ -1,8 +1,5 @@
-- Initial yesod-websockets.cabal generated by cabal init. For further
-- documentation, see http://haskell.org/cabal/users-guide/
name: yesod-websockets name: yesod-websockets
version: 0.2.0 version: 0.2.1
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
@ -22,7 +19,7 @@ library
, wai , wai
, wai-websockets >= 2.1 , wai-websockets >= 2.1
, websockets >= 0.8 , websockets >= 0.9
, transformers >= 0.2 , transformers >= 0.2
, yesod-core >= 1.4 , yesod-core >= 1.4
, monad-control >= 0.3 , monad-control >= 0.3