me.wojnowski.oidc4s.config.OpenIdConnectDiscovery.scala Maven / Gradle / Ivy

Go to download
Show more of this group Show more artifacts with this name
Show all versions of oidc4s-core_2.13 Show documentation
oidc4s-core
The newest version!
package me.wojnowski.oidc4s.config

import cats.Monad
import cats.data.EitherT
import cats.syntax.all._
import me.wojnowski.oidc4s.Cache
import me.wojnowski.oidc4s.ProductSerializableNoStackTrace
import me.wojnowski.oidc4s.config.OpenIdConnectDiscovery.Error.CouldNotDecodeResponse
import me.wojnowski.oidc4s.config.OpenIdConnectDiscovery.Error.CouldNotFetchResponse
import me.wojnowski.oidc4s.json.JsonDecoder
import me.wojnowski.oidc4s.json.JsonSupport
import me.wojnowski.oidc4s.transport.Transport

trait OpenIdConnectDiscovery[F[_]] {
  def getConfig: F[Either[OpenIdConnectDiscovery.Error, OpenIdConfig]]
}

object OpenIdConnectDiscovery {

  def instance[F[_]: Monad](
    location: Location
  )(
    httpTransport: Transport[F],
    jsonSupport: JsonSupport,
    cache: Cache[F, OpenIdConfig]
  ): OpenIdConnectDiscovery[F] =
    new OpenIdConnectDiscovery[F] {

      import jsonSupport._

      override def getConfig: F[Either[OpenIdConnectDiscovery.Error, OpenIdConfig]] =
        cache
          .get
          .flatMap {
            case Some(config) =>
              config.asRight[Error].pure[F]
            case None         =>
              {
                for {
                  rawResponse <- EitherT(httpTransport.get(s"${location.url}/.well-known/openid-configuration"))
                                   .leftMap(CouldNotFetchResponse.apply)
                                   .leftWiden[Error]
                  config      <- EitherT
                                   .fromEither(JsonDecoder[OpenIdConfig].decode(rawResponse.data))
                                   .leftMap(details => CouldNotDecodeResponse(details))
                                   .leftWiden[Error]
                  _           <- EitherT.liftF[F, Error, Unit](cache.put(config, rawResponse.expiresIn))
                } yield config
              }.value
          }

    }

  def static[F[_]: Monad](config: OpenIdConfig): OpenIdConnectDiscovery[F] = new OpenIdConnectDiscovery[F] {
    override def getConfig: F[Either[Error, OpenIdConfig]] = config.asRight[Error].pure[F]
  }

  sealed trait Error extends ProductSerializableNoStackTrace

  object Error {
    case class CouldNotDecodeResponse(details: String) extends Error
    case class CouldNotFetchResponse(cause: Transport.Error) extends Error
  }

}