Show instance for SymmetricKey, more debug prints

2 files changed, 2 insertions, 0 deletions

diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index 2902685c..5a52450b 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -545,6 +545,7 @@ cryptoNetHandler sessions addr (NetHandshake (Handshake (Cookie n24 ecookie) non
     seckeys <- map fst <$> atomically (readTVar (userKeys crypto))
     symkey <- atomically $ transportSymmetric crypto
     now <- getPOSIXTime
+    hPutStrLn stderr ("Decrypt cookie with n24=" ++ show n24 ++ "\n    symkey= " ++ show symkey)
     lr <- fmap join . sequence $ do -- Either Monad
             -- TODO: XXX: FIXME:
             --            The following call to decryptSymmetric is failing every time,
diff --git a/src/Network/Tox/DHT/Handlers.hs b/src/Network/Tox/DHT/Handlers.hs
index 327659a9..42937b89 100644
--- a/src/Network/Tox/DHT/Handlers.hs
+++ b/src/Network/Tox/DHT/Handlers.hs
@@ -231,6 +231,7 @@ createCookie crypto ni remoteUserKey = do
             , dhtKey      = transportPublic crypto
             }
         edta = encryptSymmetric sym n24 dta
+    hPutStrLn stderr $ "Created cookie with n24 = 0x" ++ show n24 ++ "\n    sym=" ++ show sym
     return $ Cookie n24 edta
 
 cookieRequestH :: TransportCrypto -> NodeInfo -> CookieRequest -> IO Cookie