Kademlia.Search: fork -> forkIO

2 files changed, 2 insertions, 2 deletions

diff --git a/src/Control/Concurrent/Lifted/Instrument.hs b/src/Control/Concurrent/Lifted/Instrument.hs
index 4aa9268f..91d4c0a4 100644
--- a/src/Control/Concurrent/Lifted/Instrument.hs
+++ b/src/Control/Concurrent/Lifted/Instrument.hs
@@ -43,7 +43,7 @@ globals = unsafePerformIO $ newMVar $ GlobalState
 
 
 forkIO :: IO () -> IO ThreadId
-forkIO = fork
+forkIO = GHC.forkIO
 {-# INLINE forkIO #-}
 
 forkOS :: MonadBaseControl IO m => m () -> m ThreadId
diff --git a/src/Control/Concurrent/Tasks.hs b/src/Control/Concurrent/Tasks.hs
index 287542ee..da2e589e 100644
--- a/src/Control/Concurrent/Tasks.hs
+++ b/src/Control/Concurrent/Tasks.hs
@@ -20,7 +20,7 @@ withTaskGroup :: String -> Int -> (TaskGroup -> IO ()) -> IO ()
 withTaskGroup glabel numslots action = do
     tg <- atomically $ newTChan
     cnt <- atomically $ newTVar 0
-    thread <- fork $ do
+    thread <- forkIO $ do
         myThreadId >>= flip labelThread glabel
         fix $ \again -> do
             (slot, (lbl,task)) <- atomically $ do