diff options
Diffstat (limited to 'src/Network/Kademlia/Search.hs')
-rw-r--r-- | src/Network/Kademlia/Search.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/Kademlia/Search.hs b/src/Network/Kademlia/Search.hs index e13e0742..d3aaae28 100644 --- a/src/Network/Kademlia/Search.hs +++ b/src/Network/Kademlia/Search.hs | |||
@@ -199,7 +199,7 @@ search :: | |||
199 | search sch buckets target result = do | 199 | search sch buckets target result = do |
200 | let ns = R.kclosest (searchSpace sch) searchK target buckets | 200 | let ns = R.kclosest (searchSpace sch) searchK target buckets |
201 | st <- atomically $ newSearch sch target ns | 201 | st <- atomically $ newSearch sch target ns |
202 | fork $ searchLoop sch target result st | 202 | forkIO $ searchLoop sch target result st |
203 | return st | 203 | return st |
204 | 204 | ||
205 | searchLoop :: ( Ord addr, Ord nid, Ord ni, Show nid, Hashable nid, Hashable ni ) | 205 | searchLoop :: ( Ord addr, Ord nid, Ord ni, Show nid, Hashable nid, Hashable ni ) |