Haskus.Utils.ContFlow

Continuation based control-flow

Documentation

newtype ContFlow (xs :: [Type]) r

A continuation based control-flow

Constructors

ContFlow (ContTuple xs r -> r)

type family ContTuple (xs :: [Type]) r where ...

Convert a list of types into the actual data type representing the continuations.

Equations

ContTuple xs r = Tuple (ToMultiCont xs r)

(>:>) :: MultiCont a => a -> ContTuple (MultiContTypes a) r -> r infixl 0

Bind a multi-continuable type to a tuple of continuations

(>-:>) :: (MultiCont a, MultiContTypes a ~ '[b]) => a -> (b -> r) -> r infixl 0

Bind a single-continuable type to a 1-tuple of continuations

(>%:>) :: (MultiCont a, ReorderTuple ts (ContTuple (MultiContTypes a) r)) => a -> ts -> r infixl 0

Bind a multi-continuable type to a tuple of continuations and reorder fields if necessary

(>::>) :: ContFlow xs r -> ContTuple xs r -> r infixl 0

Bind a flow to a tuple of continuations

(>:-:>) :: ContFlow '[a] r -> (a -> r) -> r infixl 0

Bind a flow to a 1-tuple of continuations

(>:%:>) :: forall ts xs r. ReorderTuple ts (ContTuple xs r) => ContFlow xs r -> ts -> r infixl 0

Bind a flow to a tuple of continuations and reorder fields if necessary

type family ToMultiCont xs r where ...

Equations

ToMultiCont '[] r = '[]

ToMultiCont (x ': xs) r = (x -> r) ': ToMultiCont xs r

class MultiCont a where

A multi-continuable type

Associated Types

type MultiContTypes a :: [Type]

Methods

toCont :: a -> ContFlow (MultiContTypes a) r

Convert a data into a multi-continuation

toContM :: Monad m => m a -> ContFlow (MultiContTypes a) (m r)

Convert a data into a multi-continuation (monadic)

Instances

ContVariant xs => MultiCont (V xs)

Defined in Haskus.Utils.Variant

Associated Types

type MultiContTypes (V xs) :: [Type]

Methods

toCont :: V xs -> ContFlow (MultiContTypes (V xs)) r

toContM :: Monad m => m (V xs) -> ContFlow (MultiContTypes (V xs)) (m r)

(Functor (VariantF xs), ContVariant (ApplyAll (EADT xs) xs)) => MultiCont (EADT xs)

MultiCont instance

>>> let f x = toCont x >::> (const "[]", \(ConsF u us) -> u ++ ":" ++ f us)
>>> f a
"Hello:World:[]"

Defined in Haskus.Utils.EADT

Associated Types

type MultiContTypes (EADT xs) :: [Type]

Methods

toCont :: EADT xs -> ContFlow (MultiContTypes (EADT xs)) r

toContM :: Monad m => m (EADT xs) -> ContFlow (MultiContTypes (EADT xs)) (m r)

ContVariant (ApplyAll e xs) => MultiCont (VariantF xs e)

Defined in Haskus.Utils.VariantF

Associated Types

type MultiContTypes (VariantF xs e) :: [Type]

Methods

toCont :: VariantF xs e -> ContFlow (MultiContTypes (VariantF xs e)) r

toContM :: Monad m => m (VariantF xs e) -> ContFlow (MultiContTypes (VariantF xs e)) (m r)