missing ncGroups initialization

1 files changed, 2 insertions, 0 deletions

diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index 8a0e3fd9..34d2d87e 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -139,6 +139,7 @@ cryptoNetHandler sessions addr (NetHandshake (Handshake (Cookie n24 ecookie) non
                     newsession <- generateSecretKey
                     ncHooks0 <- atomically $ newTVar (defaultHooks sessions)
                     ncUnrecognizedHook0 <- atomically $ newTVar (defaultUnrecognizedHook sessions)
+                    ncGroups0 <- atomically $ newTVar (Map.empty)
                     let netCryptoSession = 
                             NCrypto { ncState         = ncState0
                                     , ncTheirBaseNonce= ncTheirBaseNonce0
@@ -151,6 +152,7 @@ cryptoNetHandler sessions addr (NetHandshake (Handshake (Cookie n24 ecookie) non
                                     , ncHooks         = ncHooks0
                                     , ncUnrecognizedHook = ncUnrecognizedHook0
                                     , ncAllSessions = sessions
+                                    , ncGroups = ncGroups0
                                     }
                     atomically $ modifyTVar allsessions (Map.insert addr netCryptoSession)
     return Nothing