make fmt

Author: Ekdohibs

middle_end/flambda2/from_lambda/closure_conversion.ml

@@ -2014,8 +2014,8 @@ let close_let_rec acc env ~function_declarations
       named ~body
 
 let wrap_partial_application acc env apply_continuation (apply : IR.apply)
-    approx ~provided ~provided_arity ~missing_arity ~arity ~num_trailing_local_params
-    ~contains_no_escaping_local_allocs =
+    approx ~provided ~provided_arity ~missing_arity ~arity
+    ~num_trailing_local_params ~contains_no_escaping_local_allocs =
   (* In case of partial application, creates a wrapping function from scratch to
      allow inlining and lifting *)
   let wrapper_id = Ident.create_local ("partial_" ^ Ident.name apply.func) in
@@ -2292,7 +2292,11 @@ let close_apply acc env (apply : IR.apply) : Expr_with_acc.t =
             Flambda_arity.partially_apply non_unarized_arity
               ~num_non_unarized_params_provided:args_l
           in
-          Partial_app { provided = args; provided_arity = apply.args_arity; missing_arity }
+          Partial_app
+            { provided = args;
+              provided_arity = apply.args_arity;
+              missing_arity
+            }
         else
           let full, remaining = cut (List.length arity) args in
           let remaining_arity =
@@ -2322,8 +2326,8 @@ let close_apply acc env (apply : IR.apply) : Expr_with_acc.t =
              Inlining_helpers.(
                inlined_attribute_on_partial_application_msg Inlined))
       | Never_inlined | Hint_inlined | Default_inlined -> ());
-      wrap_partial_application acc env apply.continuation apply approx ~provided ~provided_arity
-        ~missing_arity ~arity ~num_trailing_local_params
+      wrap_partial_application acc env apply.continuation apply approx ~provided
+        ~provided_arity ~missing_arity ~arity ~num_trailing_local_params
         ~contains_no_escaping_local_allocs
     | Over_app { full; provided_arity; remaining; remaining_arity } ->
       let full_args_call apply_continuation ~region acc =

middle_end/flambda2/from_lambda/lambda_to_flambda.ml

@@ -1381,8 +1381,8 @@ let rec cps acc env ccenv (lam : L.lambda) (k : cps_continuation)
             in
             let dbg = Debuginfo.from_location loc in
             CC.close_raise acc ccenv ~raise_kind
-              ~arg:(List.hd (List.hd args)) ~dbg
-              exn_continuation)
+              ~arg:(List.hd (List.hd args))
+              ~dbg exn_continuation)
           k_exn
       | [] | _ :: _ ->
         Misc.fatal_errorf "Wrong number of arguments for Lraise: %a"

middle_end/flambda2/from_lambda/lambda_to_flambda_primitives.ml

@@ -619,17 +619,16 @@ let bbswap bi si mode arg ~current_region : H.expr_primitive =
              Prim (Unary (Unbox_number bi, arg)) )) )
 
 let opaque layout arg middle_end_only : H.expr_primitive list =
-  let kinds =
-    Flambda_arity.unarize (Flambda_arity.from_lambda_list [layout])
-  in
+  let kinds = Flambda_arity.unarize (Flambda_arity.from_lambda_list [layout]) in
   if List.compare_lengths kinds arg <> 0
   then
     Misc.fatal_error
-      "Popaque/Pobj_magic layout does not have the same length as unarized argument";
+      "Popaque/Pobj_magic layout does not have the same length as unarized \
+       argument";
   List.map2
     (fun arg_component kind : H.expr_primitive ->
-       let kind = K.With_subkind.kind kind in
-       Unary (Opaque_identity { middle_end_only; kind }, arg_component))
+      let kind = K.With_subkind.kind kind in
+      Unary (Opaque_identity { middle_end_only; kind }, arg_component))
     arg kinds
 
 (* Primitive conversion *)
@@ -718,10 +717,8 @@ let convert_lprim ~big_endian (prim : L.primitive) (args : Simple.t list list)
                 ( Make_array (Naked_floats, mutability, mode),
                   List.map unbox_float args ),
               Variadic (Make_array (Values, mutability, mode), args) ) ]))
-  | Popaque layout, [arg] ->
-    opaque layout arg false
-  | Pobj_magic layout, [arg] ->
-    opaque layout arg true
+  | Popaque layout, [arg] -> opaque layout arg false
+  | Pobj_magic layout, [arg] -> opaque layout arg true
   | Pduprecord (repr, num_fields), [[arg]] ->
     let kind : P.Duplicate_block_kind.t =
       match repr with