initialize ncOutgoingIdMap

1 files changed, 6 insertions, 1 deletions

diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index 364e233e..ff00bd61 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -438,7 +438,10 @@ freshCryptoSession  sessions
     ncUnrecognizedHook0 <- atomically $ newTVar (defaultUnrecognizedHook sessions)
     ncIncomingTypeArray0 <- atomically $ newTVar (msgTypeArray sessions)
     let idMap = foldl (\mp (x,y) -> W64.insert x y mp) W64.empty (zip [0..255] [0..255])
-    ncOutgoingIdMap0 <- atomically $ emptySTMRangeMap -- atomically $ newTVar idMap
+    ncOutgoingIdMap0 <- atomically $ do
+        idmap <- emptySTMRangeMap
+        insertArrayAt idmap  0 (A.listArray (0,255) [0 .. 255])
+        return idmap
     ncView0 <- atomically $ newTVar (sessionView sessions)
     pktq <- atomically $ PQ.new (inboundQueueCapacity sessions) 0
     bufstart <- atomically $ newTVar 0
@@ -748,7 +751,9 @@ sendCrypto :: TransportCrypto -> NetCryptoSession -> (STM ()) -> CryptoMessage -
 sendCrypto crypto session updateLocal cm = do
     let outq = ncOutgoingQueue session
     -- XXX: potential race? if shared secret comes out of sync with cache?
+    dput XNetCrypto "sendCrypto: enter "
     getOutGoingParam <- PQ.readyOutGoing outq
+    dput XNetCrypto "sendCrypto: got the io extra stuff"
     atomically $ do
         result <- PQ.tryAppendQueueOutgoing getOutGoingParam outq cm
         case result of