From 24fc5b3077dc8ea810a7b1d6c685a29c26562ad7 Mon Sep 17 00:00:00 2001
From: James Crayne <jim.crayne@gmail.com>
Date: Tue, 29 May 2018 06:59:11 +0000
Subject: handshake nonce debug prints

---
 src/Network/Tox.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/Network/Tox.hs')

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
-- 
cgit v1.2.3