Haskus.Utils.ContFlow

Continuation based control-flow

Documentation

newtype ContFlow xs r

A continuation based control-flow

Constructors

ContFlow (ContListToTuple xs r -> r)

(>::>) :: ContFlow xs r -> ContListToTuple 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 (ContListToTuple xs r) => ContFlow xs r -> ts -> r infixl 0

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

fret :: forall x r t n xs. (ExtractTuple n t (x -> r), xs ~ ContTupleToList t r, Member x xs, n ~ IndexOf x xs, KnownNat n, CheckNub xs) => t -> x -> r

Call the type-indexed continuation from the tuple passed as first parameter

fretN :: forall n x r t xs. (ExtractTuple n t (x -> r), xs ~ ContTupleToList t r, x ~ Index n xs, KnownNat n) => t -> x -> r

Call the indexed continuation from the tuple passed as first parameter

freturn :: forall x r t n xs. (ExtractTuple n t (x -> r), xs ~ ContTupleToList t r, Member x xs, n ~ IndexOf x xs, KnownNat n, CheckNub xs, ?__cs :: t) => x -> r

Implicitly call the type-indexed continuation in the context

freturnN :: forall n x r t xs. (ExtractTuple n t (x -> r), xs ~ ContTupleToList t r, x ~ Index n xs, KnownNat n, ?__cs :: t) => x -> r

Implicitly call the type-indexed continuation in the context

frec :: forall r xs. (?__cs :: ContListToTuple xs r) => ContFlow xs r -> r

Recursive call

type family ContListToTuple (xs :: [*]) r where ...

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

Equations

ContListToTuple xs r = ListToTuple (AddR xs r)

type family ContTupleToList t r :: [*] where ...

Convert a tuple of continuations into a list of types

Equations

ContTupleToList t r = StripR (TupleToList t) r

type family StripR f r where ...

Equations

StripR '[] r = '[]

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

StripR ((x -> w) ': xs) r = TypeError ((((Text "Invalid continuation return type `" :<>: ShowType w) :<>: Text "', expecting `") :<>: ShowType r) :<>: Text "'")

type family AddR f r where ...

Equations

AddR '[] r = '[]

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

Control-flow

fIf :: Bool -> ContFlow '[Then, Else] r

data Then

Constructors

Then

data Else

Constructors

Else