Fix unstable unattached doc comment in records (#998)

ocaml-ppx · Aug 30, 2019 · 33f03b1 · 33f03b1
1 parent b9b6f32
commit 33f03b1
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 2 deletions.
diff --git a/src/Fmt_ast.ml b/src/Fmt_ast.ml
@@ -3121,8 +3121,8 @@ and fmt_label_declaration c ctx decl ?(last = false) =
                     $ fmt_semicolon )
                 $ cmt_after_type )
             $ fmt_attributes c ~pre:(fmt "@;<1 1>") ~key:"@" atrs )
-        $ Cmts.fmt_after c pld_loc
-        $ fmt_docstring_padded c doc ) )
+        $ fmt_docstring_padded c doc
+        $ Cmts.fmt_after c pld_loc ) )
 
 and fmt_constructor_declaration c ctx ~max_len_name ~first ~last:_ cstr_decl
     =

diff --git a/test/passing/comments.ml b/test/passing/comments.ml
@@ -201,3 +201,8 @@ let _ =
      | Some z -> incr z (* double some *))
   | None -> ()
 ;;
+
+type prefix = {
+  sib_extend : int; (* extended sib index bit *)
+  (** add more as needed *)
+}
diff --git a/test/passing/comments.ml.ref b/test/passing/comments.ml.ref
@@ -284,3 +284,6 @@ let _ =
   | Some y -> (
     match y with None -> () | Some z -> incr z (* double some *) )
   | None -> ()
+
+type prefix =
+  {sib_extend: int  (** add more as needed *) (* extended sib index bit *)}