ncAllSessions

1 files changed, 4 insertions, 0 deletions

diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index e1a44930..95ba7217 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -42,6 +42,9 @@ data NetCryptoSession = NCrypto { ncState         :: TVar NetCryptoSessionStatus
                                 , ncSockAddr      :: SockAddr
                                 , ncHooks         :: TVar (Map.Map MessageType [NetCryptoHook])
                                 , ncUnrecognizedHook :: TVar (MessageType -> NetCryptoHook)
+                                , ncAllSessions :: NetCryptoSessions -- ^ may be needed if one net-crypto session
+                                                                     --   needs to possibly start another, as is
+                                                                     --   the case in group chats
                                 }
 
 data NetCryptoSessions = NCSessions { netCryptoSessions :: TVar (Map.Map SockAddr NetCryptoSession)
@@ -145,6 +148,7 @@ cryptoNetHandler sessions addr (NetHandshake (Handshake (Cookie n24 ecookie) non
                                     , ncSockAddr      = addr
                                     , ncHooks         = ncHooks0
                                     , ncUnrecognizedHook = ncUnrecognizedHook0
+                                    , ncAllSessions = sessions
                                     }
                     atomically $ modifyTVar allsessions (Map.insert addr netCryptoSession)
     return Nothing