Quieter decryption of tox handshake.

1 files changed, 6 insertions, 6 deletions

diff --git a/src/Network/Tox/Handshake.hs b/src/Network/Tox/Handshake.hs
index c51f6369..0ca99fe2 100644
--- a/src/Network/Tox/Handshake.hs
+++ b/src/Network/Tox/Handshake.hs
@@ -34,25 +34,25 @@ decryptHandshake crypto hshake@(Handshake (Cookie n24 ecookie) nonce24 encrypted
     (ukeys,symkey) <- atomically $ (,) <$> userKeys crypto
                                        <*> transportSymmetric crypto
     let seckeys = map fst ukeys
-    dput XNetCrypto "decryptHandshake: trying the following keys:"
     now <- getPOSIXTime
-    forM_ seckeys $ \k -> dput XNetCrypto $ "  " ++ show (key2id . toPublic $ k)
+    -- dput XNetCrypto "decryptHandshake: trying the following keys:"
+    -- forM_ seckeys $ \k -> dput XNetCrypto $ "  " ++ show (key2id . toPublic $ k)
     fmap join . sequence $ do -- Either Monad
             cd@(CookieData cookieTime remotePubkey remoteDhtkey) <- decodePlain =<< decryptSymmetric symkey n24 ecookie
             Right $ do -- IO Monad
             decrypted <- anyRight "missing key" seckeys $ \key -> do
-                            dput XNetCrypto $ "(NetCrypto)handshakeH: remotePubkey =  " ++ show (key2id $ remotePubkey)
-                            dput XNetCrypto $ "(NetCrypto)handshakeH: nonce24 =  " ++ show nonce24
+                            -- dput XNetCrypto $ "(NetCrypto)handshakeH: remotePubkey =  " ++ show (key2id $ remotePubkey)
+                            -- dput XNetCrypto $ "(NetCrypto)handshakeH: nonce24 =  " ++ show nonce24
                             secret <- lookupSharedSecret crypto key remotePubkey nonce24
                             let step1 = decrypt secret encrypted
                             case step1 of
                                 Left s -> do
-                                    dput XNetCrypto $ "(NetCrypto)handshakeH: (decrypt) " ++ s
+                                    -- dput XNetCrypto $ "(NetCrypto)handshakeH: (decrypt) " ++ s
                                     return (Left s)
                                 Right pln -> do
                                     case decodePlain pln of
                                         Left s -> do
-                                            dput XNetCrypto $ "(NetCrypto)handshakeH: (decodePlain) " ++ s
+                                            -- dput XNetCrypto $ "(NetCrypto)handshakeH: (decodePlain) " ++ s
                                             return (Left s)
                                         Right x -> return (Right (key,x))
             return $ do -- Either Monad