Debug print on key mismatch in cookie.

1 files changed, 3 insertions, 1 deletions

diff --git a/dht/HandshakeCache.hs b/dht/HandshakeCache.hs
index 00836fc8..6cb9c18f 100644
--- a/dht/HandshakeCache.hs
+++ b/dht/HandshakeCache.hs
@@ -61,7 +61,9 @@ getSentHandshake hscache me their_addr (Cookie n24 (Identity cd)) ecookie = do
             Nothing -> do
                 let them = longTermKey cd
                 case Multi.nodeInfo (key2id $ dhtKey cd) their_addr of
-                    Left _ -> return $ return Nothing -- Non-internet address.
+                    Left e -> return $ do
+                        dput XNetCrypto $ "getSentHandshake: " ++ show e
+                        return Nothing -- Non-internet address.
                     Right their_node -> do
                         (s,hs) <- cacheHandshakeSTM hscache me them their_node ecookie now
                         return $ do