diff options
| author | jim@bo <jim@bo> | 2018-06-22 17:43:41 -0400 |
|---|---|---|
| committer | jim@bo <jim@bo> | 2018-06-23 05:55:32 -0400 |
| commit | 5c42256bb4bbd97b6d179e992eb762625a8dc2b4 (patch) | |
| tree | 525893fc9fd932c99aeabd07b0b9be597f03a8d1 /src/Network/Tox/Crypto | |
| parent | f0e8ad8ff644f1f70cd7020684aca84b71f77539 (diff) | |
show msg in dtrace on outgoing
Diffstat (limited to 'src/Network/Tox/Crypto')
| -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 |