diff options
| author | Joe Crayne <joe@jerkface.net> | 2018-09-04 22:51:03 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2018-09-07 13:18:56 -0400 |
| commit | 295590ccd3c65c04f9597767ad03a2c1dc5e139c (patch) | |
| tree | df83e4d0c98b9c591698d2c094ad36870d8c61e7 /src | |
| parent | fb3d30fd7fb1e68623b3bffc9f42ecb2adabce66 (diff) | |
Re-enabled instrumentation on forkIO.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Control/Concurrent/Lifted/Instrument.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 | |||
| 43 | 43 | ||
| 44 | 44 | ||
| 45 | forkIO :: IO () -> IO ThreadId | 45 | forkIO :: IO () -> IO ThreadId |
| 46 | forkIO = GHC.forkIO | 46 | forkIO = instrumented GHC.forkIO |
| 47 | {-# INLINE forkIO #-} | 47 | {-# INLINE forkIO #-} |
| 48 | 48 | ||
| 49 | forkOS :: MonadBaseControl IO m => m () -> m ThreadId | 49 | forkOS :: MonadBaseControl IO m => m () -> m ThreadId |