Control.Monad.Conc.Class

This module captures in a typeclass the interface of concurrency monads.

Deviations: An instance of MonadConc is not required to be an instance of MonadFix, unlike IO. The CRef, MVar, and Ticket types are not required to be instances of Show or Eq, unlike their normal counterparts. The threadCapability, threadWaitRead, threadWaitWrite, threadWaitReadSTM, threadWaitWriteSTM, and mkWeakThreadId functions are not provided. The threadDelay function is not required to delay the thread, merely to yield it. Bound threads are not supported. The BlockedIndefinitelyOnMVar (and similar) exceptions are not thrown during testing, so do not rely on them at all.

Documentation

class (Applicative m, Monad m, MonadCatch m, MonadThrow m, MonadMask m, MonadSTM (STM m), Ord (ThreadId m), Show (ThreadId m)) => MonadConc m where

MonadConc is an abstraction over GHC's typical concurrency abstraction. It captures the interface of concurrency monads in terms of how they can operate on shared state and in the presence of exceptions.

Every MonadConc has an associated MonadSTM, transactions of which can be run atomically.

Since: 1.0.0.0

Associated Types

type STM m :: * -> *

The associated MonadSTM for this class.

Since: 1.0.0.0

type MVar m :: * -> *

The mutable reference type, like MVars. This may contain one value at a time, attempting to read or take from an "empty" MVar will block until it is full, and attempting to put to a "full" MVar will block until it is empty.

Since: 1.0.0.0

type CRef m :: * -> *

The mutable non-blocking reference type. These may suffer from relaxed memory effects if functions outside the set newCRef, readCRef, atomicModifyCRef, and atomicWriteCRef are used.

Since: 1.0.0.0

type Ticket m :: * -> *

When performing compare-and-swap operations on CRefs, a Ticket is a proof that a thread observed a specific previous value.

Since: 1.0.0.0

type ThreadId m :: *

An abstract handle to a thread.

Since: 1.0.0.0

Methods

fork :: m () -> m (ThreadId m)

Fork a computation to happen concurrently. Communication may happen over MVars.

fork ma = forkWithUnmask (\_ -> ma)

Since: 1.0.0.0

forkWithUnmask :: ((forall a. m a -> m a) -> m ()) -> m (ThreadId m)

Like fork, but the child thread is passed a function that can be used to unmask asynchronous exceptions. This function should not be used within a mask or uninterruptibleMask.

forkWithUnmask = forkWithUnmaskN ""

Since: 1.0.0.0

forkWithUnmaskN :: String -> ((forall a. m a -> m a) -> m ()) -> m (ThreadId m)

Like forkWithUnmask, but the thread is given a name which may be used to present more useful debugging information.

If an empty name is given, the ThreadId is used. If names conflict, successive threads with the same name are given a numeric suffix, counting up from 1.

forkWithUnmaskN _ = forkWithUnmask

Since: 1.0.0.0

forkOn :: Int -> m () -> m (ThreadId m)

Fork a computation to happen on a specific processor. The specified int is the capability number, typically capabilities correspond to physical processors or cores but this is implementation dependent. The int is interpreted modulo to the total number of capabilities as returned by getNumCapabilities.

forkOn c ma = forkOnWithUnmask c (\_ -> ma)

Since: 1.0.0.0

forkOnWithUnmask :: Int -> ((forall a. m a -> m a) -> m ()) -> m (ThreadId m)

Like forkWithUnmask, but the child thread is pinned to the given CPU, as with forkOn.

forkOnWithUnmask = forkOnWithUnmaskN ""

Since: 1.0.0.0

forkOnWithUnmaskN :: String -> Int -> ((forall a. m a -> m a) -> m ()) -> m (ThreadId m)

Like forkWithUnmaskN, but the child thread is pinned to the given CPU, as with forkOn.

forkOnWithUnmaskN _ = forkOnWithUnmask

Since: 1.0.0.0

getNumCapabilities :: m Int

Get the number of Haskell threads that can run simultaneously.

Since: 1.0.0.0

setNumCapabilities :: Int -> m ()

Set the number of Haskell threads that can run simultaneously.

Since: 1.0.0.0

myThreadId :: m (ThreadId m)

Get the ThreadId of the current thread.

Since: 1.0.0.0

yield :: m ()

Allows a context-switch to any other currently runnable thread (if any).

Since: 1.0.0.0

threadDelay :: Int -> m ()

Yields the current thread, and optionally suspends the current thread for a given number of microseconds.

If suspended, there is no guarantee that the thread will be rescheduled promptly when the delay has expired, but the thread will never continue to run earlier than specified.

threadDelay _ = yield

Since: 1.0.0.0

newEmptyMVar :: m (MVar m a)

Create a new empty MVar.

newEmptyMVar = newEmptyMVarN ""

Since: 1.0.0.0

newEmptyMVarN :: String -> m (MVar m a)

Create a new empty MVar, but it is given a name which may be used to present more useful debugging information.

If an empty name is given, a counter starting from 0 is used. If names conflict, successive MVars with the same name are given a numeric suffix, counting up from 1.

newEmptyMVarN _ = newEmptyMVar

Since: 1.0.0.0

putMVar :: MVar m a -> a -> m ()

Put a value into a MVar. If there is already a value there, this will block until that value has been taken, at which point the value will be stored.

Since: 1.0.0.0

tryPutMVar :: MVar m a -> a -> m Bool

Attempt to put a value in a MVar non-blockingly, returning True (and filling the MVar) if there was nothing there, otherwise returning False.

Since: 1.0.0.0

readMVar :: MVar m a -> m a

Block until a value is present in the MVar, and then return it. This does not "remove" the value, multiple reads are possible.

Since: 1.0.0.0

tryReadMVar :: MVar m a -> m (Maybe a)

Attempt to read a value from a MVar non-blockingly, returning a Just (and emptying the MVar) if there is something there, otherwise returning Nothing. As with readMVar, this does not "remove" the value.

Since: 1.1.0.0

takeMVar :: MVar m a -> m a

Take a value from a MVar. This "empties" the MVar, allowing a new value to be put in. This will block if there is no value in the MVar already, until one has been put.

Since: 1.0.0.0

tryTakeMVar :: MVar m a -> m (Maybe a)

Attempt to take a value from a MVar non-blockingly, returning a Just (and emptying the MVar) if there was something there, otherwise returning Nothing.

Since: 1.0.0.0

newCRef :: a -> m (CRef m a)

Create a new reference.

newCRef = newCRefN ""

Since: 1.0.0.0

newCRefN :: String -> a -> m (CRef m a)

Create a new reference, but it is given a name which may be used to present more useful debugging information.

If an empty name is given, a counter starting from 0 is used. If names conflict, successive CRefs with the same name are given a numeric suffix, counting up from 1.

newCRefN _ = newCRef

Since: 1.0.0.0

readCRef :: CRef m a -> m a

Read the current value stored in a reference.

readCRef cref = readForCAS cref >>= peekTicket

Since: 1.0.0.0

atomicModifyCRef :: CRef m a -> (a -> (a, b)) -> m b

Atomically modify the value stored in a reference. This imposes a full memory barrier.

Since: 1.0.0.0

writeCRef :: CRef m a -> a -> m ()

Write a new value into an CRef, without imposing a memory barrier. This means that relaxed memory effects can be observed.

Since: 1.0.0.0

atomicWriteCRef :: CRef m a -> a -> m ()

Replace the value stored in a reference, with the barrier-to-reordering property that atomicModifyCRef has.

atomicWriteCRef r a = atomicModifyCRef r $ const (a, ())

Since: 1.0.0.0

readForCAS :: CRef m a -> m (Ticket m a)

Read the current value stored in a reference, returning a Ticket, for use in future compare-and-swap operations.

Since: 1.0.0.0

peekTicket' :: proxy m -> Ticket m a -> a

Extract the actual Haskell value from a Ticket.

The proxy m is to determine the m in the Ticket type.

Since: 1.0.0.0

casCRef :: CRef m a -> Ticket m a -> a -> m (Bool, Ticket m a)

Perform a machine-level compare-and-swap (CAS) operation on a CRef. Returns an indication of success and a Ticket for the most current value in the CRef.

This is strict in the "new" value argument.

Since: 1.0.0.0

modifyCRefCAS :: CRef m a -> (a -> (a, b)) -> m b

A replacement for atomicModifyCRef using a compare-and-swap.

This is strict in the "new" value argument.

Since: 1.0.0.0

modifyCRefCAS_ :: CRef m a -> (a -> a) -> m ()

A variant of modifyCRefCAS which doesn't return a result.

modifyCRefCAS_ cref f = modifyCRefCAS cref (\a -> (f a, ()))

Since: 1.0.0.0

atomically :: STM m a -> m a

Perform an STM transaction atomically.

Since: 1.0.0.0

readTVarConc :: TVar (STM m) a -> m a

Read the current value stored in a TVar. This may be implemented differently for speed.

readTVarConc = atomically . readTVar

Since: 1.0.0.0

throwTo :: Exception e => ThreadId m -> e -> m ()

Throw an exception to the target thread. This blocks until the exception is delivered, and it is just as if the target thread had raised it with throw. This can interrupt a blocked action.

Since: 1.0.0.0

Instances

MonadConc IO

Since: 1.0.0.0

Associated Types

type STM (IO :: * -> *) :: * -> *

type MVar (IO :: * -> *) :: * -> *

type CRef (IO :: * -> *) :: * -> *

type Ticket (IO :: * -> *) :: * -> *

type ThreadId (IO :: * -> *) :: *

Methods

fork :: IO () -> IO (ThreadId IO)

forkWithUnmask :: ((forall a. IO a -> IO a) -> IO ()) -> IO (ThreadId IO)

forkWithUnmaskN :: String -> ((forall a. IO a -> IO a) -> IO ()) -> IO (ThreadId IO)

forkOn :: Int -> IO () -> IO (ThreadId IO)

forkOnWithUnmask :: Int -> ((forall a. IO a -> IO a) -> IO ()) -> IO (ThreadId IO)

forkOnWithUnmaskN :: String -> Int -> ((forall a. IO a -> IO a) -> IO ()) -> IO (ThreadId IO)

getNumCapabilities :: IO Int

setNumCapabilities :: Int -> IO ()

myThreadId :: IO (ThreadId IO)

yield :: IO ()

threadDelay :: Int -> IO ()

newEmptyMVar :: IO (MVar IO a)

newEmptyMVarN :: String -> IO (MVar IO a)

putMVar :: MVar IO a -> a -> IO ()

tryPutMVar :: MVar IO a -> a -> IO Bool

readMVar :: MVar IO a -> IO a

tryReadMVar :: MVar IO a -> IO (Maybe a)

takeMVar :: MVar IO a -> IO a

tryTakeMVar :: MVar IO a -> IO (Maybe a)

newCRef :: a -> IO (CRef IO a)

newCRefN :: String -> a -> IO (CRef IO a)

readCRef :: CRef IO a -> IO a

atomicModifyCRef :: CRef IO a -> (a -> (a, b)) -> IO b

writeCRef :: CRef IO a -> a -> IO ()

atomicWriteCRef :: CRef IO a -> a -> IO ()

readForCAS :: CRef IO a -> IO (Ticket IO a)

peekTicket' :: proxy IO -> Ticket IO a -> a

casCRef :: CRef IO a -> Ticket IO a -> a -> IO (Bool, Ticket IO a)

modifyCRefCAS :: CRef IO a -> (a -> (a, b)) -> IO b

modifyCRefCAS_ :: CRef IO a -> (a -> a) -> IO ()

atomically :: STM IO a -> IO a

readTVarConc :: TVar (STM IO) a -> IO a

throwTo :: Exception e => ThreadId IO -> e -> IO ()

MonadConc m => MonadConc (StateT s m)

New threads inherit the state of their parent, but do not communicate results back.

Since: 1.0.0.0

Associated Types

type STM (StateT s m :: * -> *) :: * -> *

type MVar (StateT s m :: * -> *) :: * -> *

type CRef (StateT s m :: * -> *) :: * -> *

type Ticket (StateT s m :: * -> *) :: * -> *

type ThreadId (StateT s m :: * -> *) :: *

Methods

fork :: StateT s m () -> StateT s m (ThreadId (StateT s m))

forkWithUnmask :: ((forall a. StateT s m a -> StateT s m a) -> StateT s m ()) -> StateT s m (ThreadId (StateT s m))

forkWithUnmaskN :: String -> ((forall a. StateT s m a -> StateT s m a) -> StateT s m ()) -> StateT s m (ThreadId (StateT s m))

forkOn :: Int -> StateT s m () -> StateT s m (ThreadId (StateT s m))

forkOnWithUnmask :: Int -> ((forall a. StateT s m a -> StateT s m a) -> StateT s m ()) -> StateT s m (ThreadId (StateT s m))

forkOnWithUnmaskN :: String -> Int -> ((forall a. StateT s m a -> StateT s m a) -> StateT s m ()) -> StateT s m (ThreadId (StateT s m))

getNumCapabilities :: StateT s m Int

setNumCapabilities :: Int -> StateT s m ()

myThreadId :: StateT s m (ThreadId (StateT s m))

yield :: StateT s m ()

threadDelay :: Int -> StateT s m ()

newEmptyMVar :: StateT s m (MVar (StateT s m) a)

newEmptyMVarN :: String -> StateT s m (MVar (StateT s m) a)

putMVar :: MVar (StateT s m) a -> a -> StateT s m ()

tryPutMVar :: MVar (StateT s m) a -> a -> StateT s m Bool

readMVar :: MVar (StateT s m) a -> StateT s m a

tryReadMVar :: MVar (StateT s m) a -> StateT s m (Maybe a)

takeMVar :: MVar (StateT s m) a -> StateT s m a

tryTakeMVar :: MVar (StateT s m) a -> StateT s m (Maybe a)

newCRef :: a -> StateT s m (CRef (StateT s m) a)

newCRefN :: String -> a -> StateT s m (CRef (StateT s m) a)

readCRef :: CRef (StateT s m) a -> StateT s m a

atomicModifyCRef :: CRef (StateT s m) a -> (a -> (a, b)) -> StateT s m b

writeCRef :: CRef (StateT s m) a -> a -> StateT s m ()

atomicWriteCRef :: CRef (StateT s m) a -> a -> StateT s m ()

readForCAS :: CRef (StateT s m) a -> StateT s m (Ticket (StateT s m) a)

peekTicket' :: proxy (StateT s m) -> Ticket (StateT s m) a -> a

casCRef :: CRef (StateT s m) a -> Ticket (StateT s m) a -> a -> StateT s m (Bool, Ticket (StateT s m) a)

modifyCRefCAS :: CRef (StateT s m) a -> (a -> (a, b)) -> StateT s m b

modifyCRefCAS_ :: CRef (StateT s m) a -> (a -> a) -> StateT s m ()

atomically :: STM (StateT s m) a -> StateT s m a

readTVarConc :: TVar (STM (StateT s m)) a -> StateT s m a

throwTo :: Exception e => ThreadId (StateT s m) -> e -> StateT s m ()

MonadConc m => MonadConc (StateT s m)

New threads inherit the state of their parent, but do not communicate results back.

Since: 1.0.0.0

Associated Types

type STM (StateT s m :: * -> *) :: * -> *

type MVar (StateT s m :: * -> *) :: * -> *

type CRef (StateT s m :: * -> *) :: * -> *

type Ticket (StateT s m :: * -> *) :: * -> *

type ThreadId (StateT s m :: * -> *) :: *

Methods

fork :: StateT s m () -> StateT s m (ThreadId (StateT s m))

forkWithUnmask :: ((forall a. StateT s m a -> StateT s m a) -> StateT s m ()) -> StateT s m (ThreadId (StateT s m))

forkWithUnmaskN :: String -> ((forall a. StateT s m a -> StateT s m a) -> StateT s m ()) -> StateT s m (ThreadId (StateT s m))

forkOn :: Int -> StateT s m () -> StateT s m (ThreadId (StateT s m))

forkOnWithUnmask :: Int -> ((forall a. StateT s m a -> StateT s m a) -> StateT s m ()) -> StateT s m (ThreadId (StateT s m))

forkOnWithUnmaskN :: String -> Int -> ((forall a. StateT s m a -> StateT s m a) -> StateT s m ()) -> StateT s m (ThreadId (StateT s m))

getNumCapabilities :: StateT s m Int

setNumCapabilities :: Int -> StateT s m ()

myThreadId :: StateT s m (ThreadId (StateT s m))

yield :: StateT s m ()

threadDelay :: Int -> StateT s m ()

newEmptyMVar :: StateT s m (MVar (StateT s m) a)

newEmptyMVarN :: String -> StateT s m (MVar (StateT s m) a)

putMVar :: MVar (StateT s m) a -> a -> StateT s m ()

tryPutMVar :: MVar (StateT s m) a -> a -> StateT s m Bool

readMVar :: MVar (StateT s m) a -> StateT s m a

tryReadMVar :: MVar (StateT s m) a -> StateT s m (Maybe a)

takeMVar :: MVar (StateT s m) a -> StateT s m a

tryTakeMVar :: MVar (StateT s m) a -> StateT s m (Maybe a)

newCRef :: a -> StateT s m (CRef (StateT s m) a)

newCRefN :: String -> a -> StateT s m (CRef (StateT s m) a)

readCRef :: CRef (StateT s m) a -> StateT s m a

atomicModifyCRef :: CRef (StateT s m) a -> (a -> (a, b)) -> StateT s m b

writeCRef :: CRef (StateT s m) a -> a -> StateT s m ()

atomicWriteCRef :: CRef (StateT s m) a -> a -> StateT s m ()

readForCAS :: CRef (StateT s m) a -> StateT s m (Ticket (StateT s m) a)

peekTicket' :: proxy (StateT s m) -> Ticket (StateT s m) a -> a

casCRef :: CRef (StateT s m) a -> Ticket (StateT s m) a -> a -> StateT s m (Bool, Ticket (StateT s m) a)

modifyCRefCAS :: CRef (StateT s m) a -> (a -> (a, b)) -> StateT s m b

modifyCRefCAS_ :: CRef (StateT s m) a -> (a -> a) -> StateT s m ()

atomically :: STM (StateT s m) a -> StateT s m a

readTVarConc :: TVar (STM (StateT s m)) a -> StateT s m a

throwTo :: Exception e => ThreadId (StateT s m) -> e -> StateT s m ()

(MonadConc m, Monoid w) => MonadConc (WriterT w m)

New threads inherit the writer state of their parent, but do not communicate results back.

Since: 1.0.0.0

Associated Types

type STM (WriterT w m :: * -> *) :: * -> *

type MVar (WriterT w m :: * -> *) :: * -> *

type CRef (WriterT w m :: * -> *) :: * -> *

type Ticket (WriterT w m :: * -> *) :: * -> *

type ThreadId (WriterT w m :: * -> *) :: *

Methods

fork :: WriterT w m () -> WriterT w m (ThreadId (WriterT w m))

forkWithUnmask :: ((forall a. WriterT w m a -> WriterT w m a) -> WriterT w m ()) -> WriterT w m (ThreadId (WriterT w m))

forkWithUnmaskN :: String -> ((forall a. WriterT w m a -> WriterT w m a) -> WriterT w m ()) -> WriterT w m (ThreadId (WriterT w m))

forkOn :: Int -> WriterT w m () -> WriterT w m (ThreadId (WriterT w m))

forkOnWithUnmask :: Int -> ((forall a. WriterT w m a -> WriterT w m a) -> WriterT w m ()) -> WriterT w m (ThreadId (WriterT w m))

forkOnWithUnmaskN :: String -> Int -> ((forall a. WriterT w m a -> WriterT w m a) -> WriterT w m ()) -> WriterT w m (ThreadId (WriterT w m))

getNumCapabilities :: WriterT w m Int

setNumCapabilities :: Int -> WriterT w m ()

myThreadId :: WriterT w m (ThreadId (WriterT w m))

yield :: WriterT w m ()

threadDelay :: Int -> WriterT w m ()

newEmptyMVar :: WriterT w m (MVar (WriterT w m) a)

newEmptyMVarN :: String -> WriterT w m (MVar (WriterT w m) a)

putMVar :: MVar (WriterT w m) a -> a -> WriterT w m ()

tryPutMVar :: MVar (WriterT w m) a -> a -> WriterT w m Bool

readMVar :: MVar (WriterT w m) a -> WriterT w m a

tryReadMVar :: MVar (WriterT w m) a -> WriterT w m (Maybe a)

takeMVar :: MVar (WriterT w m) a -> WriterT w m a

tryTakeMVar :: MVar (WriterT w m) a -> WriterT w m (Maybe a)

newCRef :: a -> WriterT w m (CRef (WriterT w m) a)

newCRefN :: String -> a -> WriterT w m (CRef (WriterT w m) a)

readCRef :: CRef (WriterT w m) a -> WriterT w m a

atomicModifyCRef :: CRef (WriterT w m) a -> (a -> (a, b)) -> WriterT w m b

writeCRef :: CRef (WriterT w m) a -> a -> WriterT w m ()

atomicWriteCRef :: CRef (WriterT w m) a -> a -> WriterT w m ()

readForCAS :: CRef (WriterT w m) a -> WriterT w m (Ticket (WriterT w m) a)

peekTicket' :: proxy (WriterT w m) -> Ticket (WriterT w m) a -> a

casCRef :: CRef (WriterT w m) a -> Ticket (WriterT w m) a -> a -> WriterT w m (Bool, Ticket (WriterT w m) a)

modifyCRefCAS :: CRef (WriterT w m) a -> (a -> (a, b)) -> WriterT w m b

modifyCRefCAS_ :: CRef (WriterT w m) a -> (a -> a) -> WriterT w m ()

atomically :: STM (WriterT w m) a -> WriterT w m a

readTVarConc :: TVar (STM (WriterT w m)) a -> WriterT w m a

throwTo :: Exception e => ThreadId (WriterT w m) -> e -> WriterT w m ()

(MonadConc m, Monoid w) => MonadConc (WriterT w m)

New threads inherit the writer state of their parent, but do not communicate results back.

Since: 1.0.0.0

Associated Types

type STM (WriterT w m :: * -> *) :: * -> *

type MVar (WriterT w m :: * -> *) :: * -> *

type CRef (WriterT w m :: * -> *) :: * -> *

type Ticket (WriterT w m :: * -> *) :: * -> *

type ThreadId (WriterT w m :: * -> *) :: *

Methods

fork :: WriterT w m () -> WriterT w m (ThreadId (WriterT w m))

forkWithUnmask :: ((forall a. WriterT w m a -> WriterT w m a) -> WriterT w m ()) -> WriterT w m (ThreadId (WriterT w m))

forkWithUnmaskN :: String -> ((forall a. WriterT w m a -> WriterT w m a) -> WriterT w m ()) -> WriterT w m (ThreadId (WriterT w m))

forkOn :: Int -> WriterT w m () -> WriterT w m (ThreadId (WriterT w m))

forkOnWithUnmask :: Int -> ((forall a. WriterT w m a -> WriterT w m a) -> WriterT w m ()) -> WriterT w m (ThreadId (WriterT w m))

forkOnWithUnmaskN :: String -> Int -> ((forall a. WriterT w m a -> WriterT w m a) -> WriterT w m ()) -> WriterT w m (ThreadId (WriterT w m))

getNumCapabilities :: WriterT w m Int

setNumCapabilities :: Int -> WriterT w m ()

myThreadId :: WriterT w m (ThreadId (WriterT w m))

yield :: WriterT w m ()

threadDelay :: Int -> WriterT w m ()

newEmptyMVar :: WriterT w m (MVar (WriterT w m) a)

newEmptyMVarN :: String -> WriterT w m (MVar (WriterT w m) a)

putMVar :: MVar (WriterT w m) a -> a -> WriterT w m ()

tryPutMVar :: MVar (WriterT w m) a -> a -> WriterT w m Bool

readMVar :: MVar (WriterT w m) a -> WriterT w m a

tryReadMVar :: MVar (WriterT w m) a -> WriterT w m (Maybe a)

takeMVar :: MVar (WriterT w m) a -> WriterT w m a

tryTakeMVar :: MVar (WriterT w m) a -> WriterT w m (Maybe a)

newCRef :: a -> WriterT w m (CRef (WriterT w m) a)

newCRefN :: String -> a -> WriterT w m (CRef (WriterT w m) a)

readCRef :: CRef (WriterT w m) a -> WriterT w m a

atomicModifyCRef :: CRef (WriterT w m) a -> (a -> (a, b)) -> WriterT w m b

writeCRef :: CRef (WriterT w m) a -> a -> WriterT w m ()

atomicWriteCRef :: CRef (WriterT w m) a -> a -> WriterT w m ()

readForCAS :: CRef (WriterT w m) a -> WriterT w m (Ticket (WriterT w m) a)

peekTicket' :: proxy (WriterT w m) -> Ticket (WriterT w m) a -> a

casCRef :: CRef (WriterT w m) a -> Ticket (WriterT w m) a -> a -> WriterT w m (Bool, Ticket (WriterT w m) a)

modifyCRefCAS :: CRef (WriterT w m) a -> (a -> (a, b)) -> WriterT w m b

modifyCRefCAS_ :: CRef (WriterT w m) a -> (a -> a) -> WriterT w m ()

atomically :: STM (WriterT w m) a -> WriterT w m a

readTVarConc :: TVar (STM (WriterT w m)) a -> WriterT w m a

throwTo :: Exception e => ThreadId (WriterT w m) -> e -> WriterT w m ()

MonadConc m => MonadConc (IdentityT * m)

Since: 1.0.0.0

Associated Types

type STM (IdentityT * m :: * -> *) :: * -> *

type MVar (IdentityT * m :: * -> *) :: * -> *

type CRef (IdentityT * m :: * -> *) :: * -> *

type Ticket (IdentityT * m :: * -> *) :: * -> *

type ThreadId (IdentityT * m :: * -> *) :: *

Methods

fork :: IdentityT * m () -> IdentityT * m (ThreadId (IdentityT * m))

forkWithUnmask :: ((forall a. IdentityT * m a -> IdentityT * m a) -> IdentityT * m ()) -> IdentityT * m (ThreadId (IdentityT * m))

forkWithUnmaskN :: String -> ((forall a. IdentityT * m a -> IdentityT * m a) -> IdentityT * m ()) -> IdentityT * m (ThreadId (IdentityT * m))

forkOn :: Int -> IdentityT * m () -> IdentityT * m (ThreadId (IdentityT * m))

forkOnWithUnmask :: Int -> ((forall a. IdentityT * m a -> IdentityT * m a) -> IdentityT * m ()) -> IdentityT * m (ThreadId (IdentityT * m))

forkOnWithUnmaskN :: String -> Int -> ((forall a. IdentityT * m a -> IdentityT * m a) -> IdentityT * m ()) -> IdentityT * m (ThreadId (IdentityT * m))

getNumCapabilities :: IdentityT * m Int

setNumCapabilities :: Int -> IdentityT * m ()

myThreadId :: IdentityT * m (ThreadId (IdentityT * m))

yield :: IdentityT * m ()

threadDelay :: Int -> IdentityT * m ()

newEmptyMVar :: IdentityT * m (MVar (IdentityT * m) a)

newEmptyMVarN :: String -> IdentityT * m (MVar (IdentityT * m) a)

putMVar :: MVar (IdentityT * m) a -> a -> IdentityT * m ()

tryPutMVar :: MVar (IdentityT * m) a -> a -> IdentityT * m Bool

readMVar :: MVar (IdentityT * m) a -> IdentityT * m a

tryReadMVar :: MVar (IdentityT * m) a -> IdentityT * m (Maybe a)

takeMVar :: MVar (IdentityT * m) a -> IdentityT * m a

tryTakeMVar :: MVar (IdentityT * m) a -> IdentityT * m (Maybe a)

newCRef :: a -> IdentityT * m (CRef (IdentityT * m) a)

newCRefN :: String -> a -> IdentityT * m (CRef (IdentityT * m) a)

readCRef :: CRef (IdentityT * m) a -> IdentityT * m a

atomicModifyCRef :: CRef (IdentityT * m) a -> (a -> (a, b)) -> IdentityT * m b

writeCRef :: CRef (IdentityT * m) a -> a -> IdentityT * m ()

atomicWriteCRef :: CRef (IdentityT * m) a -> a -> IdentityT * m ()

readForCAS :: CRef (IdentityT * m) a -> IdentityT * m (Ticket (IdentityT * m) a)

peekTicket' :: proxy (IdentityT * m) -> Ticket (IdentityT * m) a -> a

casCRef :: CRef (IdentityT * m) a -> Ticket (IdentityT * m) a -> a -> IdentityT * m (Bool, Ticket (IdentityT * m) a)

modifyCRefCAS :: CRef (IdentityT * m) a -> (a -> (a, b)) -> IdentityT * m b

modifyCRefCAS_ :: CRef (IdentityT * m) a -> (a -> a) -> IdentityT * m ()

atomically :: STM (IdentityT * m) a -> IdentityT * m a

readTVarConc :: TVar (STM (IdentityT * m)) a -> IdentityT * m a

throwTo :: Exception e => ThreadId (IdentityT * m) -> e -> IdentityT * m ()

MonadConc m => MonadConc (ReaderT * r m)

New threads inherit the reader state of their parent, but do not communicate results back.

Since: 1.0.0.0

Associated Types

type STM (ReaderT * r m :: * -> *) :: * -> *

type MVar (ReaderT * r m :: * -> *) :: * -> *

type CRef (ReaderT * r m :: * -> *) :: * -> *

type Ticket (ReaderT * r m :: * -> *) :: * -> *

type ThreadId (ReaderT * r m :: * -> *) :: *

Methods

fork :: ReaderT * r m () -> ReaderT * r m (ThreadId (ReaderT * r m))

forkWithUnmask :: ((forall a. ReaderT * r m a -> ReaderT * r m a) -> ReaderT * r m ()) -> ReaderT * r m (ThreadId (ReaderT * r m))

forkWithUnmaskN :: String -> ((forall a. ReaderT * r m a -> ReaderT * r m a) -> ReaderT * r m ()) -> ReaderT * r m (ThreadId (ReaderT * r m))

forkOn :: Int -> ReaderT * r m () -> ReaderT * r m (ThreadId (ReaderT * r m))

forkOnWithUnmask :: Int -> ((forall a. ReaderT * r m a -> ReaderT * r m a) -> ReaderT * r m ()) -> ReaderT * r m (ThreadId (ReaderT * r m))

forkOnWithUnmaskN :: String -> Int -> ((forall a. ReaderT * r m a -> ReaderT * r m a) -> ReaderT * r m ()) -> ReaderT * r m (ThreadId (ReaderT * r m))

getNumCapabilities :: ReaderT * r m Int

setNumCapabilities :: Int -> ReaderT * r m ()

myThreadId :: ReaderT * r m (ThreadId (ReaderT * r m))

yield :: ReaderT * r m ()

threadDelay :: Int -> ReaderT * r m ()

newEmptyMVar :: ReaderT * r m (MVar (ReaderT * r m) a)

newEmptyMVarN :: String -> ReaderT * r m (MVar (ReaderT * r m) a)

putMVar :: MVar (ReaderT * r m) a -> a -> ReaderT * r m ()

tryPutMVar :: MVar (ReaderT * r m) a -> a -> ReaderT * r m Bool

readMVar :: MVar (ReaderT * r m) a -> ReaderT * r m a

tryReadMVar :: MVar (ReaderT * r m) a -> ReaderT * r m (Maybe a)

takeMVar :: MVar (ReaderT * r m) a -> ReaderT * r m a

tryTakeMVar :: MVar (ReaderT * r m) a -> ReaderT * r m (Maybe a)

newCRef :: a -> ReaderT * r m (CRef (ReaderT * r m) a)

newCRefN :: String -> a -> ReaderT * r m (CRef (ReaderT * r m) a)

readCRef :: CRef (ReaderT * r m) a -> ReaderT * r m a

atomicModifyCRef :: CRef (ReaderT * r m) a -> (a -> (a, b)) -> ReaderT * r m b

writeCRef :: CRef (ReaderT * r m) a -> a -> ReaderT * r m ()

atomicWriteCRef :: CRef (ReaderT * r m) a -> a -> ReaderT * r m ()

readForCAS :: CRef (ReaderT * r m) a -> ReaderT * r m (Ticket (ReaderT * r m) a)

peekTicket' :: proxy (ReaderT * r m) -> Ticket (ReaderT * r m) a -> a

casCRef :: CRef (ReaderT * r m) a -> Ticket (ReaderT * r m) a -> a -> ReaderT * r m (Bool, Ticket (ReaderT * r m) a)

modifyCRefCAS :: CRef (ReaderT * r m) a -> (a -> (a, b)) -> ReaderT * r m b

modifyCRefCAS_ :: CRef (ReaderT * r m) a -> (a -> a) -> ReaderT * r m ()

atomically :: STM (ReaderT * r m) a -> ReaderT * r m a

readTVarConc :: TVar (STM (ReaderT * r m)) a -> ReaderT * r m a

throwTo :: Exception e => ThreadId (ReaderT * r m) -> e -> ReaderT * r m ()

(MonadConc m, Monoid w) => MonadConc (RWST r w s m)

New threads inherit the states of their parent, but do not communicate results back.

Since: 1.0.0.0

Associated Types

type STM (RWST r w s m :: * -> *) :: * -> *

type MVar (RWST r w s m :: * -> *) :: * -> *

type CRef (RWST r w s m :: * -> *) :: * -> *

type Ticket (RWST r w s m :: * -> *) :: * -> *

type ThreadId (RWST r w s m :: * -> *) :: *

Methods

fork :: RWST r w s m () -> RWST r w s m (ThreadId (RWST r w s m))

forkWithUnmask :: ((forall a. RWST r w s m a -> RWST r w s m a) -> RWST r w s m ()) -> RWST r w s m (ThreadId (RWST r w s m))

forkWithUnmaskN :: String -> ((forall a. RWST r w s m a -> RWST r w s m a) -> RWST r w s m ()) -> RWST r w s m (ThreadId (RWST r w s m))

forkOn :: Int -> RWST r w s m () -> RWST r w s m (ThreadId (RWST r w s m))

forkOnWithUnmask :: Int -> ((forall a. RWST r w s m a -> RWST r w s m a) -> RWST r w s m ()) -> RWST r w s m (ThreadId (RWST r w s m))

forkOnWithUnmaskN :: String -> Int -> ((forall a. RWST r w s m a -> RWST r w s m a) -> RWST r w s m ()) -> RWST r w s m (ThreadId (RWST r w s m))

getNumCapabilities :: RWST r w s m Int

setNumCapabilities :: Int -> RWST r w s m ()

myThreadId :: RWST r w s m (ThreadId (RWST r w s m))

yield :: RWST r w s m ()

threadDelay :: Int -> RWST r w s m ()

newEmptyMVar :: RWST r w s m (MVar (RWST r w s m) a)

newEmptyMVarN :: String -> RWST r w s m (MVar (RWST r w s m) a)

putMVar :: MVar (RWST r w s m) a -> a -> RWST r w s m ()

tryPutMVar :: MVar (RWST r w s m) a -> a -> RWST r w s m Bool

readMVar :: MVar (RWST r w s m) a -> RWST r w s m a

tryReadMVar :: MVar (RWST r w s m) a -> RWST r w s m (Maybe a)

takeMVar :: MVar (RWST r w s m) a -> RWST r w s m a

tryTakeMVar :: MVar (RWST r w s m) a -> RWST r w s m (Maybe a)

newCRef :: a -> RWST r w s m (CRef (RWST r w s m) a)

newCRefN :: String -> a -> RWST r w s m (CRef (RWST r w s m) a)

readCRef :: CRef (RWST r w s m) a -> RWST r w s m a

atomicModifyCRef :: CRef (RWST r w s m) a -> (a -> (a, b)) -> RWST r w s m b

writeCRef :: CRef (RWST r w s m) a -> a -> RWST r w s m ()

atomicWriteCRef :: CRef (RWST r w s m) a -> a -> RWST r w s m ()

readForCAS :: CRef (RWST r w s m) a -> RWST r w s m (Ticket (RWST r w s m) a)

peekTicket' :: proxy (RWST r w s m) -> Ticket (RWST r w s m) a -> a

casCRef :: CRef (RWST r w s m) a -> Ticket (RWST r w s m) a -> a -> RWST r w s m (Bool, Ticket (RWST r w s m) a)

modifyCRefCAS :: CRef (RWST r w s m) a -> (a -> (a, b)) -> RWST r w s m b

modifyCRefCAS_ :: CRef (RWST r w s m) a -> (a -> a) -> RWST r w s m ()

atomically :: STM (RWST r w s m) a -> RWST r w s m a

readTVarConc :: TVar (STM (RWST r w s m)) a -> RWST r w s m a

throwTo :: Exception e => ThreadId (RWST r w s m) -> e -> RWST r w s m ()

(MonadConc m, Monoid w) => MonadConc (RWST r w s m)

New threads inherit the states of their parent, but do not communicate results back.

Since: 1.0.0.0

Associated Types

type STM (RWST r w s m :: * -> *) :: * -> *

type MVar (RWST r w s m :: * -> *) :: * -> *

type CRef (RWST r w s m :: * -> *) :: * -> *

type Ticket (RWST r w s m :: * -> *) :: * -> *

type ThreadId (RWST r w s m :: * -> *) :: *

Methods

fork :: RWST r w s m () -> RWST r w s m (ThreadId (RWST r w s m))

forkWithUnmask :: ((forall a. RWST r w s m a -> RWST r w s m a) -> RWST r w s m ()) -> RWST r w s m (ThreadId (RWST r w s m))

forkWithUnmaskN :: String -> ((forall a. RWST r w s m a -> RWST r w s m a) -> RWST r w s m ()) -> RWST r w s m (ThreadId (RWST r w s m))

forkOn :: Int -> RWST r w s m () -> RWST r w s m (ThreadId (RWST r w s m))

forkOnWithUnmask :: Int -> ((forall a. RWST r w s m a -> RWST r w s m a) -> RWST r w s m ()) -> RWST r w s m (ThreadId (RWST r w s m))

forkOnWithUnmaskN :: String -> Int -> ((forall a. RWST r w s m a -> RWST r w s m a) -> RWST r w s m ()) -> RWST r w s m (ThreadId (RWST r w s m))

getNumCapabilities :: RWST r w s m Int

setNumCapabilities :: Int -> RWST r w s m ()

myThreadId :: RWST r w s m (ThreadId (RWST r w s m))

yield :: RWST r w s m ()

threadDelay :: Int -> RWST r w s m ()

newEmptyMVar :: RWST r w s m (MVar (RWST r w s m) a)

newEmptyMVarN :: String -> RWST r w s m (MVar (RWST r w s m) a)

putMVar :: MVar (RWST r w s m) a -> a -> RWST r w s m ()

tryPutMVar :: MVar (RWST r w s m) a -> a -> RWST r w s m Bool

readMVar :: MVar (RWST r w s m) a -> RWST r w s m a

tryReadMVar :: MVar (RWST r w s m) a -> RWST r w s m (Maybe a)

takeMVar :: MVar (RWST r w s m) a -> RWST r w s m a

tryTakeMVar :: MVar (RWST r w s m) a -> RWST r w s m (Maybe a)

newCRef :: a -> RWST r w s m (CRef (RWST r w s m) a)

newCRefN :: String -> a -> RWST r w s m (CRef (RWST r w s m) a)

readCRef :: CRef (RWST r w s m) a -> RWST r w s m a

atomicModifyCRef :: CRef (RWST r w s m) a -> (a -> (a, b)) -> RWST r w s m b

writeCRef :: CRef (RWST r w s m) a -> a -> RWST r w s m ()

atomicWriteCRef :: CRef (RWST r w s m) a -> a -> RWST r w s m ()

readForCAS :: CRef (RWST r w s m) a -> RWST r w s m (Ticket (RWST r w s m) a)

peekTicket' :: proxy (RWST r w s m) -> Ticket (RWST r w s m) a -> a

casCRef :: CRef (RWST r w s m) a -> Ticket (RWST r w s m) a -> a -> RWST r w s m (Bool, Ticket (RWST r w s m) a)

modifyCRefCAS :: CRef (RWST r w s m) a -> (a -> (a, b)) -> RWST r w s m b

modifyCRefCAS_ :: CRef (RWST r w s m) a -> (a -> a) -> RWST r w s m ()

atomically :: STM (RWST r w s m) a -> RWST r w s m a

readTVarConc :: TVar (STM (RWST r w s m)) a -> RWST r w s m a

throwTo :: Exception e => ThreadId (RWST r w s m) -> e -> RWST r w s m ()

Threads

spawn :: MonadConc m => m a -> m (MVar m a)

Create a concurrent computation for the provided action, and return a MVar which can be used to query the result.

Since: 1.0.0.0

forkFinally :: MonadConc m => m a -> (Either SomeException a -> m ()) -> m (ThreadId m)

Fork a thread and call the supplied function when the thread is about to terminate, with an exception or a returned value. The function is called with asynchronous exceptions masked.

This function is useful for informing the parent when a child terminates, for example.

Since: 1.0.0.0

killThread :: MonadConc m => ThreadId m -> m ()

Raise the ThreadKilled exception in the target thread. Note that if the thread is prepared to catch this exception, it won't actually kill it.

Since: 1.0.0.0

Named Threads

forkN :: MonadConc m => String -> m () -> m (ThreadId m)

Like fork, but the thread is given a name which may be used to present more useful debugging information.

If no name is given, the ThreadId is used. If names conflict, successive threads with the same name are given a numeric suffix, counting up from 1.

Since: 1.0.0.0

forkOnN :: MonadConc m => String -> Int -> m () -> m (ThreadId m)

Like forkOn, but the thread is given a name which may be used to present more useful debugging information.

If no name is given, the ThreadId is used. If names conflict, successive threads with the same name are given a numeric suffix, counting up from 1.

Since: 1.0.0.0

Bound Threads

MonadConc does not support bound threads, if you need that sort of thing you will have to use regular IO.

rtsSupportsBoundThreads :: Bool

Provided for compatibility, always returns False.

Since: 1.0.0.0

isCurrentThreadBound :: MonadConc m => m Bool

Provided for compatibility, always returns False.

Since: 1.0.0.0

Exceptions

throw :: (MonadConc m, Exception e) => e -> m a

Throw an exception. This will "bubble up" looking for an exception handler capable of dealing with it and, if one is not found, the thread is killed.

Since: 1.0.0.0

catch :: (MonadConc m, Exception e) => m a -> (e -> m a) -> m a

Catch an exception. This is only required to be able to catch exceptions raised by throw, unlike the more general Control.Exception.catch function. If you need to be able to catch all errors, you will have to use IO.

Since: 1.0.0.0

mask :: MonadConc m => ((forall a. m a -> m a) -> m b) -> m b

Executes a computation with asynchronous exceptions masked. That is, any thread which attempts to raise an exception in the current thread with throwTo will be blocked until asynchronous exceptions are unmasked again.

The argument passed to mask is a function that takes as its argument another function, which can be used to restore the prevailing masking state within the context of the masked computation. This function should not be used within an uninterruptibleMask.

Since: 1.0.0.0

mask_ :: MonadMask m => m a -> m a

Like mask, but does not pass a restore action to the argument.

uninterruptibleMask :: MonadConc m => ((forall a. m a -> m a) -> m b) -> m b

Like mask, but the masked computation is not interruptible. THIS SHOULD BE USED WITH GREAT CARE, because if a thread executing in uninterruptibleMask blocks for any reason, then the thread (and possibly the program, if this is the main thread) will be unresponsive and unkillable. This function should only be necessary if you need to mask exceptions around an interruptible operation, and you can guarantee that the interruptible operation will only block for a short period of time. The supplied unmasking function should not be used within a mask.

Since: 1.0.0.0

uninterruptibleMask_ :: MonadMask m => m a -> m a

Like uninterruptibleMask, but does not pass a restore action to the argument.

Mutable State

newMVar :: MonadConc m => a -> m (MVar m a)

Create a new MVar containing a value.

Since: 1.0.0.0

newMVarN :: MonadConc m => String -> a -> m (MVar m a)

Create a new MVar containing a value, but it is given a name which may be used to present more useful debugging information.

If no name is given, a counter starting from 0 is used. If names conflict, successive MVars with the same name are given a numeric suffix, counting up from 1.

Since: 1.0.0.0

cas :: MonadConc m => CRef m a -> a -> m (Bool, a)

Compare-and-swap a value in a CRef, returning an indication of success and the new value.

Since: 1.0.0.0

peekTicket :: forall m a. MonadConc m => Ticket m a -> m a

Extract the actual Haskell value from a Ticket.

This doesn't do do any monadic computation, the m appears in the result type to determine the m in the Ticket type.

Since: 1.0.0.0

Utilities for instance writers

liftedF :: (MonadTransControl t, MonadConc m) => (forall x. StT t x -> x) -> (m a -> m b) -> t m a -> t m b

Given a function to remove the transformer-specific state, lift a function invocation.

Since: 1.0.0.0

liftedFork :: (MonadTransControl t, MonadConc m) => (forall x. StT t x -> x) -> (((forall x. m x -> m x) -> m a) -> m b) -> ((forall x. t m x -> t m x) -> t m a) -> t m b

Given a function to remove the transformer-specific state, lift a fork(on)WithUnmask invocation.

Since: 1.0.0.0