Fix indentation of doc-strings in classes

CHANGES.md

@@ -33,7 +33,7 @@
 - Restore short form for first-class modules: `((module M) : (module S))` is formatted as `(module M : S)`) (#2280, #2300, @gpetiot, @Julow)
 - Restore short form formatting of record field aliases (#2282, @gpetiot)
 - Tweaks the JaneStreet profile to be more consistent with ocp-indent (#2214, #2281, #2284, #2289, #2299, #2302, #2309, #2310, #2311, #2313, #2316, #2362, #2363, @gpetiot, @Julow)
-- Improve formatting of class signatures (#2301, @gpetiot, @Julow)
+- Improve formatting of class signatures (#2301, #2387, @gpetiot, @Julow)
 - JaneStreet profile: treat comments as doc-comments (#2261, #2344, #2354, #2365, @gpetiot, @Julow)
 - Don't indent attributes after a let/val/external (#2317, @Julow)
 - Adjust indentation of class-expr function body (#2328, @gpetiot)

lib/Fmt_ast.ml

@@ -2730,11 +2730,7 @@ and fmt_class_signature c ~ctx ~parens ?ext self_ fields =
     $ fmt_extension_suffix c ext
     $ self_ $ fmt "@ "
     $ hvbox 0
-        ( ( match fields with
-          | {pctf_desc= Pctf_attribute a; _} :: _ when Attr.is_doc a ->
-              str "\n"
-          | _ -> noop )
-        $ fmt_if_k (List.is_empty fields)
+        ( fmt_if_k (List.is_empty fields)
             (Cmts.fmt_within ~pro:noop c (Ast.location ctx))
         $ fmt_item_list c ctx update_config ast fmt_item fields )
     $ fmt_if (not (List.is_empty fields)) "@;<1000 -2>"

test/passing/tests/class_sig.mli

@@ -17,3 +17,7 @@ class c : int -> object end
 class c (* a *) : (* b *) int (* c *) -> (* d *) object (* e *) end (* f *)
 
 class c : object end
+
+class c : object
+  (** Standalone doc-string. *)
+end

test/passing/tests/object.ml

@@ -182,14 +182,13 @@ class a = object end
 and b = object end
 
 class type x = object
-
-(** floatting1 *)
+  (** floatting1 *)
 
-   (** floatting2 *)
+  (** floatting2 *)
 
-   method x : int
+  method x : int
 
-   (** floatting3 *)
+  (** floatting3 *)
 end
 
 class x =