diff options
author | James Crayne <jim.crayne@gmail.com> | 2018-05-29 06:59:11 +0000 |
---|---|---|
committer | James Crayne <jim.crayne@gmail.com> | 2018-05-29 06:59:11 +0000 |
commit | 24fc5b3077dc8ea810a7b1d6c685a29c26562ad7 (patch) | |
tree | 9f884aa3ddf2898bcc75684cb620e30e62dd3844 /src/Network/Tox.hs | |
parent | bef702cf30f1386a5ad11abaee6f37f6e496138f (diff) |
handshake nonce debug prints
Diffstat (limited to 'src/Network/Tox.hs')
-rw-r--r-- | src/Network/Tox.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs index 69982c81..5ad9c041 100644 --- a/src/Network/Tox.hs +++ b/src/Network/Tox.hs | |||
@@ -112,6 +112,7 @@ import qualified Data.HashMap.Strict as HashMap | |||
112 | import Data.HashMap.Strict (HashMap) | 112 | import Data.HashMap.Strict (HashMap) |
113 | import qualified Data.Map.Strict as Map | 113 | import qualified Data.Map.Strict as Map |
114 | import Control.Concurrent (threadDelay) | 114 | import Control.Concurrent (threadDelay) |
115 | import DPut | ||
115 | 116 | ||
116 | 117 | ||
117 | newCrypto :: IO TransportCrypto | 118 | newCrypto :: IO TransportCrypto |
@@ -321,6 +322,7 @@ netCryptoWithBackoff millisecs tox myseckey theirpubkey = do | |||
321 | , hpTheirSessionKeyPublic = error "netCrypto: Unreachable! hpTheirSessionKeyPublic" | 322 | , hpTheirSessionKeyPublic = error "netCrypto: Unreachable! hpTheirSessionKeyPublic" |
322 | } | 323 | } |
323 | n24' <- atomically $ transportNewNonce crypto | 324 | n24' <- atomically $ transportNewNonce crypto |
325 | dput XNetCrypto ("Handshake Nonce24: " <> show n24') | ||
324 | state <- lookupSharedSecret crypto myseckey theirDhtKey n24' | 326 | state <- lookupSharedSecret crypto myseckey theirDhtKey n24' |
325 | newBaseNonce <- atomically $ transportNewNonce crypto | 327 | newBaseNonce <- atomically $ transportNewNonce crypto |
326 | mbMyhandshakeData <- newHandShakeData crypto newBaseNonce hp saddr | 328 | mbMyhandshakeData <- newHandShakeData crypto newBaseNonce hp saddr |