Fix 'wrap-comments' not working with the janestreet profile

ocaml-ppx · Jan 7, 2025 · 1661213 · 1661213
1 parent 5bac2e7
commit 1661213
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/lib/Cmts.ml b/lib/Cmts.ml
@@ -581,7 +581,9 @@ end
 
 let fmt_cmt (conf : Conf.t) cmt ~fmt_code =
   let open Fmt in
-  let parse_comments_as_doc = conf.fmt_opts.ocp_indent_compat.v in
+  let parse_comments_as_doc =
+    conf.fmt_opts.wrap_docstrings.v && conf.fmt_opts.parse_docstrings.v
+  in
   let decoded = Cmt.decode ~parse_comments_as_doc cmt in
   (* TODO: Offset should be computed from location. *)
   let offset = 2 + String.length decoded.prefix in