clue.http4s.Http4sHttpClient.scala Maven / Gradle / Ivy

Go to download
// Copyright (c) 2016-2023 Association of Universities for Research in Astronomy, Inc. (AURA)
// For license information see LICENSE or https://opensource.org/licenses/BSD-3-Clause

package clue.http4s

import cats.Applicative
import cats.MonadThrow
import clue.FetchClientImpl
import org.http4s.Headers
import org.http4s.Method.*
import org.http4s.Request
import org.http4s.Uri
import org.typelevel.log4cats.Logger

object Http4sHttpClient {
  def of[F[_], S](uri: Uri, name: String = "", headers: Headers = Headers.empty)(implicit
    F:       MonadThrow[F],
    backend: Http4sHttpBackend[F],
    logger:  Logger[F]
  ): F[Http4sHttpClient[F, S]] = {
    val logPrefix = s"clue.FetchClientWithPars[${if (name.isEmpty) uri else name}]"

    val internalLogger = logger.withModifiedString(s => s"$logPrefix $s")

    Applicative[F].pure(
      new FetchClientImpl[F, Request[F], S](
        Request(POST, uri, headers = headers)
      )(using F, internalLogger, backend)
    )
  }
}