HttpClient.scala

package org.daron.html

import cats.syntax.either._
import cats.syntax.flatMap._
import cats.syntax.functor._
import com.softwaremill.sttp.{SttpBackend, _}
import io.chrisdavenport.log4cats.Logger

trait HttpClient[F[_]] {
  def getPageSource(uri: java.net.URI): F[String]

}

object HttpClient {

  def apply[F[_] : cats.MonadError[?[_], Throwable] : Logger](implicit sttpBackend: SttpBackend[F, Nothing]): HttpClient[F] =
    (uri: java.net.URI) => for {
      _ <- Logger[F].debug(s"Getting source from page: ${uri.toString}")
      resp <- sttp.get(Uri(uri)).send()
      result <- resp.body.leftMap(new IllegalStateException(_): Throwable).raiseOrPure
    } yield result
}