diff options
Diffstat (limited to 'src/Network')
-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 [] |