Merge pull request #123 from cknitt/fix-rescript-11-uncurried

Fix compatibility with ReScript 11 uncurried mode

Author: TheSpyder

lib/js/examples/fetch_examples.js

@@ -11,7 +11,7 @@ fetch("/api/hellos/1").then(function (prim) {
       return Promise.resolve((console.log(text), undefined));
     });
 
-fetch("/api/hello", Webapi__Fetch.RequestInit.make(/* Post */2, undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined)(undefined)).then(function (prim) {
+fetch("/api/hello", Webapi__Fetch.RequestInit.make(/* Post */2, undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined)).then(function (prim) {
         return prim.text();
       }).then(function (text) {
       return Promise.resolve((console.log(text), undefined));
@@ -34,8 +34,8 @@ var payload = {};
 payload["hello"] = "world";
 
 fetch("/api/hello", Webapi__Fetch.RequestInit.make(/* Post */2, {
-              "Content-Type": "application/json"
-            }, Caml_option.some(JSON.stringify(payload)), undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined)(undefined)).then(function (prim) {
+            "Content-Type": "application/json"
+          }, Caml_option.some(JSON.stringify(payload)), undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined)).then(function (prim) {
       return prim.json();
     });
 
@@ -48,14 +48,14 @@ formData.append("image0", {
     }, undefined);
 
 fetch("/api/upload", Webapi__Fetch.RequestInit.make(/* Post */2, {
-              Accept: "*"
-            }, Caml_option.some(formData), undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined)(undefined)).then(function (prim) {
+            Accept: "*"
+          }, Caml_option.some(formData), undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined)).then(function (prim) {
       return prim.json();
     });
 
 var controller = new AbortController();
 
-fetch("/api/fruit", Webapi__Fetch.RequestInit.make(undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined, Caml_option.some(controller.signal))(undefined));
+fetch("/api/fruit", Webapi__Fetch.RequestInit.make(undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined, Caml_option.some(controller.signal), undefined));
 
 controller.abort();
 

src/Webapi/Webapi__Fetch.res

@@ -336,6 +336,7 @@ module RequestInit = {
     ~integrity: string="",
     ~keepalive: option<bool>=?,
     ~signal: option<signal>=?,
+    ()
   ) =>
     make(
       ~_method=?map(encodeRequestMethod, method_),
@@ -350,6 +351,7 @@ module RequestInit = {
       ~integrity,
       ~keepalive?,
       ~signal?,
+      ()
     )
 }
 
@@ -401,7 +403,8 @@ module ResponseInit = {
     ~status: option<int>=?,
     ~statusText: option<string>=?,
     ~headers: option<headersInit>=?,
-  ) => make(~status?, ~statusText?, ~headers?)
+    ()
+  ) => make(~status?, ~statusText?, ~headers?, ())
 }
 
 module Response = {

src/Webapi/Webapi__Fetch.resi

@@ -103,14 +103,14 @@ module Headers: {
   @new external make: t = "Headers"
   @new external makeWithInit: headersInit => t = "Headers"
 
-  @send external append: t => (string, string) => unit = "append"
-  @send external delete: t => string => unit = "delete"
+  @send external append: (t, string, string) => unit = "append"
+  @send external delete: (t, string) => unit = "delete"
   /* entries */ /* very experimental */
   @send @return(null_to_opt)
-  external get: t => string => option<string> = "get"
-  @send external has: t => string => bool = "has"
+  external get: (t, string) => option<string> = "get"
+  @send external has: (t, string) => bool = "has"
   /* keys */ /* very experimental */
-  @send external set: t => (string, string) => unit = "set"
+  @send external set: (t, string, string) => unit = "set"
   /* values */
   /* very experimental */
 }