diff options
| author | Joey Hess <joeyh@joeyh.name> | 2017-04-24 14:13:03 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-04-24 14:13:03 -0400 |
| commit | 50da1dee420cc6071fe8697de25df49142cce8d5 (patch) | |
| tree | 83a0cb64f74d6a6c4c7e8f35dbc2725dde507782 /WebSockets.hs | |
| parent | a6180f446dc97de56a2ed2e117c3be196d76f20b (diff) | |
| download | debug-me-50da1dee420cc6071fe8697de25df49142cce8d5.tar.gz | |
30 second ping thread
Diffstat (limited to 'WebSockets.hs')
| -rw-r--r-- | WebSockets.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/WebSockets.hs b/WebSockets.hs index c463c28..4b05fdb 100644 --- a/WebSockets.hs +++ b/WebSockets.hs @@ -55,6 +55,8 @@ clientApp -> (TChan sent -> TChan received -> SessionID -> IO a) -> ClientApp a clientApp mode mksent filterreceived a conn = do + -- Ping every 30 seconds to avoid timeouts caused by proxies etc. + forkPingThread conn 30 _v <- negotiateWireVersion conn sendBinaryData conn (SelectMode ClientSends mode) r <- receiveData conn |