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
 import Data.HashMap.Strict (HashMap)
 import qualified Data.Map.Strict as Map
 import Control.Concurrent (threadDelay)
+import DPut
 
 
 newCrypto :: IO TransportCrypto
@@ -321,6 +322,7 @@ netCryptoWithBackoff millisecs tox myseckey theirpubkey = do
                                         , hpTheirSessionKeyPublic = error "netCrypto: Unreachable! hpTheirSessionKeyPublic"
                                         }
                         n24' <- atomically $ transportNewNonce crypto
+                        dput XNetCrypto ("Handshake Nonce24: " <> show n24')
                         state <- lookupSharedSecret crypto myseckey theirDhtKey n24'
                         newBaseNonce <- atomically $ transportNewNonce crypto
                         mbMyhandshakeData <- newHandShakeData crypto newBaseNonce hp saddr