Make uncurried mode opt-out. (#6249)

* Make uncurried mode opt-out.

By default, every project is in uncurried mode, unless `"uncurried": false` is specified in the project config.

* Update res_multi_printer.ml

Author: cristianoc

CHANGELOG.md

@@ -12,6 +12,9 @@
 
 # 11.0.0-beta.1 (Unreleased)
 
+#### :rocket: Main New Feature
+- Make uncurried mode opt-out: by default, every project is now in uncurried mode, unless `"uncurried": false` is specified in the project config. https://github.com/rescript-lang/rescript-compiler/pull/6249
+
 # 11.0.0-alpha.6
 
 #### :boom: Breaking Change

jscomp/bsb/bsb_config_parse.ml

@@ -97,7 +97,7 @@ let extract_gentype_config (map : json_map) : Bsb_config_types.gentype_config =
 
 let extract_uncurried (map : json_map) : bool =
   match map.?(Bsb_build_schemas.uncurried) with
-  | None -> false
+  | None -> true
   | Some (True _) -> true
   | Some (False _) -> false
   | Some config ->

jscomp/build_tests/react_ppx/src/gpr_3987_test.bs.js

@@ -1,7 +1,7 @@
 let defaultPrintWidth = 100
 
 (* Determine if the file is in uncurried mode by looking for
-   the fist ancestor .bsconfig and see if it contains "uncurried": true *)
+   the fist ancestor .bsconfig and see if it contains "uncurried": false *)
 let getUncurriedFromBsconfig ~filename =
   let rec findBsconfig ~dir =
     let bsconfig = Filename.concat dir "bsconfig.json" in
@@ -42,18 +42,19 @@ let getUncurriedFromBsconfig ~filename =
       lines
       |> List.exists (fun line ->
              let uncurried = ref false in
-             let true_ = ref false in
+             let false_ = ref false in
              let words = line |> String.split_on_char ' ' in
              words
              |> List.iter (fun word ->
                     match word with
                     | "\"uncurried\"" | "\"uncurried\":" -> uncurried := true
-                    | "\"uncurried\":true" | "\"uncurried\":true," ->
+                    | "\"uncurried\":false" | "\"uncurried\":false," ->
                       uncurried := true;
-                      true_ := true
-                    | "true" | ":true" | "true," | ":true," -> true_ := true
+                      false_ := true
+                    | "false" | ":false" | "false," | ":false," ->
+                      false_ := true
                     | _ -> ());
-             !uncurried && !true_)
+             not (!uncurried && !false_))
     in
     if uncurried then Config.uncurried := Uncurried