format

EmileTrotignon · EmileTrotignon · commit a82dccda37e6 · 2025-03-25T18:41:26.000+01:00
diff --git a/lib/Fmt_ast.ml b/lib/Fmt_ast.ml
@@ -1646,7 +1646,7 @@ and fmt_function ?(last_arg = false) ?force_closing_paren ~ctx ~ctx0 ?pro
     let pro =
       wrap_intro
         ( pro_outer
-        $  hvbox_if has_cmts_outer 0
+        $ hvbox_if has_cmts_outer 0
             ( cmts_outer
             $ Params.Exp.box_fun_decl ~ctx0 c.conf
                 ( pro_inner $ fmt_label label label_sep $ cmts_inner
diff --git a/lib/Params.ml b/lib/Params.ml
@@ -320,11 +320,13 @@ module Exp = struct
     if parens then false
     else
       match ctx0 with Exp {pexp_desc= Pexp_infix _; _} -> false | _ -> true
+
   let function_inner_pro ~has_cmts_outer ~ctx0 =
     if has_cmts_outer then false
     else
       match ctx0 with
-      | Str _ | Lb _ | Exp {pexp_desc= Pexp_ifthenelse _ | Pexp_let _; _} -> false
+      | Str _ | Lb _ | Exp {pexp_desc= Pexp_ifthenelse _ | Pexp_let _; _} ->
+          false
       | _ -> true
 end
 
