Add HttpClient.tapError (#4225)

Co-authored-by: Tim <[email protected]>
Effect-TS · Jan 14, 2025 · 7b3d58d · 7b3d58d
1 parent ff7c07d
commit 7b3d58d
Show file tree

Hide file tree

Showing 3 changed files with 32 additions and 0 deletions.
diff --git a/.changeset/popular-squids-love.md b/.changeset/popular-squids-love.md
@@ -0,0 +1,5 @@
+---
+"@effect/platform": patch
+---
+
+Add HttpClient.tapError
diff --git a/packages/platform/src/HttpClient.ts b/packages/platform/src/HttpClient.ts
@@ -549,6 +549,22 @@ export const tap: {
   ): HttpClient.With<E | E2, R | R2>
 } = internal.tap
 
+/**
+ * Performs an additional effect after an unsuccessful request.
+ *
+ * @since 1.0.0
+ * @category mapping & sequencing
+ */
+export const tapError: {
+  <_, E, E2, R2>(
+    f: (e: NoInfer<E>) => Effect.Effect<_, E2, R2>
+  ): <R>(self: HttpClient.With<E, R>) => HttpClient.With<E | E2, R | R2>
+  <E, R, _, E2, R2>(
+    self: HttpClient.With<E, R>,
+    f: (e: NoInfer<E>) => Effect.Effect<_, E2, R2>
+  ): HttpClient.With<E | E2, R | R2>
+} = internal.tapError
+
 /**
  * Performs an additional effect on the request before sending it.
  *

diff --git a/packages/platform/src/internal/httpClient.ts b/packages/platform/src/internal/httpClient.ts
@@ -621,6 +621,17 @@ export const tap = dual<
   ) => Client.HttpClient.With<E | E2, R | R2>
 >(2, (self, f) => transformResponse(self, Effect.tap(f)))
 
+/** @internal */
+export const tapError = dual<
+  <_, E, E2, R2>(
+    f: (e: NoInfer<E>) => Effect.Effect<_, E2, R2>
+  ) => <R>(self: Client.HttpClient.With<E, R>) => Client.HttpClient.With<E | E2, R | R2>,
+  <E, R, _, E2, R2>(
+    self: Client.HttpClient.With<E, R>,
+    f: (e: NoInfer<E>) => Effect.Effect<_, E2, R2>
+  ) => Client.HttpClient.With<E | E2, R | R2>
+>(2, (self, f) => transformResponse(self, Effect.tapError(f)))
+
 /** @internal */
 export const tapRequest = dual<
   <_, E2, R2>(