Make playground bundle (+ third party cmijs) default to uncurried mode

Author: ryyppy

jscomp/jsoo/jsoo_playground_main.ml

@@ -44,10 +44,12 @@
  * and use the proper interfaces as stated by the apiVersion.
  *
  * -----------------------------
- * Version History:
- * v2: Remove refmt support (removes compiler.reason apis)
+ * Version History: * v2: Remove refmt support (removes compiler.reason apis)
+ * v3: Switched to Uncurried mode by default (requires third party packages
+ to be built with uncurried: true in bsconfig.json). Also added
+ `config.uncurried` to the BundleConfig.
  * *)
-let apiVersion = "2"
+let apiVersion = "3"
 
 module Js = Jsoo_common.Js
 
@@ -73,12 +75,18 @@ module BundleConfig = struct
     mutable module_system: Js_packages_info.module_system;
     mutable filename: string option;
     mutable warn_flags: string;
+
+    (* This one can't be mutated since we only provide
+       third-party packages that were compiled for uncurried
+       mode *)
+    uncurried: bool;
   }
 
   let make () = {
     module_system=Js_packages_info.NodeJS;
     filename=None;
     warn_flags=Bsc_warnings.defaults_w;
+    uncurried=(!Config.uncurried = Uncurried);
   }
 
 
@@ -661,13 +669,16 @@ module Export = struct
                              );
                              "warn_flags",
                              inject @@ (Js.string config.warn_flags);
+                             "uncurried", inject @@ (Js.bool config.uncurried);
                            |]))
           );
       |])
 
 end
 
 let () =
+  (* From now on the default setting will be uncurried mode *)
+  Config.uncurried := Uncurried;
   export "rescript_compiler"
     (Js.Unsafe.(obj
                   [|

packages/playground-bundling/bsconfig.json

@@ -9,5 +9,6 @@
   "sources": {
     "dir": "src",
     "subdirs": true
-  }
+  },
+  "uncurried": true
 }

playground/playground_test.js

@@ -30,6 +30,11 @@ let result = compiler.rescript.compile(`
     ->Array.map(x => x * 2)
     ->Array.reduce(0, (acc, item) => acc + item)
 
+
+  // Test uncurried behavior
+  let runFn = (f, x) => f(x)
+  runFn(x => x + 1, 1)->Console.log
+
   Console.log("Hello world!")
 
   let a = <B a="hello" />