@resapi/express 0.3.0 → 0.4.0

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@resapi/express",
-  "version": "0.3.0",
+  "version": "0.4.0",
   "description": "Express server adapter for resAPI contracts.",
   "license": "MIT",
   "homepage": "https://resapi.dev",
@@ -32,9 +32,9 @@
     "rescript": "^12.3.1"
   },
   "dependencies": {
-    "@resapi/core": "^0.3.0"
+    "@resapi/core": "^0.4.0"
   },
   "devDependencies": {
-    "express": "5.2.1"
+    "express": "5.3.0"
   }
 }

package/src/Router.res

@@ -17,6 +17,7 @@ type server
 @send external expressGet: (t, string, handler) => unit = "get"
 @send external expressPost: (t, string, handler) => unit = "post"
 @send external expressPut: (t, string, handler) => unit = "put"
+@send external expressDelete: (t, string, handler) => unit = "delete"
 @send external expressAll: (t, string, handler) => unit = "all"
 @send external expressPostWith: (t, string, middleware, handler) => unit = "post"
 @send external expressPutWith: (t, string, middleware, handler) => unit = "put"
@@ -26,8 +27,9 @@ type server
 @send external listen: (t, int, unit => unit) => server = "listen"
 @send external close: server => unit = "close"
 
-// Express's error handler logs `err.stack`, which a raw ReScript exception lacks: it logs as
-// "[object Object]". Rethrowing it as an Error keeps the log readable. JS errors pass untouched.
+// Express's error page reads `err.stack`, which a raw ReScript exception lacks: outside production it
+// shows "[object Object]", and Express before 5.3 logs that too. Rethrowing it as an Error keeps both
+// readable. JS errors pass untouched.
 let rethrowAsError = exn =>
   switch exn {
   | JsExn(e) => JsExn.throw(e)
@@ -58,6 +60,11 @@ let put = (router, path, handler) => {
   router
 }
 
+let delete = (router, path, handler) => {
+  router->expressDelete(path, catchExceptions(handler))
+  router
+}
+
 let all = (router, path, handler) => {
   router->expressAll(path, catchExceptions(handler))
   router
@@ -91,6 +98,7 @@ let register = (router, route: EndpointHandler.route) => {
   | Get => router->expressGet(route.path, route.run)
   | Post => router->expressPostWith(route.path, rawText, route.run)
   | Put => router->expressPutWith(route.path, rawText, route.run)
+  | Delete => router->expressDelete(route.path, route.run)
   }
   router
 }

package/src/Router.resi

@@ -24,6 +24,7 @@ type server
 let get: (t, string, handler) => t
 let post: (t, string, handler) => t
 let put: (t, string, handler) => t
+let delete: (t, string, handler) => t
 
 /** Runs for every request whose path starts with `~path` (default all), including unmatched routes.
     The first `use` is the outermost layer. */