ncOutGoingTypeArray, outgoing is also remappable, +fix obsolete comment

1 files changed, 4 insertions, 2 deletions

diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index 9d1da606..1911eccf 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -82,8 +82,8 @@ data NetCryptoSession = NCrypto { ncState          :: TVar NetCryptoSessionStatu
                                                                       --   otherwise the messageType, some message types
                                                                       --   may not be in ncHooks yet, but they should appear
                                                                       --   here if ncUnrecognizedHook will add them to ncHooks
-                                                                      --   on an as-need basis. On 0 entries, this Transport
-                                                                      --   will return id in case they are handled by another Transport.
+                                                                      --   on an as-need basis.
+                                , ncOutgoingTypeArray :: TVar MsgTypeArray
                                 , ncAllSessions :: NetCryptoSessions -- ^ may be needed if one net-crypto session
                                                                      --   needs to possibly start another, as is
                                                                      --   the case in group chats
@@ -247,6 +247,7 @@ freshCryptoSession  sessions
     ncHooks0 <- atomically $ newTVar (defaultHooks sessions)
     ncUnrecognizedHook0 <- atomically $ newTVar (defaultUnrecognizedHook sessions)
     ncIncomingTypeArray0 <- atomically $ newTVar (msgTypeArray sessions)
+    ncOutgoingTypeArray0 <- atomically $ newTVar allMsgTypes
     ncView0 <- atomically $ newTVar (sessionView sessions)
     pktq <- atomically $ PQ.new (inboundQueueCapacity sessions) 0
     bufstart <- atomically $ newTVar 0
@@ -266,6 +267,7 @@ freshCryptoSession  sessions
                     , ncUnrecognizedHook = ncUnrecognizedHook0
                     , ncAllSessions = sessions
                     , ncIncomingTypeArray = ncIncomingTypeArray0
+                    , ncOutgoingTypeArray = ncOutgoingTypeArray0
                     , ncView = ncView0
                     , ncPacketQueue        = pktq
                     , ncBufferStart        = bufstart