From 187e6a58a7b2a3af3f16dab737c485c886f87917 Mon Sep 17 00:00:00 2001 From: joe Date: Tue, 26 Jun 2018 04:34:44 -0400 Subject: debug prints --- src/Network/Tox/Crypto/Handlers.hs | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) (limited to 'src/Network') diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs index 4d34701a..6f440ea5 100644 --- a/src/Network/Tox/Crypto/Handlers.hs +++ b/src/Network/Tox/Crypto/Handlers.hs @@ -1083,12 +1083,6 @@ sessionPacketH sessions addrRaw (CryptoPacket nonce16 encrypted) = do lr <- fmap join $ sequence $ do -- Either Monad -- pubkey <- maybeToEither mbpublickey Right $ do -- IO Monad - dput XNetCrypto $ "(NetCrypto)sessionPacketH: pubkey = " ++ show (key2id $ pubkey) - dput XNetCrypto $ "(NetCrypto)sessionPacketH: theirBaseNonce = " ++ show theirBaseNonce - dput XNetCrypto $ "(NetCrypto)sessionPacketH: tempNonce = " ++ show tempNonce - ++ " nonce16=" ++ printf "0x%x" nonce16 ++ " last2bytes =" ++ printf "0x%x" (last2Bytes theirBaseNonce) - dput XNetCrypto $ "(NetCrypto)sessionPacketH: mySession public=" ++ show (key2id $ toPublic ncSessionSecret) - dput XNetCrypto $ "(NetCrypto)sessionPacketH: theirSession public=" ++ show (key2id $ pubkey) secret <- lookupSharedSecret crypto ncSessionSecret pubkey tempNonce let step1 = decrypt secret encrypted case step1 of @@ -1476,6 +1470,7 @@ handlePacketRequest session (CryptoData { bufferStart=num ps <- atomically $ PQ.getRequested getOutGoingParam pktoq num bs let resend (Just (n,pkt)) = sendSessionPacket (ncAllSessions session) addr pkt resend _ = return () + dput XNetCrypto ("Re-Sending Packets: " ++ show (map fst $ catMaybes ps)) mapM_ resend ps _ -> return () -- cgit v1.2.3