1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index 2211e0f2..03207e06 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -632,7 +632,7 @@ freshCryptoSession  sessions
    ncPingMachine0 <- newTVar Nothing
    ncPingThread0 <- newTVar Nothing
    ncIdleEventThread0 <- newTVar Nothing
-    ncRequestInterval0 <- newTVar 2000 -- (TODO: shrink this) long interval while debugging slows trace flood
+    ncRequestInterval0 <- newTVar 7000 -- (TODO: shrink this) long interval while debugging slows trace flood
    ncAliveInterval0 <- newTVar 8000 -- 8 seconds
    -- ping Machine parameters
    fuzz <- return 0 -- randomRIO (0,2000) -- Fuzz to prevent simultaneous ping/pong exchanges.

diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs index 2211e0f2..03207e06 100644 --- a/src/Network/Tox/Crypto/Handlers.hs +++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -632,7 +632,7 @@ freshCryptoSession sessions
632	ncPingMachine0 <- newTVar Nothing	632	ncPingMachine0 <- newTVar Nothing
633	ncPingThread0 <- newTVar Nothing	633	ncPingThread0 <- newTVar Nothing
634	ncIdleEventThread0 <- newTVar Nothing	634	ncIdleEventThread0 <- newTVar Nothing
635	ncRequestInterval0 <- newTVar 2000 -- (TODO: shrink this) long interval while debugging slows trace flood	635	ncRequestInterval0 <- newTVar 7000 -- (TODO: shrink this) long interval while debugging slows trace flood
636	ncAliveInterval0 <- newTVar 8000 -- 8 seconds	636	ncAliveInterval0 <- newTVar 8000 -- 8 seconds
637	-- ping Machine parameters	637	-- ping Machine parameters
638	fuzz <- return 0 -- randomRIO (0,2000) -- Fuzz to prevent simultaneous ping/pong exchanges.	638	fuzz <- return 0 -- randomRIO (0,2000) -- Fuzz to prevent simultaneous ping/pong exchanges.