New Client for Evaluator

client/src/main/scala/org/scalaexercises/evaluator/EvaluatorClient.scala

@@ -7,38 +7,19 @@
 
 package org.scalaexercises.evaluator
 
-import cats.data.EitherT
-import cats.~>
-import cats.implicits._
-import org.scalaexercises.evaluator.EvaluatorResponses.{
-  EvalIO,
-  EvaluationException,
-  EvaluationResponse,
-  EvaluationResult
-}
-import org.scalaexercises.evaluator.free.algebra.EvaluatorOp
-
-import scala.concurrent.Future
-import scala.concurrent.ExecutionContext.Implicits.global
+import cats.effect.{ConcurrentEffect, Resource}
+import org.http4s.client.Client
+import org.http4s.client.blaze.BlazeClientBuilder
+import org.scalaexercises.evaluator.service.{HttpClientHandler, HttpClientService}
 
-class EvaluatorClient(url: String, authKey: String) {
-
-  lazy val api: EvaluatorAPI[EvaluatorOp] = new EvaluatorAPI(url, authKey)
-
-}
+import scala.concurrent.ExecutionContext
 
 object EvaluatorClient {
 
-  def apply(url: String, authKey: String) =
-    new EvaluatorClient(url, authKey)
-
-  implicit class EvaluationIOSyntaxEither[A](evalIO: EvalIO[EvaluationResponse[A]]) {
-
-    def exec(implicit I: (EvaluatorOp ~> Future)): Future[EvaluationResponse[A]] =
-      evalIO foldMap I
+  private def clientResource[F[_]: ConcurrentEffect]: Resource[F, Client[F]] =
+    BlazeClientBuilder[F](ExecutionContext.global).resource
 
-    def liftEvaluator: EitherT[EvalIO, EvaluationException, EvaluationResult[A]] =
-      EitherT[EvalIO, EvaluationException, EvaluationResult[A]](evalIO)
+  def apply[F[_]: ConcurrentEffect](url: String, authKey: String): HttpClientService[F] =
+    HttpClientHandler[F](url, authKey, clientResource[F])
 
-  }
 }