Add Cookies module with Next.js headers API bindings

src/GreenfinityNext.res

@@ -13,3 +13,4 @@ module Url = GreenfinityNext_Url
 module NextServer = GreenfinityNext_NextServer
 module Font = GreenfinityNext_Font
 module Cache = GreenfinityNext_Cache
+module Cookies = GreenfinityNext_Cookies

src/GreenfinityNext_Cookies.res

@@ -0,0 +1,29 @@
+type cookieOptions = {
+  name?: string,
+  value?: string,
+  path?: string,
+  maxAge?: int,
+  expires?: Date.t,
+  httpOnly?: bool,
+  secure?: bool,
+  sameSite?: [#strict | #lax | #none],
+}
+
+type cookie = {
+  name: string,
+  value: string,
+}
+
+type t
+
+@module("next/headers") external make: unit => promise<t> = "cookies"
+
+@send @returns(nullable) external get: (t, string) => option<cookie> = "get"
+
+@send external getAll: t => array<cookie> = "getAll"
+
+@send external has: (t, string) => bool = "has"
+
+@send external set: (t, string, string, ~options: cookieOptions=?) => unit = "set"
+
+@send external delete: (t, string) => unit = "delete"

src/GreenfinityNext_Next.res

@@ -315,7 +315,7 @@ module Image = {
 module Headers = {
   type t
 
-  @deprecated("Use makePromise instead and await the result.") @new @module("next/headers")
+  @deprecated("Use makeAsync instead and await the result.") @new @module("next/headers")
   external make: unit => t = "headers"
 
   @new @module("next/headers") external makeAsync: unit => promise<t> = "headers"

src/GreenfinityNext_NextServer.res

@@ -3,15 +3,8 @@
 // --
 
 module NextRequest = {
-  module Cookies = {
-    type t
-    @send external set: (t, string, string) => unit = "set"
-    @send external get: (t, string) => string = "get"
-    @send external getAll: t => dict<string> = "getAll"
-    @send external delete: (t, string) => unit = "delete"
-    @send external has: (t, string) => bool = "has"
-    @send external clear: t => unit = "clear"
-  }
+  @deprecated("Use GreenfinityNext.Cookies instead")
+  module Cookies = GreenfinityNext_Cookies
 
   module URL = {
     type t = {
@@ -36,7 +29,7 @@ module NextRequest = {
   type t = {
     headers: GreenfinityNext_Fetch.Headers.t,
     nextUrl: URL.t,
-    cookies: Cookies.t,
+    cookies: GreenfinityNext_Cookies.t,
   }
 
   @send external json: t => promise<JSON.t> = "json"