@effect/platform 0.66.2 → 0.67.0

package/src/internal/httpClient.ts

@@ -12,7 +12,7 @@ import * as Layer from "effect/Layer"
 import { pipeArguments } from "effect/Pipeable"
 import * as Predicate from "effect/Predicate"
 import * as Ref from "effect/Ref"
-import type * as Schedule from "effect/Schedule"
+import * as Schedule from "effect/Schedule"
 import * as Scope from "effect/Scope"
 import * as Cookies from "../Cookies.js"
 import * as Headers from "../Headers.js"
@@ -24,6 +24,7 @@ import * as TraceContext from "../HttpTraceContext.js"
 import * as UrlParams from "../UrlParams.js"
 import * as internalBody from "./httpBody.js"
 import * as internalRequest from "./httpClientRequest.js"
+import * as internalResponse from "./httpClientResponse.js"
 
 /** @internal */
 export const TypeId: Client.TypeId = Symbol.for(
@@ -235,36 +236,13 @@ export const filterStatus = dual<
     self: Client.HttpClient.WithResponse<E, R>,
     f: (status: number) => boolean
   ) => Client.HttpClient.WithResponse<E | Error.ResponseError, R>
->(2, (self, f) =>
-  transform(self, (effect, request) =>
-    Effect.filterOrFail(
-      effect,
-      (response) => f(response.status),
-      (response) =>
-        new Error.ResponseError({
-          request,
-          response,
-          reason: "StatusCode",
-          description: "invalid status code"
-        })
-    )))
+>(2, (self, f) => transformResponse(self, Effect.flatMap(internalResponse.filterStatus(f))))
 
 /** @internal */
 export const filterStatusOk = <E, R>(
   self: Client.HttpClient.WithResponse<E, R>
 ): Client.HttpClient.WithResponse<E | Error.ResponseError, R> =>
-  transform(self, (effect, request) =>
-    Effect.filterOrFail(
-      effect,
-      (response) => response.status >= 200 && response.status < 300,
-      (response) =>
-        new Error.ResponseError({
-          request,
-          response,
-          reason: "StatusCode",
-          description: "non 2xx status code"
-        })
-    ))
+  transformResponse(self, Effect.flatMap(internalResponse.filterStatusOk))
 
 /** @internal */
 export const transformResponse = dual<
@@ -653,6 +631,43 @@ export const retry: {
   ): Client.HttpClient<A, E, R | R1> => transformResponse(self, Effect.retry(policy))
 )
 
+/** @internal */
+export const retryTransient: {
+  <B, E, R1 = never>(
+    options: {
+      readonly schedule?: Schedule.Schedule<B, NoInfer<E>, R1>
+      readonly times?: number
+    } | Schedule.Schedule<B, NoInfer<E>, R1>
+  ): <A, R>(self: Client.HttpClient<A, E, R>) => Client.HttpClient<A, E, R1 | R>
+  <A, E, R, B, R1 = never>(
+    self: Client.HttpClient<A, E, R>,
+    options: {
+      readonly schedule?: Schedule.Schedule<B, NoInfer<E>, R1>
+      readonly times?: number
+    } | Schedule.Schedule<B, NoInfer<E>, R1>
+  ): Client.HttpClient<A, E, R1 | R>
+} = dual(
+  2,
+  <A, E extends E0, E0, R, B, R1 = never>(
+    self: Client.HttpClient<A, E, R>,
+    options: {
+      readonly schedule?: Schedule.Schedule<B, NoInfer<E>, R1>
+      readonly times?: number
+    } | Schedule.Schedule<B, NoInfer<E>, R1>
+  ): Client.HttpClient<A, E, R | R1> =>
+    transformResponse(
+      self,
+      Effect.retry({
+        while: (error) =>
+          Error.isHttpClientError(error) &&
+          ((error._tag === "RequestError" && error.reason === "Transport") ||
+            (error._tag === "ResponseError" && error.response.status >= 429)),
+        schedule: Schedule.ScheduleTypeId in options ? options : options.schedule,
+        times: Schedule.ScheduleTypeId in options ? undefined : options.times
+      })
+    )
+)
+
 /** @internal */
 export const schemaFunction = dual<
   <SA, SI, SR>(

package/src/internal/httpClientResponse.ts

@@ -29,7 +29,7 @@ class ClientResponseImpl extends Inspectable.Class implements ClientResponse.Htt
   readonly [TypeId]: ClientResponse.TypeId
 
   constructor(
-    private readonly request: ClientRequest.HttpClientRequest,
+    readonly request: ClientRequest.HttpClientRequest,
     private readonly source: globalThis.Response
   ) {
     super()
@@ -240,3 +240,42 @@ export const matchStatus = dual<
   }
   return cases.orElse(self)
 })
+
+/** @internal */
+export const filterStatus = dual<
+  (
+    f: (status: number) => boolean
+  ) => (
+    self: ClientResponse.HttpClientResponse
+  ) => Effect.Effect<ClientResponse.HttpClientResponse, Error.ResponseError>,
+  (
+    self: ClientResponse.HttpClientResponse,
+    f: (status: number) => boolean
+  ) => Effect.Effect<ClientResponse.HttpClientResponse, Error.ResponseError>
+>(
+  2,
+  (self, f) =>
+    Effect.suspend(() =>
+      f(self.status) ? Effect.succeed(self) : Effect.fail(
+        new Error.ResponseError({
+          response: self,
+          request: self.request,
+          reason: "StatusCode",
+          description: "invalid status code"
+        })
+      )
+    )
+)
+
+/** @internal */
+export const filterStatusOk = (
+  self: ClientResponse.HttpClientResponse
+): Effect.Effect<ClientResponse.HttpClientResponse, Error.ResponseError> =>
+  self.status >= 200 && self.status < 300 ? Effect.succeed(self) : Effect.fail(
+    new Error.ResponseError({
+      response: self,
+      request: self.request,
+      reason: "StatusCode",
+      description: "non 2xx status code"
+    })
+  )

package/src/internal/httpMultiplex.ts

@@ -52,6 +52,9 @@ class MultiplexImpl<E = never, R = never> extends Effectable.Class<
     return this.execute
   }
 
+  [Inspectable.DenoInspectSymbol]() {
+    return Inspectable.toJSON(this)
+  }
   [Inspectable.NodeInspectSymbol]() {
     return Inspectable.toJSON(this)
   }

package/src/internal/httpRouter.ts

@@ -200,6 +200,9 @@ class RouterImpl<E = never, R = never> extends Effectable.StructuralClass<
   toString() {
     return Inspectable.format(this)
   }
+  [Inspectable.DenoInspectSymbol]() {
+    return this.toJSON()
+  }
   [Inspectable.NodeInspectSymbol]() {
     return this.toJSON()
   }

package/src/internal/httpServerResponse.ts

@@ -62,6 +62,9 @@ class ServerResponseImpl extends Effectable.StructuralClass<ServerResponse.HttpS
     return Effect.succeed(this)
   }
 
+  [Inspectable.DenoInspectSymbol]() {
+    return this.toJSON()
+  }
   [Inspectable.NodeInspectSymbol]() {
     return this.toJSON()
   }