From da0b8626cbb9b0a92289383bb8a1b938ce4ad2d8 Mon Sep 17 00:00:00 2001 From: Trolli Schmittlauch Date: Thu, 18 Jun 2020 23:06:43 +0200 Subject: [PATCH] critical bug fix: use target ID for predecessor query lookup --- src/Hash2Pub/DHTProtocol.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Hash2Pub/DHTProtocol.hs b/src/Hash2Pub/DHTProtocol.hs index 3c6cd6c..3a019e7 100644 --- a/src/Hash2Pub/DHTProtocol.hs +++ b/src/Hash2Pub/DHTProtocol.hs @@ -89,7 +89,7 @@ queryLocalCache ownState nCache lBestNodes targetID closestSuccessor = maybe Set.empty (Set.singleton . toRemoteCacheEntry) $ cacheLookupSucc targetID nCache closestPredecessors :: Set.Set RemoteCacheEntry - closestPredecessors = closestPredecessor (lBestNodes-1) $ getNid ownState + closestPredecessors = closestPredecessor (lBestNodes-1) targetID closestPredecessor :: (Integral n, Show n) => n -> NodeID -> Set.Set RemoteCacheEntry closestPredecessor 0 _ = Set.empty closestPredecessor remainingLookups lastID