From efc45ad4c240529913e4f7d4f0c9f880cba6c0f9 Mon Sep 17 00:00:00 2001 From: James Crayne Date: Tue, 29 May 2018 02:03:41 +0000 Subject: Show instance for SymmetricKey, more debug prints --- src/Network/Tox/Crypto/Handlers.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src/Network/Tox/Crypto') 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, -- cgit v1.2.3