scalaz.syntax.InvariantFunctorSyntax.scala Maven / Gradle / Ivy

Go to download
package scalaz
package syntax

/** Wraps a value `self` and provides methods related to `InvariantFunctor` */
final class InvariantFunctorOps[F[_],A] private[syntax](val self: F[A])(implicit val F: InvariantFunctor[F]) extends Ops[F[A]] {
  ////

  import BijectionT.Bijection
  import Isomorphism.<=>

  final def xmap[B](f: A => B, g: B => A): F[B] = F.xmap(self, f, g)
  final def xmapb[B](b: Bijection[A, B]): F[B] = F.xmapb(self)(b)
  final def xmapi[B](iso: A <=> B): F[B] = F.xmapi(self)(iso)
  ////
}

sealed trait ToInvariantFunctorOpsU[TC[F[_]] <: InvariantFunctor[F]] {
  implicit def ToInvariantFunctorOpsUnapply[FA](v: FA)(implicit F0: Unapply[TC, FA]): InvariantFunctorOps[F0.M, F0.A] =
    new InvariantFunctorOps[F0.M, F0.A](F0(v))(F0.TC)

}

trait ToInvariantFunctorOps0[TC[F[_]] <: InvariantFunctor[F]] extends ToInvariantFunctorOpsU[TC] {
  implicit def ToInvariantFunctorOps[F[_],A](v: F[A])(implicit F0: TC[F]): InvariantFunctorOps[F, A] =
    new InvariantFunctorOps[F, A](v)

  ////

  ////
}

trait ToInvariantFunctorOps[TC[F[_]] <: InvariantFunctor[F]] extends ToInvariantFunctorOps0[TC]

trait InvariantFunctorSyntax[F[_]]  {
  implicit def ToInvariantFunctorOps[A](v: F[A]): InvariantFunctorOps[F, A] = new InvariantFunctorOps[F,A](v)(InvariantFunctorSyntax.this.F)

  def F: InvariantFunctor[F]
  ////

  ////
}