Update ocaml submodule (#4706)

Author: chenglou

lib/4.06.1/unstable/js_compiler.ml

@@ -54761,12 +54761,7 @@ let super_trace ppf =
         fprintf ppf "Further expanded:@,"
       end;
       fprintf ppf
-        "@[<v>\
-          @[%a@]@,\
-          vs@,\
-          @[%a@]\
-          %a\
-        @]"
+        "@[<hov>%a@ vs@ %a@]%a"
         (super_type_expansion ~tag:"error" t1) t1'
         (super_type_expansion ~tag:"info" t2) t2'
         (super_trace false) rem;
@@ -54790,14 +54785,8 @@ let super_unification_error unif tr txt1 ppf txt2 = begin
       let tr = List.map prepare_expansion tr in
       fprintf ppf
         "@[<v 0>\
-          @[<v 2>\
-            %t@,\
-            @[<2>%a@]\
-          @]@,\
-          @[<v 2>\
-            %t@,\
-            @[<2>%a@]\
-          @]\
+          @[<hov 2>%t@ %a@]@,\
+          @[<hov 2>%t@ %a@]\
           %a\
           %t\
         @]"

lib/4.06.1/unstable/js_refmt_compiler.ml

@@ -54761,12 +54761,7 @@ let super_trace ppf =
         fprintf ppf "Further expanded:@,"
       end;
       fprintf ppf
-        "@[<v>\
-          @[%a@]@,\
-          vs@,\
-          @[%a@]\
-          %a\
-        @]"
+        "@[<hov>%a@ vs@ %a@]%a"
         (super_type_expansion ~tag:"error" t1) t1'
         (super_type_expansion ~tag:"info" t2) t2'
         (super_trace false) rem;
@@ -54790,14 +54785,8 @@ let super_unification_error unif tr txt1 ppf txt2 = begin
       let tr = List.map prepare_expansion tr in
       fprintf ppf
         "@[<v 0>\
-          @[<v 2>\
-            %t@,\
-            @[<2>%a@]\
-          @]@,\
-          @[<v 2>\
-            %t@,\
-            @[<2>%a@]\
-          @]\
+          @[<hov 2>%t@ %a@]@,\
+          @[<hov 2>%t@ %a@]\
           %a\
           %t\
         @]"

lib/4.06.1/whole_compiler.ml

@@ -339647,12 +339647,7 @@ let super_trace ppf =
         fprintf ppf "Further expanded:@,"
       end;
       fprintf ppf
-        "@[<v>\
-          @[%a@]@,\
-          vs@,\
-          @[%a@]\
-          %a\
-        @]"
+        "@[<hov>%a@ vs@ %a@]%a"
         (super_type_expansion ~tag:"error" t1) t1'
         (super_type_expansion ~tag:"info" t2) t2'
         (super_trace false) rem;
@@ -339676,14 +339671,8 @@ let super_unification_error unif tr txt1 ppf txt2 = begin
       let tr = List.map prepare_expansion tr in
       fprintf ppf
         "@[<v 0>\
-          @[<v 2>\
-            %t@,\
-            @[<2>%a@]\
-          @]@,\
-          @[<v 2>\
-            %t@,\
-            @[<2>%a@]\
-          @]\
+          @[<hov 2>%t@ %a@]@,\
+          @[<hov 2>%t@ %a@]\
           %a\
           %t\
         @]"