From 50da1dee420cc6071fe8697de25df49142cce8d5 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 24 Apr 2017 14:13:03 -0400 Subject: 30 second ping thread --- WebSockets.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'WebSockets.hs') 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 -- cgit v1.2.3