Control.Eff.Coroutine

Coroutines implemented with extensible effects

Documentation

data Yield a b v where

Co-routines The interface is intentionally chosen to be the same as in transf.hs

| The yield request: reporting a value of type e and suspending the coroutine. Resuming with the value of type b

Constructors

Yield :: a -> Yield a b b

Instances

Handle (Yield a b) (Yield a b ': r) w (Eff r (Y r b a))

Given a continuation and a request, respond to it

Defined in Control.Eff.Coroutine

Methods

handle :: (Eff (Yield a b ': r) w -> Eff r (Y r b a)) -> Arrs (Yield a b ': r) v w -> Yield a b v -> Eff r (Y r b a)

handle_relay :: ((Yield a b ': r) ~ (Yield a b ': r'), Relay (Eff r (Y r b a)) r') => (w -> Eff r (Y r b a)) -> (Eff (Yield a b ': r) w -> Eff r (Y r b a)) -> Eff (Yield a b ': r) w -> Eff r (Y r b a)

respond_relay :: (w -> Eff r (Y r b a)) -> (Eff (Yield a b ': r) w -> Eff r (Y r b a)) -> Eff (Yield a b ': r) w -> Eff r (Y r b a)

withCoroutine :: Monad m => b -> m (Y r w a)

Return a pure value

yield :: Member (Yield a b) r => a -> Eff r b

Yield a value of type a and suspend the coroutine.

runC :: Eff (Yield a b ': r) w -> Eff r (Y r b a)

Launch a thread and report its status

data Y r w a

Status of a thread: done or reporting the value of the type a (For simplicity, a co-routine reports a value but accepts unit)

Type parameter r is the effect we're yielding from.

Type parameter a is the type that is yielded.

Type parameter w is the type of the value returned from the coroutine when it has completed.

Constructors

Y (w -> Eff r (Y r w a)) a

Done

Instances

Handle (Yield a b) (Yield a b ': r) w (Eff r (Y r b a))

Given a continuation and a request, respond to it

Defined in Control.Eff.Coroutine

Methods

handle :: (Eff (Yield a b ': r) w -> Eff r (Y r b a)) -> Arrs (Yield a b ': r) v w -> Yield a b v -> Eff r (Y r b a)

handle_relay :: ((Yield a b ': r) ~ (Yield a b ': r'), Relay (Eff r (Y r b a)) r') => (w -> Eff r (Y r b a)) -> (Eff (Yield a b ': r) w -> Eff r (Y r b a)) -> Eff (Yield a b ': r) w -> Eff r (Y r b a)

respond_relay :: (w -> Eff r (Y r b a)) -> (Eff (Yield a b ': r) w -> Eff r (Y r b a)) -> Eff (Yield a b ': r) w -> Eff r (Y r b a)