public static MonadOr <TResult> ReplaceBy <TSource, TResult>(
this MonadOr <TSource> @this,
TResult value)
{
Require.NotNull(@this, nameof(@this));
return(@this.Select(_ => value));
}
/// <seealso cref="Apply{TSource, TResult}(MonadOr{Func{TSource, TResult}}, MonadOr{TSource})" />
public static MonadOr <TResult> Gather <TSource, TResult>(
this MonadOr <TSource> @this,
MonadOr <Func <TSource, TResult> > applicative)
{
Require.NotNull(@this, nameof(@this));
Require.NotNull(applicative, nameof(applicative));
return(applicative.Bind(func => @this.Select(func)));
}
// Select() with automatic resource management.
public static MonadOr <TResult> Using <TSource, TResult>(
this MonadOr <TSource> @this,
Func <TSource, TResult> selector)
where TSource : IDisposable
{
Require.NotNull(@this, nameof(@this));
Require.NotNull(selector, nameof(selector));
return(@this.Select(val => { using (val) { return selector(val); } }));
}
private static Func <TKey, MonadOr <TInner> > GetKeyLookup <TInner, TKey>(
MonadOr <TInner> inner,
Func <TInner, TKey> innerKeySelector,
IEqualityComparer <TKey> comparer)
{
Debug.Assert(inner != null);
Debug.Assert(innerKeySelector != null);
return(outerKey =>
inner.Select(innerKeySelector)
.Where(innerKey => (comparer ?? EqualityComparer <TKey> .Default).Equals(innerKey, outerKey))
.ContinueWith(inner));
}
/// <seealso cref="MonadOr.Lift{T1, T2, TResult}"/>
public static MonadOr <TResult> ZipWith <T1, T2, TResult>(
this MonadOr <T1> @this,
MonadOr <T2> second,
Func <T1, T2, TResult> zipper)
{
Require.NotNull(@this, nameof(@this));
Require.NotNull(second, nameof(second));
Require.NotNull(zipper, nameof(zipper));
return(@this.Bind(
arg1 => second.Select(
arg2 => zipper(arg1, arg2))));
}
