Fix the build

goldfirere · goldfirere · commit 378f1cddb77e · 2025-04-11T14:10:52.000-04:00
diff --git a/src/ocaml/typing/typecore.ml b/src/ocaml/typing/typecore.ml
@@ -7871,7 +7871,8 @@ and type_label_access
         lbl_sort = Jkind.Sort.Const.value;
       }
     in
-    (record, mode, make_fake_label record_form, expected_type)
+    (record, Mode.Value.disallow_right mode,
+     make_fake_label record_form, expected_type)
 
 (* Typing format strings for printing or reading.
    These formats are used by functions in modules Printf, Format, and Scanf.

Original file line number	Diff line number	Diff line change
`@@ -7871,7 +7871,8 @@ and type_label_access`
`7871`	`7871`	`lbl_sort = Jkind.Sort.Const.value;`
`7872`	`7872`	`}`
`7873`	`7873`	`in`
`7874`		`- (record, mode, make_fake_label record_form, expected_type)`
	`7874`	`+ (record, Mode.Value.disallow_right mode,`
	`7875`	`+ make_fake_label record_form, expected_type)`
`7875`	`7876`
`7876`	`7877`	`(* Typing format strings for printing or reading.`
`7877`	`7878`	`These formats are used by functions in modules Printf, Format, and Scanf.`