Kleisli [Future, Context, \ /] to Kleisli [EitherT, Context, ...]

Question

Как я хочу объединить Kleisli, который работает на длинных методах Future, который может завершиться неудачно Either, мне нужно уложить эффект. Вот результирующий код для складывания эффекта в Kleisli. Есть ли в скалясе существующий комбинатор?

type FutureEitherT[A] = EitherT[Future, String, A] 

def toKleisliEitherTFromDisjunction[A](f: Kleisli[Future, Context,String \/ A]) = 
    Kleisli[FutureEitherT, Context, A] { ctx => EitherT(f(ctx)) } 

Я безуспешно пытался f.liftMK[FutureEitherT], но, к сожалению, третий типы в конструкторе Kleisli типа по-прежнему является Either.

Answer 1

Вы можете использовать mapK:

import scala.concurrent.Future 
import scala.concurrent.ExecutionContext.Implicits.global 
import scalaz.{\/, EitherT, Kleisli} 
import scalaz.std.scalaFuture 

type FutureEitherT[A] = EitherT[Future, String, A] 

val futureK: Kleisli[Future, Int, String \/ Int] = 
    Kleisli.ask[Future, Int] map (i => \/.right[String, Int](i))) 

futureK mapK[FutureEitherT, Int](EitherT.eitherT) 
// scalaz.Kleisli[FutureEitherT,Int,Int] = Kleisli(<function1>)