diff options
| author | Joe Crayne <joe@jerkface.net> | 2018-06-28 16:14:26 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2018-06-28 19:23:14 -0400 |
| commit | 8ff122d2d381fc9b1dd5c16067fba19f89512261 (patch) | |
| tree | 4ce94c3cf3a0ffb7cb99c43d7dadd59094f31105 /src/Network/Kademlia/Search.hs | |
| parent | 4ab1de695cb484f7859cb5d1794da5ce6510c0c2 (diff) | |
Kademlia.Search: fork -> forkIO
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 ) |