diff options
Diffstat (limited to 'src/Network/Tox/Crypto/Handlers.hs')
| -rw-r--r-- | src/Network/Tox/Crypto/Handlers.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs index 282a7dce..d5a49816 100644 --- a/src/Network/Tox/Crypto/Handlers.hs +++ b/src/Network/Tox/Crypto/Handlers.hs | |||
| @@ -511,8 +511,8 @@ ncToWire getState seqno bufend pktno msg = do | |||
| 511 | GrpMsg KnownLossless _ -> Lossless | 511 | GrpMsg KnownLossless _ -> Lossless |
| 512 | (state,n24,msgOutMapVar) <- getState | 512 | (state,n24,msgOutMapVar) <- getState |
| 513 | -- msgOutMap <- readTVar msgOutMapVar | 513 | -- msgOutMap <- readTVar msgOutMapVar |
| 514 | result1 <- dtrace XNetCrypto ("lookupInRangeMap typ64=" ++ show typ64) | 514 | result1 <- dtrace XNetCrypto ("lookupInRangeMap typ64=" ++ show typ64 ++ " " ++ show typ ++ show msg) |
| 515 | $ lookupInRangeMap typ64 msgOutMapVar | 515 | $ lookupInRangeMap typ64 msgOutMapVar |
| 516 | case result1 of -- msgOutMapLookup typ64 msgOutMap of | 516 | case result1 of -- msgOutMapLookup typ64 msgOutMap of |
| 517 | Nothing -> dtrace XNetCrypto "lookupInRangeMap gave Nothing!" $ return Nothing | 517 | Nothing -> dtrace XNetCrypto "lookupInRangeMap gave Nothing!" $ return Nothing |
| 518 | Just outid -> dtrace XNetCrypto ("encrypting packet with Nonce: " ++ show n24) $ do | 518 | Just outid -> dtrace XNetCrypto ("encrypting packet with Nonce: " ++ show n24) $ do |