teststate.core.PointOps.scala Maven / Gradle / Ivy

Go to download

Show more of this group Show more artifacts with this name
Show all versions of core_sjs0.6_2.11 Show documentation

core

The newest version!

package teststate.core

import acyclic.file
import teststate.data.Sack
import teststate.typeclass._
import Around.{When, Before, After}
import Profunctor.ToOps._
import Types._

object PointOps {

  final class Ops[O, S, E](private val p: Points[O, S, E]) extends AnyVal {
    private def toAround(when: When): Arounds[O, S, E] =
      p.rmap(_ map (Around.Point(_, when)))

    def before: Arounds[O, S, E] =
      toAround(Before)

    def after: Arounds[O, S, E] =
      toAround(After)

    def beforeAndAfter: Arounds[O, S, E] =
      Sack.append(before, after)
  }

  trait Implicits {
    implicit def pointsToPointsOps[O, S, E](p: Points[O, S, E]): Ops[O, S, E] =
      new Ops(p)
  }
}