summaryrefslogtreecommitdiff
path: root/lifted-concurrent
diff options
context:
space:
mode:
Diffstat (limited to 'lifted-concurrent')
-rw-r--r--lifted-concurrent/lifted-concurrent.cabal2
-rw-r--r--lifted-concurrent/src/Control/Concurrent/Lifted/Instrument.hs8
2 files changed, 9 insertions, 1 deletions
diff --git a/lifted-concurrent/lifted-concurrent.cabal b/lifted-concurrent/lifted-concurrent.cabal
index ca32b4a5..bbf254e3 100644
--- a/lifted-concurrent/lifted-concurrent.cabal
+++ b/lifted-concurrent/lifted-concurrent.cabal
@@ -2,7 +2,7 @@
2-- documentation, see http://haskell.org/cabal/users-guide/ 2-- documentation, see http://haskell.org/cabal/users-guide/
3 3
4name: lifted-concurrent 4name: lifted-concurrent
5version: 0.1.1.0 5version: 0.1.2.0
6-- synopsis: 6-- synopsis:
7-- description: 7-- description:
8license: BSD3 8license: BSD3
diff --git a/lifted-concurrent/src/Control/Concurrent/Lifted/Instrument.hs b/lifted-concurrent/src/Control/Concurrent/Lifted/Instrument.hs
index eeda4de8..070745b6 100644
--- a/lifted-concurrent/src/Control/Concurrent/Lifted/Instrument.hs
+++ b/lifted-concurrent/src/Control/Concurrent/Lifted/Instrument.hs
@@ -4,6 +4,7 @@ module Control.Concurrent.Lifted.Instrument
4 , forkLabeled 4 , forkLabeled
5 , forkIO 5 , forkIO
6 , forkOS 6 , forkOS
7 , forkOSLabeled
7 , fork 8 , fork
8 , labelThread 9 , labelThread
9 , threadsInformation 10 , threadsInformation
@@ -50,6 +51,13 @@ forkLabeled lbl action = do
50 return t 51 return t
51{-# INLINE forkLabeled #-} 52{-# INLINE forkLabeled #-}
52 53
54forkOSLabeled :: String -> IO () -> IO ThreadId
55forkOSLabeled lbl action = do
56 t <- forkOS action
57 labelThread t lbl
58 return t
59{-# INLINE forkOSLabeled #-}
60
53forkIO :: IO () -> IO ThreadId 61forkIO :: IO () -> IO ThreadId
54forkIO = instrumented GHC.forkIO 62forkIO = instrumented GHC.forkIO
55{-# INLINE forkIO #-} 63{-# INLINE forkIO #-}