diff options
| -rw-r--r-- | src/Network/Tox.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs index 7ee4dbe0..66a19097 100644 --- a/src/Network/Tox.hs +++ b/src/Network/Tox.hs | |||
| @@ -346,7 +346,8 @@ netCryptoWithBackoff millisecs tox myseckey theirpubkey = do | |||
| 346 | then do | 346 | then do |
| 347 | hPutStrLn stderr $ "sent handshake, now delaying " ++ show (secnum * 1.25) ++ " second(s).." | 347 | hPutStrLn stderr $ "sent handshake, now delaying " ++ show (secnum * 1.25) ++ " second(s).." |
| 348 | threadDelay delay | 348 | threadDelay delay |
| 349 | netCryptoWithBackoff delay tox myseckey theirpubkey -- hopefully it will find an active session this time. | 349 | -- Commenting loop for simpler debugging |
| 350 | return [] -- netCryptoWithBackoff delay tox myseckey theirpubkey -- hopefully it will find an active session this time. | ||
| 350 | else do | 351 | else do |
| 351 | hPutStrLn stderr "Unable to establish session..." | 352 | hPutStrLn stderr "Unable to establish session..." |
| 352 | return [] | 353 | return [] |