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 ::
 search sch buckets target result = do
     let ns = R.kclosest (searchSpace sch) searchK target buckets
     st <- atomically $ newSearch sch target ns
-    fork $ searchLoop sch target result st
+    forkIO $ searchLoop sch target result st
     return st
 
 searchLoop :: ( Ord addr, Ord nid, Ord ni, Show nid, Hashable nid, Hashable ni )