Data.Extensible.Sum

Documentation

data h :| s where

The extensible sum type

Constructors

UnionAt :: Position xs x -> h x -> h :| xs

Instances

Typeable ((k -> *) -> [k] -> *) ((:|) k)

(Show (h x), Show ((:|) k h xs)) => Show ((:|) k h ((:) k x xs))

Show ((:|) k h ([] k))

hoist :: (forall x. g x -> h x) -> (g :| xs) -> h :| xs

Change the wrapper.

embed :: x ∈ xs => h x -> h :| xs

O(log n) lift a value.

(<:|) :: (h x -> r) -> ((h :| xs) -> r) -> (h :| (x : xs)) -> r infixr 1

O(1) Naive pattern match

exhaust :: (h :| []) -> r

There is no empty union.

picked :: forall f h x xs. (x ∈ xs, Applicative f) => (h x -> f (h x)) -> (h :| xs) -> f (h :| xs)

A traversal that tries to point a specific element.