dune fmt

Author: aspeddro

jscomp/gentype/TranslateStructure.ml

@@ -6,7 +6,9 @@ let rec addAnnotationsToTypes_ ~config ~(expr : Typedtree.expression)
   | ( Texp_function {arg_label; param; cases = [{c_rhs}]},
       _,
       {a_type} :: next_types ) ->
-    let next_types1 = next_types |> addAnnotationsToTypes_ ~config ~expr:c_rhs in
+    let next_types1 =
+      next_types |> addAnnotationsToTypes_ ~config ~expr:c_rhs
+    in
     let a_name = Ident.name param in
     let _ = Printtyped.implementation in
     let a_name =

jscomp/syntax/src/jsx_ppx.ml

@@ -72,10 +72,16 @@ let process_config_attribute attribute config =
   if is_jsx_config_attr attribute then update_config config (snd attribute)
 
 let get_mapper ~config =
-  let expr3, module_binding3, transform_signature_item3, transform_structure_item3 =
+  let ( expr3,
+        module_binding3,
+        transform_signature_item3,
+        transform_structure_item3 ) =
     Reactjs_jsx_v3.jsx_mapper ~config
   in
-  let expr4, module_binding4, transform_signature_item4, transform_structure_item4 =
+  let ( expr4,
+        module_binding4,
+        transform_signature_item4,
+        transform_structure_item4 ) =
     Jsx_v4.jsx_mapper ~config
   in
 

jscomp/syntax/src/jsx_v4.ml

@@ -1354,8 +1354,8 @@ let transform_jsx_call ~config mapper call_expression call_arguments
         "JSX: `createElement` should be preceeded by a module name."
     (* Foo.createElement(~prop1=foo, ~prop2=bar, ~children=[], ()) *)
     | {loc; txt = Ldot (module_path, ("createElement" | "make"))} ->
-      transform_uppercase_call3 ~config module_path mapper jsx_expr_loc loc attrs
-        call_arguments
+      transform_uppercase_call3 ~config module_path mapper jsx_expr_loc loc
+        attrs call_arguments
     (* div(~prop1=foo, ~prop2=bar, ~children=[bla], ()) *)
     (* turn that into
        ReactDOM.createElement(~props=ReactDOM.props(~props1=foo, ~props2=bar, ()), [|bla|]) *)

jscomp/syntax/src/res_core.ml

@@ -2148,8 +2148,9 @@ and parse_operand_expr ~context p =
        Arrow expressions could be of the form: `async (): int => stuff()`
        But if we're in a ternary, the `:` of the ternary takes precedence
     *)
-      when is_es6_arrow_expression ~in_ternary:(context = TernaryTrueBranchExpr) p
-      ->
+      when is_es6_arrow_expression
+             ~in_ternary:(context = TernaryTrueBranchExpr)
+             p ->
       let arrow_attrs = !attrs in
       let () = attrs := [] in
       parse_async_arrow_expression ~arrow_attrs p
@@ -2162,7 +2163,9 @@ and parse_operand_expr ~context p =
     | _ ->
       if
         context != WhenExpr
-        && is_es6_arrow_expression ~in_ternary:(context = TernaryTrueBranchExpr) p
+        && is_es6_arrow_expression
+             ~in_ternary:(context = TernaryTrueBranchExpr)
+             p
       then
         let arrow_attrs = !attrs in
         let () = attrs := [] in

jscomp/syntax/src/res_printer.ml

@@ -4714,7 +4714,9 @@ and print_arguments_with_callback_in_last_position ~state ~dotted args cmt_tbl =
    *   (param1, parm2) => doStuff(param1, parm2)
    * )
    *)
-  let break_all_args = lazy (print_arguments ~state ~dotted args cmt_tbl_copy2) in
+  let break_all_args =
+    lazy (print_arguments ~state ~dotted args cmt_tbl_copy2)
+  in
 
   (* Sometimes one of the non-callback arguments will break.
    * There might be a single line comment in there, or a multiline string etc.