summaryrefslogtreecommitdiff
path: root/src/Network/Tox/Crypto/Handlers.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/Tox/Crypto/Handlers.hs')
-rw-r--r--src/Network/Tox/Crypto/Handlers.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index 44b2f26f..2f22993f 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -609,7 +609,7 @@ freshCryptoSession sessions
609 dmsg $ "freshCryptoSession: Session ncTheirBaseNonce=" ++ show theirbasenonce 609 dmsg $ "freshCryptoSession: Session ncTheirBaseNonce=" ++ show theirbasenonce
610 dmsg $ "freshCryptoSession: My Session Public =" ++ show (key2id $ toPublic newsession) 610 dmsg $ "freshCryptoSession: My Session Public =" ++ show (key2id $ toPublic newsession)
611 ncTheirSessionPublic0 <- newTVar (frmMaybe mbtheirSessionKey) 611 ncTheirSessionPublic0 <- newTVar (frmMaybe mbtheirSessionKey)
612 ncRequestInterval0 <- newTVar 250000 -- quarter of a second 612 ncRequestInterval0 <- newTVar 2000000 -- (TODO: shrink this) long interval while debugging slows trace flood
613 ncRequestThread0 <- newTVar Nothing 613 ncRequestThread0 <- newTVar Nothing
614 ncDequeueThread0 <- newTVar Nothing 614 ncDequeueThread0 <- newTVar Nothing
615 ncDequeueOutGoingThread0 <- newTVar Nothing 615 ncDequeueOutGoingThread0 <- newTVar Nothing