Simple EitherT monad transformer example

EitherT.scala

import scala.concurrent.ExecutionContext.Implicits.global
import scala.concurrent.duration._
import scala.concurrent.{Await, Future}
import scalaz.Scalaz._
import scalaz._

case class Person(name: String, age: Int, teamId: Int)
case class Team(name: String)

object Main extends App {

  def findPersonById(id: Int): Future[Option[Person]] = Future.successful(Some(Person("Mark", 30, 1)))
  def findTeamById(id: Int): Future[Option[Team]] = Future.successful(None)

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

  def fromValue[A](v: A) = EitherT[Future, String, A](Future.successful(\/-(v)))
  def fromOption[A](v: Option[A], errMsg: String) = EitherT[Future, String, A](Future.successful(v.fold[String \/ A](-\/(errMsg))(\/-.apply)))
  def fromFutureOption[A](v: Future[Option[A]], errMsg: String) = EitherT[Future, String, A](v.map(_.fold[String \/ A](-\/(errMsg))(\/-.apply)))

  val program: Program[Team] = for {
    person <- fromFutureOption(findPersonById(1), "Person cannot be found")
    team <- fromFutureOption(findTeamById(person.teamId), "Team cannot be found")
  } yield team
  
  println(Await.result(program.run, 2.seconds))


}