• Home
• com.github.japgolly.fork.monocle
• monocle-core_sjs0.5_2.11
• 1.0.1
• source code
• Disjunction.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.

monocle.std.Disjunction.scala Maven / Gradle / Ivy

package monocle.std

import scalaz.{ \/-, -\/, \/ }
import monocle.PPrism

object disjunction extends DisjunctionFunctions

trait DisjunctionFunctions {
  
  def left[A, B, C]: PPrism[A \/ B, C \/ B, A, C] =
    PPrism[A \/ B, C \/ B, A, C](_.swap.bimap(\/-.apply, identity))(-\/.apply)

  def right[A, B, C]: PPrism[A \/ B, A \/ C, B, C] =
    PPrism[A \/ B, A \/ C, B, C](_.bimap(-\/.apply, identity))(\/-.apply)
}