将所有类型提升到monad变压器中

Question

我有这3个monad变压器

type T[A] = OptionT[Future, A]
type E[A] = EitherT[Future, String, A]
type P[A] = OptionT[E, A]

我想把相应的全类型(意思是完全对应的类型(提升到这些中。因此，对于T，我想把Future[Option[Int]]提升到其中。对于E，我想提升Future(非此即彼[String，Int](，对于P，我想将(Future[Ieither[String、Option[Int]](提升到其中

我写了这段代码，它编译了。只是我需要一种更简洁的方式来实现同样的目标。

val x : T[Int] = OptionT(Future(Option(10)))
val y : E[Int] = EitherT(Future(Right(10).asInstanceOf[Either[String, Int]]))
val z : P[Int] = OptionT(EitherT(Future(Right(Option(10)).asInstanceOf[Either[String, Option[Int]]])))

我使用的是Cats1.1.0和Scala2.12.3。

asInstanceOf这个东西很烦人。但是如果我把最后一行改成

val z : P[Int] = OptionT(EitherT(Future(Right(Option(10)))))

我得到这个编译器错误

[info] Compiling 1 Scala source to 
[error] /Users//code/dallasscalacats/src/main/scala/com//Transformers.scala:32: no type parameters for method apply: (value: F[Either[A,B]])cats.data.EitherT[F,A,B] in object EitherT exist so that it can be applied to arguments (scala.concurrent.Future[scala.util.Right[Nothing,Option[Int]]])
[error]  --- because ---
[error] argument expression's type is not compatible with formal parameter type;
[error]  found   : scala.concurrent.Future[scala.util.Right[Nothing,Option[Int]]]
[error]  required: ?F[Either[?A,?B]]
[error]     val z : P[Int] = OptionT(EitherT(Future(Right(Option(10)))))
[error]                              ^
[error] /Users//code/dallasscalacats/src/main/scala/com//Transformers.scala:32: type mismatch;
[error]  found   : scala.concurrent.Future[scala.util.Right[Nothing,Option[Int]]]
[error]  required: F[Either[A,B]]
[error]     val z : P[Int] = OptionT(EitherT(Future(Right(Option(10)))))
[error]                                            ^
[error] /Users//code/dallasscalacats/src/main/scala/com//Transformers.scala:32: type mismatch;
[error]  found   : cats.data.EitherT[F,A,B]
[error]  required: com.abhi.Transformers.E[Option[Int]]
[error]     (which expands to)  cats.data.EitherT[scala.concurrent.Future,String,Option[Int]]
[error]     val z : P[Int] = OptionT(EitherT(Future(Right(Option(10)))))
[error]                                     ^
[error] three errors found
[error] (compile:compileIncremental) Compilation failed
[error] Total time: 0 s, completed Jul 11, 2018 9:46:21 PM
>

Answer 1

您可以使用import cats.implicits._的implicits方法然后你可以写一些类似的东西

val z: P[Int] = OptionT(EitherT(Future(10.some.asRight[String])))

当然，你也可以写你自己的隐含词

implicit class EitherFuture[A, B](val e: Future[A Either B]) extends AnyVal {
def asEitherT: EitherT[Future, A, B] = EitherT(e)
}
implicit class OptionEitherT[A](val e: EitherT[Future, String, Option[A]]) extends AnyVal {
def asOptionT = OptionT(e)
}
val zz: P[Int] = Future(10.some.asRight[String]).asEitherT.asOptionT

Answer 2

尝试为Right提供类型参数：

val z : P[Int] = OptionT(EitherT(Future(Right[String,Option[Int]](Option(10)))))

在没有类型参数的情况下，执行Right(1)时，scala会推断出Either[Nothing,Int]。