wip: connect via tcp.

1 files changed, 3 insertions, 3 deletions

diff --git a/dht/HandshakeCache.hs b/dht/HandshakeCache.hs
index 61735e8a..91f5faaf 100644
--- a/dht/HandshakeCache.hs
+++ b/dht/HandshakeCache.hs
@@ -113,13 +113,13 @@ cacheHandshake hscache me them their_node ecookie = do
     dput XNetCrypto $ "cacheHandshake " ++ show (key2id them,ecookie)
     atomically $ snd <$> cacheHandshakeSTM hscache me them their_node ecookie timestamp
 
-haveCachedCookie :: HandshakeCache
+getPendingCookieFlag :: HandshakeCache
                     -> PublicKey
                     -> PublicKey
                     -> STM Bool
-haveCachedCookie hscache me them = do
+getPendingCookieFlag hscache me them = do
     m <- Map.lookup (me,them) <$> readTVar (hscPendingCookies hscache)
-    return $ maybe True (const False) m
+    return $ maybe False (const True) m
 
 
 setPendingCookie :: HandshakeCache