diff options
Diffstat (limited to 'dht/HandshakeCache.hs')
-rw-r--r-- | dht/HandshakeCache.hs | 4 |
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 | |||
61 | Nothing -> do | 61 | Nothing -> do |
62 | let them = longTermKey cd | 62 | let them = longTermKey cd |
63 | case Multi.nodeInfo (key2id $ dhtKey cd) their_addr of | 63 | case Multi.nodeInfo (key2id $ dhtKey cd) their_addr of |
64 | Left _ -> return $ return Nothing -- Non-internet address. | 64 | Left e -> return $ do |
65 | dput XNetCrypto $ "getSentHandshake: " ++ show e | ||
66 | return Nothing -- Non-internet address. | ||
65 | Right their_node -> do | 67 | Right their_node -> do |
66 | (s,hs) <- cacheHandshakeSTM hscache me them their_node ecookie now | 68 | (s,hs) <- cacheHandshakeSTM hscache me them their_node ecookie now |
67 | return $ do | 69 | return $ do |