Merge pull request #4609 from BuckleScript/lift_too_may_constructors_restriction

lift too many constructors restriction

Author: bobzhang

lib/4.06.1/unstable/js_compiler.ml

@@ -58118,7 +58118,7 @@ let transl_declaration env sdecl id =
               raise(Error(sdecl.ptype_loc, Duplicate_constructor name));
             all_constrs := StringSet.add name !all_constrs)
           scstrs;
-        if List.length
+        if not !Config.bs_only && List.length
             (List.filter (fun cd -> cd.pcd_args <> Pcstr_tuple []) scstrs)
            > (Config.max_tag + 1) then
           raise(Error(sdecl.ptype_loc, Too_many_constructors));

lib/4.06.1/unstable/js_refmt_compiler.ml

@@ -58118,7 +58118,7 @@ let transl_declaration env sdecl id =
               raise(Error(sdecl.ptype_loc, Duplicate_constructor name));
             all_constrs := StringSet.add name !all_constrs)
           scstrs;
-        if List.length
+        if not !Config.bs_only && List.length
             (List.filter (fun cd -> cd.pcd_args <> Pcstr_tuple []) scstrs)
            > (Config.max_tag + 1) then
           raise(Error(sdecl.ptype_loc, Too_many_constructors));

lib/4.06.1/whole_compiler.ml

@@ -342337,7 +342337,7 @@ let transl_declaration env sdecl id =
               raise(Error(sdecl.ptype_loc, Duplicate_constructor name));
             all_constrs := StringSet.add name !all_constrs)
           scstrs;
-        if List.length
+        if not true && List.length
             (List.filter (fun cd -> cd.pcd_args <> Pcstr_tuple []) scstrs)
            > (Config.max_tag + 1) then
           raise(Error(sdecl.ptype_loc, Too_many_constructors));