ix-request_2.12.0.1.3.source-code.response.scala Maven / Gradle / Ivy

Go to download

Show more of this group Show more artifacts with this name
Show all versions of cattrix-request_2.12 Show documentation

cattrix-request

There is a newer version: 0.1.9

package chm

import cats.Applicative
import cats.effect.Sync

case class Response(status: Int, body: String, headers: List[Header], cookies: List[Cookie])

object Response
{
  def ok(body: String): Response = Response(200, body, Nil, Nil)

  def notFound(body: String): Response = Response(404, body, Nil, Nil)

  def err(body: String): Response = Response(503, body, Nil, Nil)

  def header(name: String)(response: Response): Option[List[String]] =
    response.headers.find(_.name == name).map(_.values)

  def header1(name: String)(response: Response): Option[String] =
    for {
      values <- header(name)(response)
      value <- values.headOption
    } yield value
}

trait HttpResponse[F[_], A]
{
  def status(a: A): Int

  def cons(a: A): F[Response]
}

object HttpResponse
{
  implicit def HttpResponse_Response[F[_]: Applicative]: HttpResponse[F, Response] =
    new HttpResponse[F, Response] {
      def status(a: Response): Int = a.status

      def cons(a: Response): F[Response] = Applicative[F].pure(a)
    }
}