fix backoff, and more debug prints

1 files changed, 3 insertions, 1 deletions

diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index 486ee076..caf35a28 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -18,6 +18,7 @@ import Control.Applicative
 import Control.Monad
 import Data.Time.Clock.POSIX
 import qualified Data.ByteString  as B
+import System.IO
 import Data.ByteString (ByteString)
 import Control.Lens
 import Data.Function
@@ -492,6 +493,7 @@ updateCryptoSession sessions addr hp session = do
 
 cryptoNetHandler :: NetCryptoSessions -> SockAddr -> NetCrypto -> IO (Maybe (NetCrypto -> NetCrypto))
 cryptoNetHandler sessions addr (NetHandshake (Handshake (Cookie n24 ecookie) nonce24 encrypted)) = do
+    hPutStrLn stderr ("RECIEVED HANDSHAKE from " ++ show addr)
     -- Handle Handshake Message
     let crypto = transportCrypto sessions
         allsessions = netCryptoSessions sessions
@@ -529,7 +531,7 @@ cryptoNetHandler sessions addr (NetHandshake (Handshake (Cookie n24 ecookie) non
                 , hpCookieRemoteDhtkey    = remoteDhtkey
                 }
     case lr of
-        Left _ -> return ()
+        Left s -> hPutStrLn stderr ("cryptoNetHandler: " ++ s)
         Right hp@(HParam
                       { hpTheirBaseNonce        = Just theirBaseNonce
                       , hpOtherCookie           = otherCookie