make fmt

Author: Ekdohibs

middle_end/flambda2/from_lambda/lambda_to_flambda.ml

@@ -1697,7 +1697,9 @@ and cps_function env ~fid ~(recursive : Recursive.t) ?precomputed_free_idents
   in
   let params =
     List.map
-      (fun (p : Lambda.lparam) -> let No_attributes = p.attributes in p.name, Flambda_kind.With_subkind.from_lambda p.layout)
+      (fun (p : Lambda.lparam) ->
+        let No_attributes = p.attributes in
+        p.name, Flambda_kind.With_subkind.from_lambda p.layout)
       params
   in
   let return =