groupchat state variable

1 files changed, 2 insertions, 0 deletions

diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index 95ba7217..8a0e3fd9 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -18,6 +18,7 @@ import Data.Function
 import Data.Serialize             as S
 import Data.Word
 import GHC.Conc (unsafeIOToSTM)
+import qualified Data.Set         as Set
 
 -- util, todo: move to another module
 maybeToEither :: Maybe b -> Either String b
@@ -45,6 +46,7 @@ data NetCryptoSession = NCrypto { ncState         :: TVar NetCryptoSessionStatus
                                 , ncAllSessions :: NetCryptoSessions -- ^ may be needed if one net-crypto session
                                                                      --   needs to possibly start another, as is
                                                                      --   the case in group chats
+                                , ncGroups :: TVar (Map.Map GroupChatId (Set.Set SockAddr))
                                 }
 
 data NetCryptoSessions = NCSessions { netCryptoSessions :: TVar (Map.Map SockAddr NetCryptoSession)