From 6e618ac54384be5ef5f2590fd2a8cc2eb8399361 Mon Sep 17 00:00:00 2001 From: James Crayne Date: Fri, 18 Oct 2019 10:35:46 +0000 Subject: forkOSLabeled --- lifted-concurrent/lifted-concurrent.cabal | 2 +- lifted-concurrent/src/Control/Concurrent/Lifted/Instrument.hs | 8 ++++++++ 2 files changed, 9 insertions(+), 1 deletion(-) (limited to 'lifted-concurrent') 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 #-} -- cgit v1.2.3