• Home
• com.pepegar
• hammock-core_sjs0.6_2.12
• 0.11.0
• source code
• marshalling.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.

hammock.marshalling.scala Maven / Gradle / Ivy

package hammock

import cats._
import cats.free._
import cats.effect.Sync

object marshalling {

  sealed trait MarshallF[A] {
    def dec: Decoder[A] // 
  }
  object MarshallF {
    def unmarshall[A: Decoder](entity: Entity): MarshallF[A] =
      Unmarshall(entity)

    private[marshalling] final case class Unmarshall[A](entity: Entity)(implicit D: Decoder[A]) extends MarshallF[A] {
      def dec = D
    }
  }

  object Ops {
    def unmarshall[A: Decoder](entity: Entity): Free[MarshallF, A] =
      Free.liftF(MarshallF.unmarshall(entity))
  }

  class MarshallC[F[_]](implicit I: MarshallF :<: F) {
    def unmarshall[A: Decoder](entity: Entity): Free[F, A] =
      Ops.unmarshall(entity).inject
  }

  implicit def marshallC[F[_]](implicit I: InjectK[MarshallF, F]): MarshallC[F] = new MarshallC[F]

  implicit def marshallNT[F[_]: Sync]: MarshallF ~> F = λ[MarshallF ~> F] {
    case [email protected](entity) => um.dec
        .decode(entity)
        .fold(Sync[F].raiseError, Sync[F].pure)
  }
}