diff options
Diffstat (limited to 'src/Network/Tox/Crypto/Handlers.hs')
| -rw-r--r-- | src/Network/Tox/Crypto/Handlers.hs | 2 |
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 |