add HttpServerResponse.mergeCookies (#4416)

Effect-TS · Feb 6, 2025 · 7d57ecd · 7d57ecd
1 parent 74d9365
commit 7d57ecd
Show file tree

Hide file tree

Showing 3 changed files with 37 additions and 0 deletions.
diff --git a/.changeset/slimy-glasses-sort.md b/.changeset/slimy-glasses-sort.md
@@ -0,0 +1,5 @@
+---
+"@effect/platform": patch
+---
+
+add HttpServerResponse.mergeCookies
diff --git a/packages/platform/src/HttpServerResponse.ts b/packages/platform/src/HttpServerResponse.ts
@@ -287,6 +287,15 @@ export const updateCookies: {
   (self: HttpServerResponse, f: (cookies: Cookies) => Cookies): HttpServerResponse
 } = internal.updateCookies
 
+/**
+ * @since 1.0.0
+ * @category combinators
+ */
+export const mergeCookies: {
+  (cookies: Cookies): (self: HttpServerResponse) => HttpServerResponse
+  (self: HttpServerResponse, cookies: Cookies): HttpServerResponse
+} = internal.mergeCookies
+
 /**
  * @since 1.0.0
  * @category combinators

diff --git a/packages/platform/src/internal/httpServerResponse.ts b/packages/platform/src/internal/httpServerResponse.ts
@@ -447,6 +447,29 @@ export const setCookies = dual<
       ))
 )
 
+/** @internal */
+export const mergeCookies = dual<
+  (
+    cookies: Cookies.Cookies
+  ) => (
+    self: ServerResponse.HttpServerResponse
+  ) => ServerResponse.HttpServerResponse,
+  (
+    self: ServerResponse.HttpServerResponse,
+    cookies: Cookies.Cookies
+  ) => ServerResponse.HttpServerResponse
+>(
+  2,
+  (self, cookies) =>
+    new ServerResponseImpl(
+      self.status,
+      self.statusText,
+      self.headers,
+      Cookies.merge(self.cookies, cookies),
+      self.body
+    )
+)
+
 /** @internal */
 export const unsafeSetCookies = dual<
   (