Data.Diverse.Profunctor.Many

Combinators similar to Profunctor Strong

type Have a b s t = (Had a s, t ~ Replaced a b s)

A friendlier constraint synonym for have.

have :: forall w a b s t. (Profunctor w, Strong w, Have a b s t) => w a b -> w s t

Like Strong or Arrow but lifting into Many

haveK :: forall m a b s t. (Monad m, Have a b s t) => (a -> m b) -> s -> m t

have under Kleisli

type Projected a1 a2 b1 b2 = (Select a1 a2, Amend a1 b1 a2, b2 ~ Replaces a1 b1 a2)

A friendlier constraint synonym for projected.

projected :: forall w a1 a2 b1 b2. (Strong w, Projected a1 a2 b1 b2) => w (Many a1) (Many b1) -> w (Many a2) (Many b2)

Like Strong or Arrow but lifting from a Many to a Many of another type

projectedK :: forall m a1 a2 b1 b2. (Monad m, Projected a1 a2 b1 b2) => (Many a1 -> m (Many b1)) -> Many a2 -> m (Many b2)

projected under Kleisli

type MakeFrom a1 a2 a3 = (Select a1 a3, Select a2 a3, a3 ~ AppendUnique a1 a2)

type MakeBoth b1 b2 b3 = b3 ~ Append b1 b2

A friendlier constraint synonym for *&&*.

makeBesides :: forall w a1 a2 a3 b1 b2 b3. (Category w, Strong w, MakeFrom a1 a2 a3, MakeBoth b1 b2 b3) => w (Many a1) (Many b1) -> w (Many a2) (Many b2) -> w (Many a3) (Many b3) infixr 3

Split the input between the two argument arrows and combine their output. The type of the resultant input is a Many of all the unique types in the argument arrows' inputs, The type of the resultant output is a concatenated Many of the arguments arrows' outputs. Analogous to a Many combination of both of *** and &&&. It is a compile error if the types are not distinct in each of the argument arrow inputs.

makeBesidesK :: forall m a1 a2 a3 b1 b2 b3. (Monad m, MakeFrom a1 a2 a3, MakeBoth b1 b2 b3) => (Many a1 -> m (Many b1)) -> (Many a2 -> m (Many b2)) -> Many a3 -> m (Many b3) infixr 3

thenMake :: forall w a a2 b1 b2 b3. (Category w, Strong w, Projected a2 b1 b2 b3) => w a (Many b1) -> w (Many a2) (Many b2) -> w a (Many b3) infixr 3

Left-to-right chaining of arrows one after another, where left over input not consumed by the right arrow is forwarded to the output. It is a compile error if the types are not distinct in each of the argument arrow inputs, or if the input of the second arrow is not a complete subset of the output of the first arrow.

thenMakeK :: forall m a a2 b1 b2 b3. (Monad m, Projected a2 b1 b2 b3) => (a -> m (Many b1)) -> (Many a2 -> m (Many b2)) -> a -> m (Many b3) infixr 3