When_eric_evans meet optional_fold.scala

trait OptionSyntax {
  implicit class OptionOps[A](s: Option[A]) {
    def ifExists[F[_], B](f: A => F[B]): PartialOption[F, B] =
      s match {
        case Some(value) => new PartialOption(Some(f(value)))
        case None        => new PartialOption(None)
      }
  }
}

object OptionSyntax extends OptionSyntax {
  class PartialOption[F[_], A](f: Option[F[A]]) {
    def orElse(g: F[A]): F[A] =
      f.fold(g)(identity)
  }
}


// Usage

def transform[A, B]: Option[A => B] = None
val data: A = ???

optionalTransformation
  .ifExists(transform => IO.delay(transform(data))
  .orElse(IO.pure(data))