• Example Search
• Project Search

• Java
• Python
• JavaScript
• TypeScript
• C++
• Scala
• Blog

• http4s-poc-api-master
  • .github
    • CODEOWNERS
  • src
    • main
      • resources
        • logback.xml
      • scala
        • integration
          • ProductIntegration.scala
          • CacheIntegration.scala
          • UserIntegration.scala
        • external
          • library
            • CirceModule.scala
            • IoAdapt.scala
            • instances
              • ThrowableInstances.scala
              • package.scala
              • TaggedInstances.scala
            • package.scala
            • ThrowableMap.scala
            • syntax
              • package.scala
              • ResponseSyntax.scala
              • ErrorAdaptSyntax.scala
              • IoAdaptSyntax.scala
            • newtype.scala
          • TeamThreeCacheApi.scala
          • TeamTwoHttpApi.scala
          • TeamOneHttpApi.scala
        • service
          • package.scala
          • PriceService.scala
          • PreferenceFetcher.scala
          • ProductRepo.scala
          • PriceCalculator.scala
        • server
          • HealthCheckRoutes.scala
          • Main.scala
          • PriceRoutes.scala
        • model
          • syntax
            • package.scala
            • DomainModelSyntax.scala
          • DomainModelCodecs.scala
          • DomainModel.scala
        • errors
          • PriceServiceError.scala
    • test
      • resources
        • logback-test.xml
      • scala
        • PriceHttpApiTests.scala
        • typeclasses
          • RunSync.scala
        • syntax
          • ResponseVerificationSyntax.scala
          • package.scala
          • Http4sServiceSyntax.scala
        • external
          • NewtypeTests.scala
        • HealthCheckHttpApiTests.scala
        • Fixtures.scala
        • interpreters
          • TestTeamTwoHttpApi.scala
          • TestTeamThreeCacheApi.scala
          • TestTeamOneHttpApi.scala
  • LICENSE
  • project
    • build.properties
    • plugins.sbt
  • .travis.yml
  • README.md
  • .scalafmt.conf
  • build.sbt
  • .gitignore

package integration

import cats.effect.syntax.concurrent._
import cats.effect.{Concurrent, ContextShift, IO, Timer}
import cats.syntax.flatMap._
import errors.PriceServiceError.{PreferenceErr, UserErr}
import external._
import external.library.IoAdapt.-->
import external.library.syntax.errorAdapt._
import external.library.syntax.ioAdapt._
import model.DomainModel._

import scala.concurrent.Future
import scala.concurrent.duration.FiniteDuration

sealed trait UserIntegration[F[_]] {
  def user: UserId => F[User]
  def usersPreferences: UserId => F[UserPreferences]
}

object UserIntegration {
  @inline def apply[F[_]: Concurrent: Timer: IO --> *[_]: Future --> *[_]](
    userDep: TeamTwoHttpApi,
    preferencesDep: TeamOneHttpApi,
    t: FiniteDuration
  )(
    implicit CS: ContextShift[F]
  ): UserIntegration[F] =
    new UserIntegration[F] {
      def user: UserId => F[User] = { id =>
        CS.shift >> userDep.user(id).adaptedTo[F].timeout(t).narrowFailureTo[UserErr]
      }

      def usersPreferences: UserId => F[UserPreferences] = { id =>
        CS.shift >> preferencesDep.usersPreferences(id).adaptedTo[F].timeout(t).narrowFailureTo[PreferenceErr]
      }
    }
}