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

Keep client connections alive using Network.WebSocket.forkPingThread.

Browse Source
This commit is contained in:
Christopher Reichert 2014-12-14 14:05:15 -06:00
parent 9d748b2c35
commit 595ee70386
2 changed files with 2 additions and 4 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

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

@ -1,6 +1,3 @@
-- 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.0
synopsis: WebSockets support for Yesod synopsis: WebSockets support for Yesod
@ -22,7 +19,7 @@ library
, wai , wai
, wai-websockets >= 2.1 , wai-websockets >= 2.1
, websockets >= 0.8 , websockets >= 0.9.2
, transformers >= 0.2 , transformers >= 0.2
, yesod-core >= 1.4 , yesod-core >= 1.4
, monad-control >= 0.3 , monad-control >= 0.3