handle packet requests immediately

1 files changed, 5 insertions, 4 deletions

diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index 85e6192a..4d34701a 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -481,7 +481,7 @@ newSessionsState crypto destroyHook unrechook hooks = do
                       , transportCrypto         = crypto
                       , defaultHooks            = hooks
                       , defaultUnrecognizedHook = unrechook
-                      , defaultIdleEventHooks   = [(0,handleRequestsOutOfOrder)]
+                      , defaultIdleEventHooks   = [] -- [(0,handleRequestsOutOfOrder)]
                       , defaultDestroyHook      = [(0,destroyHook)]
                       , sessionView             = SessionView
                             { svNick        = nick
@@ -1145,9 +1145,10 @@ sessionPacketH sessions addrRaw (CryptoPacket nonce16 encrypted) = do
                                     dput XNetCrypto $ "NetCrypto Recieved PING (session " ++ show ncSessionId ++")"
                                 when (msgID cm == PacketRequest) $ do
                                      dput XNetCrypto $ "PACKETREquest: " ++ showCryptoMsg bufferEnd cm
-                                     atomically $ do
-                                        num <- CB.getNextSequenceNum ncStoredRequests
-                                        CB.enqueue ncStoredRequests num cd
+                                  -- atomically $ do
+                                  --    num <- CB.getNextSequenceNum ncStoredRequests
+                                  --    CB.enqueue ncStoredRequests num cd
+                                     handlePacketRequest session cd
                                 atomically $ PQ.enqueue ncPacketQueue bufferEnd cd
                                 return Nothing
     where