Benash.scala

import cats.effect._
import cats.effect.concurrent._
import org.http4s._
import org.http4s.client._

object Benash {
  def permitResource[F[_]](sem: Semaphore[F])(implicit F: Bracket[F, Throwable]): Resource[F, Unit] =
    Resource.make(sem.acquire)(_ => sem.release)

  def limitedClient(sem: Semaphore[IO], client: Client[IO]): Client[IO] =
    Client { req: Request[IO] =>
      permitResource(sem).flatMap { _ => client.run(req) }
    }
}