forkOSLabeled

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 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                lifted-concurrent
-version:             0.1.1.0
+version:             0.1.2.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 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
     , forkLabeled
     , forkIO
     , forkOS
+    , forkOSLabeled
     , fork
     , labelThread
     , threadsInformation
@@ -50,6 +51,13 @@ forkLabeled lbl action = do
     return t
 {-# INLINE forkLabeled #-}
 
+forkOSLabeled :: String -> IO () -> IO ThreadId
+forkOSLabeled lbl action = do
+    t <- forkOS action
+    labelThread t lbl
+    return t
+{-# INLINE forkOSLabeled #-}
+
 forkIO :: IO () -> IO ThreadId
 forkIO = instrumented GHC.forkIO
 {-# INLINE forkIO #-}