diff options
Diffstat (limited to 'lifted-concurrent/src/Control/Concurrent/Lifted/Instrument.hs')
-rw-r--r-- | lifted-concurrent/src/Control/Concurrent/Lifted/Instrument.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lifted-concurrent/src/Control/Concurrent/Lifted/Instrument.hs b/lifted-concurrent/src/Control/Concurrent/Lifted/Instrument.hs index fc3b6369..eeda4de8 100644 --- a/lifted-concurrent/src/Control/Concurrent/Lifted/Instrument.hs +++ b/lifted-concurrent/src/Control/Concurrent/Lifted/Instrument.hs | |||
@@ -1,6 +1,7 @@ | |||
1 | {-# LANGUAGE FlexibleContexts #-} | 1 | {-# LANGUAGE FlexibleContexts #-} |
2 | module Control.Concurrent.Lifted.Instrument | 2 | module Control.Concurrent.Lifted.Instrument |
3 | ( module Control.Concurrent.Lifted | 3 | ( module Control.Concurrent.Lifted |
4 | , forkLabeled | ||
4 | , forkIO | 5 | , forkIO |
5 | , forkOS | 6 | , forkOS |
6 | , fork | 7 | , fork |
@@ -42,6 +43,12 @@ globals = unsafePerformIO $ newMVar $ GlobalState | |||
42 | } | 43 | } |
43 | {-# NOINLINE globals #-} | 44 | {-# NOINLINE globals #-} |
44 | 45 | ||
46 | forkLabeled :: String -> IO () -> IO ThreadId | ||
47 | forkLabeled lbl action = do | ||
48 | t <- forkIO action | ||
49 | labelThread t lbl | ||
50 | return t | ||
51 | {-# INLINE forkLabeled #-} | ||
45 | 52 | ||
46 | forkIO :: IO () -> IO ThreadId | 53 | forkIO :: IO () -> IO ThreadId |
47 | forkIO = instrumented GHC.forkIO | 54 | forkIO = instrumented GHC.forkIO |