addSessinToMap (dead code for now, used for debugging)

1 files changed, 15 insertions, 0 deletions

diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index e22388a3..2fc12559 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -589,6 +589,7 @@ freshCryptoSession  sessions
                     , ncLastNMsgs          = lastNQ
                     , ncListeners          = listeners
                     }
+    -- addSessionToMap sessions addr netCryptoSession0
     addSessionToMapIfNotThere sessions addr netCryptoSession0
     maybeLaunchMissles
         <- case mbpktoq of
@@ -618,6 +619,20 @@ createNetCryptoOutQueue sessions newsession theirSessionKey pktq ncMyPacketNonce
             pktoq <- PQ.newOutGoing pktq ncToWire toWireIO 0 (outboundQueueCapacity sessions) 0
             return (HaveHandshake pktoq)
 
+-- | add new session to the lookup maps
+addSessionToMap :: NetCryptoSessions -> SockAddr -> NetCryptoSession -> STM ()
+addSessionToMap sessions addrRaw netCryptoSession = do
+    let addr = either id id $ either4or6 addrRaw
+    let dmsg msg = trace msg (return ())
+    dmsg $ "addSessionToMapIfNotThere sockaddr = " ++ show addr ++ ", sessionid = " ++ show (ncSessionId netCryptoSession)
+    let remotePublicKey = ncTheirPublicKey netCryptoSession
+        allsessions     = netCryptoSessions sessions
+        allsessionsByKey= netCryptoSessionsByKey sessions
+    byAddrResult <- readTVar allsessions >>= return . Map.lookup addr
+    mp <- readTVar allsessionsByKey
+    modifyTVar allsessions      (Map.insert addr netCryptoSession)
+    modifyTVar allsessionsByKey (Map.insertWith (++) remotePublicKey [netCryptoSession])
+
 -- | add this session to the lookup maps, overwrite if its already in them
 addSessionToMapIfNotThere :: NetCryptoSessions -> SockAddr -> NetCryptoSession -> STM ()
 addSessionToMapIfNotThere sessions addrRaw netCryptoSession = do