diff options
| author | jim@bo <jim@bo> | 2018-06-21 17:07:07 -0400 |
|---|---|---|
| committer | jim@bo <jim@bo> | 2018-06-21 17:07:07 -0400 |
| commit | 80a027b304b8f7601e377d44634311615c24de02 (patch) | |
| tree | aad287c0df004d62edabe88f6a066f3d1b76f46b /src | |
| parent | 217823867e3874cb4d3d8d619bc192aaf6c78028 (diff) | |
lengthen packet request interval while debugging
Diffstat (limited to 'src')
| -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 |