forkLabeled

2 files changed, 8 insertions, 1 deletions

diff --git a/lifted-concurrent/lifted-concurrent.cabal b/lifted-concurrent/lifted-concurrent.cabal
index 3d8acba7..ca32b4a5 100644
--- a/lifted-concurrent/lifted-concurrent.cabal
+++ b/lifted-concurrent/lifted-concurrent.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                lifted-concurrent
-version:             0.1.0.0
+version:             0.1.1.0
 -- synopsis:
 -- description:
 license:             BSD3
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 @@
 {-# LANGUAGE FlexibleContexts #-}
 module Control.Concurrent.Lifted.Instrument
     ( module Control.Concurrent.Lifted
+    , forkLabeled
     , forkIO
     , forkOS
     , fork
@@ -42,6 +43,12 @@ globals = unsafePerformIO $ newMVar $ GlobalState
     }
 {-# NOINLINE globals #-}
 
+forkLabeled :: String -> IO () -> IO ThreadId
+forkLabeled lbl action = do
+    t <- forkIO action
+    labelThread t lbl
+    return t
+{-# INLINE forkLabeled #-}
 
 forkIO :: IO () -> IO ThreadId
 forkIO = instrumented GHC.forkIO