From 295590ccd3c65c04f9597767ad03a2c1dc5e139c Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Tue, 4 Sep 2018 22:51:03 -0400
Subject: Re-enabled instrumentation on forkIO.

---
 src/Control/Concurrent/Lifted/Instrument.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Control/Concurrent/Lifted/Instrument.hs b/src/Control/Concurrent/Lifted/Instrument.hs
index 91d4c0a4..680b264f 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 = GHC.forkIO
+forkIO = instrumented GHC.forkIO
 {-# INLINE forkIO #-}
 
 forkOS :: MonadBaseControl IO m => m () -> m ThreadId
-- 
cgit v1.2.3