fmt

Author: EmileTrotignon

lib/Fmt_ast.ml

@@ -3457,7 +3457,8 @@ and fmt_class_params c ctx params =
        ( wrap_fits_breaks c.conf "[" "]" (list_fl params fmt_param)
        $ space_break ) )
 
-and fmt_type_declaration c ?(kw = "") ?(nonrec_kw="") ?name ?(eq = "=") {ast= decl; _} =
+and fmt_type_declaration c ?(kw = "") ?(nonrec_kw = "") ?name ?(eq = "=")
+    {ast= decl; _} =
   protect c (Td decl)
   @@
   let { ptype_name= {txt; loc}
@@ -3500,8 +3501,7 @@ and fmt_type_declaration c ?(kw = "") ?(nonrec_kw="") ?name ?(eq = "=") {ast= de
       ( str kw
       $ fmt_extension_suffix c ext
       $ fmt_attributes c attrs_before
-      $ str nonrec_kw
-      $ str " "
+      $ str nonrec_kw $ str " "
       $ hvbox_if
           (not (List.is_empty ptype_params))
           0
@@ -4552,7 +4552,9 @@ and fmt_type c ?eq rec_flag decls ctx =
   let fmt_decl c ctx ~prev ~next:_ decl =
     let first = Option.is_none prev in
     let kw, nonrec_kw =
-      if first then if is_rec then ("type", None) else ("type", Some " nonrec") else ("and", None)
+      if first then
+        if is_rec then ("type", None) else ("type", Some " nonrec")
+      else ("and", None)
     in
     fmt_type_declaration c ~kw ?nonrec_kw ?eq (sub_td ~ctx decl)
   in