metatrait 0.0.0-alpha.1

RPITIT Monads
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

use either::Either;

use crate::{
    cat::{functor::*, morphism::MapFn},
    traits::either::{IntoEither, IntoEitherExt},
    Impl, Trait,
};

pub struct Eithers<L>(L);

impl<L, Tr: ?Sized + Trait> Unwrap<IntoEither<L, Tr>> for Eithers<L> {
    type Tr = Tr;
}

impl<L> Wrap for Eithers<L> {
    type Wrap<Tr: ?Sized + Trait> = IntoEither<L, Tr>;
}

impl<L> Pure for Eithers<L> {
    fn pure<Tr: ?Sized + Trait>(x: impl Impl<Tr>) -> impl Impl<Self::Wrap<Tr>> {
        Either::Right(x)
    }
}

impl<L> Map for Eithers<L> {
    fn map<F: MapFn<In>, In: ?Sized + Trait>(
        x: impl Impl<Self::Wrap<In>>,
        f: F,
    ) -> impl Impl<Self::Wrap<F::Out>> {
        x.into_either().map_right(|x| f.run(x))
    }
}