debug prints

1 files changed, 1 insertions, 6 deletions

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 ()