EitherT, partially applied

EitherT.scala

import cats.{Applicative, Functor}
import cats.data.EitherT
import scala.language.higherKinds

object EitherTF {

  def apply[F[_], A]: EitherTPartiallyApplied[F, A] =
    new EitherTPartiallyApplied[F, A]
}

class EitherTPartiallyApplied[F[_], A](val dummy: Boolean = true)
    extends AnyVal {
  def apply[B](value: F[Either[A, B]]): EitherT[F, A, B] = EitherT(value)

  def right[B](fb: F[B])(implicit f: Functor[F]): EitherT[F, A, B] =
    EitherT.right[A](fb)

  def leftT[B](a: A)(implicit f: Applicative[F]): EitherT[F, A, B] =
    EitherT.leftT[F, B](a)

  def fromEither[B](either: Either[A, B])(
      implicit f: Applicative[F]): EitherT[F, A, B] =
    EitherT.fromEither[F](either)
}

package.scala

import cats.data.EitherT
import scala.concurrent.Future

package object example {
  sealed trait ApiError
  case object ServerError extends ApiError
  case object AccessDenied extends ApiError

  type ApiResponse[A] = EitherT[Future, ApiError, A]

  val ApiResponse = EitherT[Future, ApiError]
}