From 8ff122d2d381fc9b1dd5c16067fba19f89512261 Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Thu, 28 Jun 2018 16:14:26 -0400
Subject: Kademlia.Search: fork -> forkIO

---
 src/Network/Kademlia/Search.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Network/Kademlia/Search.hs')

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 )
-- 
cgit v1.2.3