PTV/radn-rs
1
1
Fork 0
Code Issues 3 Pull Requests Packages Projects Releases Wiki Activity

extract lifetime

Browse Source
This commit is contained in:
AF 2023-05-26 07:41:41 +00:00
parent 9a2547a4e7
commit 68f9c82402
2 changed files with 19 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/func.rs
View File

@ -383,7 +383,7 @@ pub trait MonadFailAnyExt: MonadFailAny {
where where
Self: 'a, Self: 'a,
{ {
<Self as speculative::SpeculativeFail>::speculative(wwa, wwb) <Self as speculative::SpeculativeFail<'a>>::speculative(wwa, wwb)
} }
} }

60
src/func/speculative.rs
View File

@ -5,72 +5,54 @@ type Frwa<'a, A, E0, E1, Fallible> =
type Wwa<'a, A, E0, E1, Fallible> = WrapE<'a, WrapE<'a, A, E0, Fallible>, E1, Fallible>; type Wwa<'a, A, E0, E1, Fallible> = WrapE<'a, WrapE<'a, A, E0, Fallible>, E1, Fallible>;
pub trait SpeculativeFail: MonadFailAny { pub trait SpeculativeFail<'a>: 'a + MonadFailAny {
fn _speculative_a_wb<'a, A: 'a, B: 'a, E0: 'a, E1: 'a>( fn _speculative_a_wb<A: 'a, B: 'a, E0: 'a, E1: 'a>(
a: A, a: A,
wb: WrapE<'a, B, E0, Self>, wb: WrapE<'a, B, E0, Self>,
) -> WrapE<'a, (A, B), Result<E0, E1>, Self> ) -> WrapE<'a, (A, B), Result<E0, E1>, Self> {
where
Self: 'a,
{
Self::map_err(<Self::W<E0> as Functor>::fmap(|b| (a, b), wb), Ok) Self::map_err(<Self::W<E0> as Functor>::fmap(|b| (a, b), wb), Ok)
} }
fn _speculative_ra_wb<'a, A: 'a, B: 'a, E0: 'a, E1: 'a>( fn _speculative_ra_wb<A: 'a, B: 'a, E0: 'a, E1: 'a>(
ra: Result<A, E0>, ra: Result<A, E0>,
wb: WrapE<'a, B, E0, Self>, wb: WrapE<'a, B, E0, Self>,
) -> WrapE<'a, (A, B), Result<E0, E1>, Self> ) -> WrapE<'a, (A, B), Result<E0, E1>, Self> {
where
Self: 'a,
{
match ra { match ra {
Ok(a) => Self::_speculative_a_wb(a, wb), Ok(a) => Self::_speculative_a_wb(a, wb),
Err(e0) => Self::fail(Ok(e0)), Err(e0) => Self::fail(Ok(e0)),
} }
} }
fn _speculative_ra_rwb<'a, A: 'a, B: 'a, E0: 'a, E1: 'a>( fn _speculative_ra_rwb<A: 'a, B: 'a, E0: 'a, E1: 'a>(
ra: Result<A, E0>, ra: Result<A, E0>,
rwb: Result<WrapE<'a, B, E0, Self>, E1>, rwb: Result<WrapE<'a, B, E0, Self>, E1>,
) -> WrapE<'a, (A, B), Result<E0, E1>, Self> ) -> WrapE<'a, (A, B), Result<E0, E1>, Self> {
where
Self: 'a,
{
match rwb { match rwb {
Ok(wb) => Self::_speculative_ra_wb(ra, wb), Ok(wb) => Self::_speculative_ra_wb(ra, wb),
Err(e1) => Self::fail(Err(e1)), Err(e1) => Self::fail(Err(e1)),
} }
} }
fn _speculative_ra_frwb<'a, A: 'a, B: 'a, E0: 'a, E1: 'a>( fn _speculative_ra_frwb<A: 'a, B: 'a, E0: 'a, E1: 'a>(
ra: Result<A, E0>, ra: Result<A, E0>,
frwb: Frwa<'a, B, E0, E1, Self>, frwb: Frwa<'a, B, E0, E1, Self>,
) -> WrapE<'a, (A, B), Result<E0, E1>, Self> ) -> WrapE<'a, (A, B), Result<E0, E1>, Self> {
where
Self: 'a,
{
Self::stuff(<Self::T as Monad>::bind(frwb, |rwb| { Self::stuff(<Self::T as Monad>::bind(frwb, |rwb| {
Self::unstuff(Self::_speculative_ra_rwb(ra, rwb)) Self::unstuff(Self::_speculative_ra_rwb(ra, rwb))
})) }))
} }
fn _speculative_fra_wb<'a, A: 'a, B: 'a, E0: 'a>( fn _speculative_fra_wb<A: 'a, B: 'a, E0: 'a>(
fra: Wrap<'a, Result<A, E0>, Self::T>, fra: Wrap<'a, Result<A, E0>, Self::T>,
wb: WrapE<'a, B, E0, Self>, wb: WrapE<'a, B, E0, Self>,
) -> WrapE<'a, (A, B), E0, Self> ) -> WrapE<'a, (A, B), E0, Self> {
where
Self: 'a,
{
<Self::W<E0> as ApplicativeTuple>::tuple((Self::stuff(fra), wb)) <Self::W<E0> as ApplicativeTuple>::tuple((Self::stuff(fra), wb))
} }
fn _speculative_wa_frwb<'a, A: 'a, B: 'a, E0: 'a, E1: 'a>( fn _speculative_wa_frwb<A: 'a, B: 'a, E0: 'a, E1: 'a>(
wa: WrapE<'a, A, E0, Self>, wa: WrapE<'a, A, E0, Self>,
frwb: Frwa<'a, B, E0, E1, Self>, frwb: Frwa<'a, B, E0, E1, Self>,
) -> WrapE<'a, (A, B), Result<E0, E1>, Self> ) -> WrapE<'a, (A, B), Result<E0, E1>, Self> {
where
Self: 'a,
{
Self::stuff(<<Self as MonadFailAny>::T as Monad>::join( Self::stuff(<<Self as MonadFailAny>::T as Monad>::join(
<<Self as MonadFailAny>::T as Functor>::fmap( <<Self as MonadFailAny>::T as Functor>::fmap(
Self::unstuff, Self::unstuff,
@ -89,26 +71,20 @@ pub trait SpeculativeFail: MonadFailAny {
)) ))
} }
fn _speculative_frwa_wb<'a, A: 'a, B: 'a, E0: 'a, E1: 'a>( fn _speculative_frwa_wb<A: 'a, B: 'a, E0: 'a, E1: 'a>(
frwa: Frwa<'a, A, E0, E1, Self>, frwa: Frwa<'a, A, E0, E1, Self>,
wb: WrapE<'a, B, E0, Self>, wb: WrapE<'a, B, E0, Self>,
) -> WrapE<'a, (A, B), Result<E0, E1>, Self> ) -> WrapE<'a, (A, B), Result<E0, E1>, Self> {
where
Self: 'a,
{
<Self::W<Result<E0, E1>> as Functor>::fmap( <Self::W<Result<E0, E1>> as Functor>::fmap(
|(b, a)| (a, b), |(b, a)| (a, b),
Self::_speculative_wa_frwb(wb, frwa), Self::_speculative_wa_frwb(wb, frwa),
) )
} }
fn speculative<'a, A: 'a, B: 'a, E0: 'a, E1: 'a>( fn speculative<A: 'a, B: 'a, E0: 'a, E1: 'a>(
wwa: Wwa<'a, A, E0, E1, Self>, wwa: Wwa<'a, A, E0, E1, Self>,
wwb: Wwa<'a, B, E0, E1, Self>, wwb: Wwa<'a, B, E0, E1, Self>,
) -> WrapE<'a, (A, B), Result<E0, E1>, Self> ) -> WrapE<'a, (A, B), Result<E0, E1>, Self> {
where
Self: 'a,
{
Self::stuff(<Self::T as Monad>::join(<Self::T as Functor>::fmap( Self::stuff(<Self::T as Monad>::join(<Self::T as Functor>::fmap(
Self::unstuff, Self::unstuff,
Self::T::select_map( Self::T::select_map(
@ -125,4 +101,4 @@ pub trait SpeculativeFail: MonadFailAny {
} }
} }
impl<Fallible: ?Sized + MonadFailAny> SpeculativeFail for Fallible {} impl<'a, Fallible: ?Sized + 'a + MonadFailAny> SpeculativeFail<'a> for Fallible {}