v0.6.0 🚀 - Add Rest.fetch

package.json

@@ -1,6 +1,6 @@
 {
   "name": "rescript-rest",
-  "version": "0.5.0",
+  "version": "0.6.0",
   "description": "😴 ReScript RPC-like client, contract, and server implementation for a pure REST API",
   "keywords": [
     "rest",

src/Rest.res

@@ -251,7 +251,15 @@ type s = {
   param: 'value. (string, S.t<'value>) => 'value,
 }
 
-type method = |@as("GET") Get | @as("POST") Post | @as("PUT") Put | @as("PATCH") Patch | @as("DELETE") Delete | @as("HEAD") Head | @as("OPTIONS") Options | @as("TRACE") Trace
+type method =
+  | @as("GET") Get
+  | @as("POST") Post
+  | @as("PUT") Put
+  | @as("PATCH") Patch
+  | @as("DELETE") Delete
+  | @as("HEAD") Head
+  | @as("OPTIONS") Options
+  | @as("TRACE") Trace
 
 type definition<'variables, 'response> = {
   method: method,
@@ -485,41 +493,46 @@ let getCompletePath = (~baseUrl, ~pathItems, ~maybeQuery, ~maybeParams, ~jsonQue
   path.contents
 }
 
-let client = (~baseUrl, ~fetcher=ApiFetcher.default, ~jsonQuery=false) => {
-  let call:
-    type variables response. (route<variables, response>, variables) => promise<response> =
-    (route, variables) => {
-      let route = route->(Obj.magic: route<variables, response> => route<unknown, unknown>)
-      let variables = variables->(Obj.magic: variables => unknown)
-
-      let {definition, variablesSchema, responses, pathItems} = route->params
-
-      let data = variables->S.serializeToUnknownOrRaiseWith(variablesSchema)->Obj.magic
-
-      fetcher({
-        body: data["body"],
-        headers: data["headers"],
-        path: getCompletePath(
-          ~baseUrl,
-          ~pathItems,
-          ~maybeQuery=data["query"],
-          ~maybeParams=data["params"],
-          ~jsonQuery,
-        ),
-        method: (definition.method :> string),
-      })->Promise.thenResolve(fetcherResponse => {
-        switch responses->Response.find(fetcherResponse.status) {
-        | None =>
-          panic(
-            `No registered responses for the status "${fetcherResponse.status->Js.Int.toString}"`,
-          )
-        | Some(response) =>
-          fetcherResponse
-          ->S.parseAnyOrRaiseWith(response.schema)
-          ->(Obj.magic: unknown => response)
-        }
-      })
+let fetch = (
+  type variables response,
+  route: route<variables, response>,
+  baseUrl,
+  variables,
+  ~fetcher=ApiFetcher.default,
+  ~jsonQuery=false,
+) => {
+  let route = route->(Obj.magic: route<variables, response> => route<unknown, unknown>)
+  let variables = variables->(Obj.magic: variables => unknown)
+
+  let {definition, variablesSchema, responses, pathItems} = route->params
+
+  let data = variables->S.serializeToUnknownOrRaiseWith(variablesSchema)->Obj.magic
+
+  fetcher({
+    body: data["body"],
+    headers: data["headers"],
+    path: getCompletePath(
+      ~baseUrl,
+      ~pathItems,
+      ~maybeQuery=data["query"],
+      ~maybeParams=data["params"],
+      ~jsonQuery,
+    ),
+    method: (definition.method :> string),
+  })->Promise.thenResolve(fetcherResponse => {
+    switch responses->Response.find(fetcherResponse.status) {
+    | None =>
+      panic(`No registered responses for the status "${fetcherResponse.status->Js.Int.toString}"`)
+    | Some(response) =>
+      fetcherResponse
+      ->S.parseAnyOrRaiseWith(response.schema)
+      ->(Obj.magic: unknown => response)
     }
+  })
+}
+
+let client = (~baseUrl, ~fetcher=ApiFetcher.default, ~jsonQuery=false) => {
+  let call = (route, variables) => route->fetch(baseUrl, variables, ~fetcher, ~jsonQuery)
   {
     baseUrl,
     fetcher,

src/Rest.resi

@@ -133,3 +133,11 @@ type client = {
 }
 
 let client: (~baseUrl: string, ~fetcher: ApiFetcher.t=?, ~jsonQuery: bool=?) => client
+
+let fetch: (
+  route<'variables, 'response>,
+  string,
+  'variables,
+  ~fetcher: ApiFetcher.t=?,
+  ~jsonQuery: bool=?,
+) => promise<'response>