• Home
• org.scalaz
• scalaz-core_native0.5_3
• 7.4.0-M15
• source code
• ContravariantSyntax.scala

×

Project download

Many resources are needed to download a project. Please understand that we have to compensate our server costs. Thank you in advance.
Project price only 1 $

You can buy this project and download/modify it how often you want.

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

package scalaz
package syntax

/** Wraps a value `self` and provides methods related to `Contravariant` */
final class ContravariantOps[F[_],A] private[syntax](val self: F[A])(implicit val F: Contravariant[F]) extends Ops[F[A]] {
  ////
  final def contramap[B](f: B => A): F[B] = F.contramap(self)(f)
  final def ∙[B](f: B => A): F[B] = F.contramap(self)(f)
  ////
}

sealed trait ToContravariantOpsU[TC[F[_]] <: Contravariant[F]] {
  implicit def ToContravariantOpsUnapply[FA](v: FA)(implicit F0: Unapply[TC, FA]): ContravariantOps[F0.M, F0.A] =
    new ContravariantOps[F0.M, F0.A](F0(v))(F0.TC)

}

trait ToContravariantOps0[TC[F[_]] <: Contravariant[F]] extends ToContravariantOpsU[TC] {
  implicit def ToContravariantOps[F[_],A](v: F[A])(implicit F0: TC[F]): ContravariantOps[F, A] =
    new ContravariantOps[F, A](v)

  ////

  ////
}

trait ToContravariantOps[TC[F[_]] <: Contravariant[F]] extends ToContravariantOps0[TC] with ToInvariantFunctorOps[TC]

trait ContravariantSyntax[F[_]] extends InvariantFunctorSyntax[F] {
  implicit def ToContravariantOps[A](v: F[A]): ContravariantOps[F, A] = new ContravariantOps[F,A](v)(ContravariantSyntax.this.F)

  def F: Contravariant[F]
  ////

  ////
}