Data.Functor.Coproduct

Documentation

newtype Coproduct f g a

Constructors

Coproduct

Fields

getCoproduct :: Either (f a) (g a)

Instances

(Functor f, Functor g) => Functor (Coproduct f g)

(Foldable f, Foldable g) => Foldable (Coproduct f g)

(Traversable f, Traversable g) => Traversable (Coproduct f g)

(Contravariant f, Contravariant g) => Contravariant (Coproduct f g)

(Comonad f, Comonad g) => Comonad (Coproduct f g)

(Eq (f a), Eq (g a)) => Eq (Coproduct f g a)

(Ord (f a), Ord (g a)) => Ord (Coproduct f g a)

(Read (f a), Read (g a)) => Read (Coproduct f g a)

(Show (f a), Show (g a)) => Show (Coproduct f g a)

left :: f a -> Coproduct f g a

right :: g a -> Coproduct f g a

coproduct :: (f a -> b) -> (g a -> b) -> Coproduct f g a -> b