Add Response.json binding

CHANGELOG.md

@@ -1,5 +1,9 @@
 # main
 
+- Add bindings for `Response.json()`. https://github.com/zth/rescript-bun/pull/5
+  - Return JSON data with `Response.makeWithJson`
+  - Return any data type with `Response.makeWithJsonUnsafe`
+
 # 0.4.1
 
 - Fix `package-lock.json` issue.

playground/examples/HTTP.E1.SimpleServer.res

@@ -2,8 +2,13 @@
 
 let server = Bun.serve({
   port: 3000,
-  fetch: async (_request, _server) => {
-    Response.make("Welcome to Bun!")
+  fetch: async (request, _server) => {
+    let url = request->Globals.Request.url->URL.make
+
+    switch url->Globals.URL.pathname {
+    | "/" => Response.makeWithJsonUnsafe({"test": 1})
+    | _ => Response.make("404!")
+    }
   },
 })
 

src/Globals.res

@@ -750,6 +750,11 @@ module Response = {
   external makeFromReadableStream: (ReadableStream.t<'t>, ~options: responseInit=?) => t =
     "Response"
 
+  /** HTTP response with JSON  */
+  external makeWithJson: (JSON.t, ~options: responseInitWithHeaders=?) => t = "Response.json"
+  external makeWithJsonUnsafe: ('jsonCompatiblePayload, ~options: responseInitWithHeaders=?) => t =
+    "Response.json"
+
   /** Create a new Response that redirects to url */
   external makeRedirect: (string, ~status: int=?) => t = "Response.redirect"