forkOSLabeled

1 files changed, 8 insertions, 0 deletions

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 #-}