diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Network/Tox/Crypto/Handlers.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs index 13ee0ed2..4f53888b 100644 --- a/src/Network/Tox/Crypto/Handlers.hs +++ b/src/Network/Tox/Crypto/Handlers.hs | |||
| @@ -331,7 +331,8 @@ freshCryptoSession sessions | |||
| 331 | ncHooks0 <- atomically $ newTVar (defaultHooks sessions) | 331 | ncHooks0 <- atomically $ newTVar (defaultHooks sessions) |
| 332 | ncUnrecognizedHook0 <- atomically $ newTVar (defaultUnrecognizedHook sessions) | 332 | ncUnrecognizedHook0 <- atomically $ newTVar (defaultUnrecognizedHook sessions) |
| 333 | ncIncomingTypeArray0 <- atomically $ newTVar (msgTypeArray sessions) | 333 | ncIncomingTypeArray0 <- atomically $ newTVar (msgTypeArray sessions) |
| 334 | ncOutgoingIdMap0 <- atomically $ newTVar W64.empty | 334 | let idMap = foldl (\mp (x,y) -> W64.insert x y mp) W64.empty (zip [0..255] [0..255]) |
| 335 | ncOutgoingIdMap0 <- atomically $ newTVar idMap | ||
| 335 | ncView0 <- atomically $ newTVar (sessionView sessions) | 336 | ncView0 <- atomically $ newTVar (sessionView sessions) |
| 336 | pktq <- atomically $ PQ.new (inboundQueueCapacity sessions) 0 | 337 | pktq <- atomically $ PQ.new (inboundQueueCapacity sessions) 0 |
| 337 | bufstart <- atomically $ newTVar 0 | 338 | bufstart <- atomically $ newTVar 0 |