promise.scala

  implicit val PromiseInstance = new Monad[Promise] {
    def point[A](a: => A) = Promise.pure(a)
    def bind[A, B](fa: Promise[A])(f: A => Promise[B]) = fa.flatMap(f)
  }