Merge 11.0.1 changes into master (#6579)

Author: cknitt

CHANGELOG.md

@@ -12,6 +12,18 @@
 
 # 12.0.0-alpha.1 (Unreleased)
 
+# 11.0.1
+
+#### :bug: Bug Fix
+
+- Renamed inline record fields: fix renamed field access in inline records. https://github.com/rescript-lang/rescript-compiler/pull/6551
+- Fixed issue with coercions sometimes raising a `Not_found` instead of giving a proper error message. https://github.com/rescript-lang/rescript-compiler/pull/6574
+- Fix issue with recursive modules and uncurried. https://github.com/rescript-lang/rescript-compiler/pull/6575
+
+#### :nail_care: Polish
+
+- Improve error message for missing label(s) in function application. https://github.com/rescript-lang/rescript-compiler/pull/6576
+
 # 11.0.0
 
 No changes compared to rc.9.

jscomp/build_tests/super_errors/expected/missing_label.res.expected

@@ -0,0 +1,10 @@
+
+  We've found a bug for you!
+  /.../fixtures/missing_label.res:3:9
+
+  1 │ let f = (~a) => a ++ ""
+  2 │ 
+  3 │ let _ = f("")
+  4 │ 
+
+  Label ~a was omitted in the application of this labeled function.

jscomp/build_tests/super_errors/expected/missing_labels.res.expected

@@ -0,0 +1,10 @@
+
+  We've found a bug for you!
+  /.../fixtures/missing_labels.res:3:9
+
+  1 │ let f = (~a, ~b) => a ++ b
+  2 │ 
+  3 │ let _ = f("", "")
+  4 │ 
+
+  Labels ~a, ~b were omitted in the application of this labeled function.

jscomp/build_tests/super_errors/fixtures/missing_label.res

@@ -0,0 +1,3 @@
+let f = (~a) => a ++ ""
+
+let _ = f("")

jscomp/build_tests/super_errors/fixtures/missing_labels.res

@@ -0,0 +1,3 @@
+let f = (~a, ~b) => a ++ b
+
+let _ = f("", "")

jscomp/core/bs_conditional_initial.ml

@@ -44,10 +44,6 @@ let setup_env () =
   Builtin_attributes.check_bs_attributes_inclusion := Record_attributes_check.check_bs_attributes_inclusion;
   Builtin_attributes.check_duplicated_labels :=
     Record_attributes_check.check_duplicated_labels;
-  Lambda.fld_record := Record_attributes_check.fld_record;
-  Lambda.fld_record_set := Record_attributes_check.fld_record_set;
-  Lambda.blk_record := Record_attributes_check.blk_record;
-  Lambda.blk_record_inlined := Record_attributes_check.blk_record_inlined;
   Matching.names_from_construct_pattern := 
     Matching_polyfill.names_from_construct_pattern;
 

jscomp/core/record_attributes_check.ml

@@ -24,7 +24,7 @@
 
 type label = Types.label_description
 
-let find_name = Matching.find_name
+let find_name = Lambda.find_name
 
 let find_name_with_loc (attr : Parsetree.attribute) : string Asttypes.loc option
     =
@@ -40,34 +40,6 @@ let find_name_with_loc (attr : Parsetree.attribute) : string Asttypes.loc option
       Some { txt = s; loc }
   | _ -> None
 
-let fld_record (lbl : label) =
-  Lambda.Fld_record
-    {
-      name = Ext_list.find_def lbl.lbl_attributes find_name lbl.lbl_name;
-      mutable_flag = lbl.lbl_mut;
-    }
-
-let fld_record_set (lbl : label) =
-  Lambda.Fld_record_set
-    (Ext_list.find_def lbl.lbl_attributes find_name lbl.lbl_name)
-
-let blk_record (fields : (label * _) array) mut record_repr =
-  let all_labels_info =
-    Ext_array.map fields (fun (lbl, _) ->
-        Ext_list.find_def lbl.lbl_attributes find_name lbl.lbl_name)
-  in
-  Lambda.Blk_record
-    { fields = all_labels_info; mutable_flag = mut; record_repr }
-
-let blk_record_inlined fields name num_nonconst optional_labels ~tag ~attrs mutable_flag =
-  let fields =
-    Array.map
-      (fun ((lbl : label), _) ->
-        Ext_list.find_def lbl.lbl_attributes find_name lbl.lbl_name)
-      fields
-  in
-  Lambda.Blk_record_inlined {fields; name; num_nonconst; tag; mutable_flag; optional_labels; attrs }
-
 let check_bs_attributes_inclusion (attrs1 : Parsetree.attributes)
     (attrs2 : Parsetree.attributes) lbl_name =
   let a = Ext_list.find_def attrs1 find_name lbl_name in

jscomp/gentype_tests/typescript-react-example/package-lock.json

@@ -10,7 +10,7 @@
     "lint": "eslint src"
   },
   "dependencies": {
-    "@rescript/react": "^0.11.0",
+    "@rescript/react": "^0.12.0",
     "react": "^18.2.0",
     "react-dom": "^18.2.0"
   },

jscomp/gentype_tests/typescript-react-example/package.json

@@ -99,7 +99,7 @@ module ForwardRef = {
   )
 }
 
-@genType type callback<'input, 'output> = React.callback<'input, 'output>
+@genType type callback<'input, 'output> = 'input => 'output
 
 @genType type testReactContext = React.Context.t<int>