TODO comments regarding ncStoredRequests

        * In the case that the session seems to lock up,
          the packet requests could be (re-)handled without
          sorting. Just in case both sides are waiting
          on a missing packet.

1 files changed, 5 insertions, 0 deletions

diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index 2f22993f..c43542b1 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -344,6 +344,9 @@ data NetCryptoSession = NCrypto
     -- helps ensure lossless packets are processed in order
     , ncRequestInterval    :: TVar Int
     -- ^ How long (in microseconds) to wait between packet requests
+ -- , ncStoredRequests    :: CyclicBuffer CryptoData
+    -- ^ Store the last 5 packet requests, try handling in any order
+    --   if the connection seems like it is locked (TODO)
     , ncRequestThread      :: TVar (Maybe ThreadId)
     -- ^ thread which sends packet requests
     , ncDequeueThread      :: TVar (Maybe ThreadId)
@@ -602,6 +605,7 @@ freshCryptoSession  sessions
          Just theirSessionKey -> createNetCryptoOutQueue sessions newsession theirSessionKey pktq ncMyPacketNonce0 ncOutgoingIdMap0
     mbpktoqVar <- newTVar mbpktoq
     lastNQ <- CB.new 10 0 :: STM (CyclicBuffer (Bool,(ViewSnapshot,InOrOut CryptoMessage)))
+ -- ncStoredRequests0 <- CB.new 5 0 :: STM (CyclicBuffer CryptoData)
     listeners <- newTVar IntMap.empty
     msgNum <- newTVar 0
     dropNum <- newTVar 0
@@ -637,6 +641,7 @@ freshCryptoSession  sessions
                     , ncOutgoingIdMapEscapedLossless = losslessEscapeIdMap
                     , ncView               = ncView0
                     , ncPacketQueue        = pktq
+                 -- , ncStoredRequests     = ncStoredRequests0 (TODO)
                     , ncRequestInterval    = ncRequestInterval0
                     , ncRequestThread         = ncRequestThread0
                     , ncDequeueThread         = ncDequeueThread0