Http4s simple integration

[fokot]

This allows for simple integrations where we can do things like:

HttpRoutes
            .of[RIO[ZEnv, *]] {
              case req @ POST -> Root / "api" / "graphql" => {
                val token: Task[Token] =
                  UIO(req.headers.get(Authorization).map(_.value).toRight("No `Authorization` header").flatMap(auth.decodeTokenPayload)).absolve
                    .mapError(AuthException)
                Http4sAdapter.executeRequest(
                  graphql.schema.interpreter,
                  (env: ZEnv) =>
                    new Console with Clock with Auth with Storage {
                      override val console: Console.Service[Any] = env.console
                      override val clock: Clock.Service[Any] = env.clock
                      override def auth: Auth.Service = AuthServiceFromToken(token)
                      override def storage: StorageBase[Task] = _storage
                    }
                )(req)
              }
              case GET -> Root / "graphiql" => staticResource("static/graphiql.html")
              case GET -> Root / "login.html" => staticResource("static/login.html")
            }
            .orNotFound

[ghostdogpr]

Can you extract this block into a function so that it's not repeated here and in makeRestService?

query <- req.attemptAs[GraphQLRequest].value.absolve
result <- execute(interpreter, query)
                   .foldCause(cause => GraphQLResponse(NullValue, cause.defects).asJson, _.asJson)

[fokot]

👍

[fokot]

I looks like good idea but in executeRequest I work with Request/Response with environment R0 and executor is in environment R, so it would mean doing two mapK which I do not like much and I find it now more simple. Or I can to common method provideSome and send indentity from makeRestService which also not nice. What do you think?

[ghostdogpr]

Oh I see what you mean. I'd prefer to avoid an unnecessary provideSome for general case. How about just moving execute(interpreter, query).foldCause(cause => GraphQLResponse(NullValue, cause.defects).asJson, _.asJson) to a function?

[ghostdogpr]

Can you also add a variant executeRequestF for cats-effect users? Similar to makeRestServiceF.

[fokot]

Sure, I added executeRequestF

[ghostdogpr]

Thanks!