Cleanup

Author: shulhi

compiler/syntax/src/res_core.ml

@@ -4957,7 +4957,6 @@ and parse_type_constructor_declarations ?first p =
   let first_constr_decl =
     match first with
     | None ->
-      (* bar *)
       let doc_comment_attrs =
         match p.Parser.token with
         | DocComment (loc, s) ->
@@ -5565,9 +5564,6 @@ and parse_type_equation_and_representation ?current_type_name_path
         p
     | Private -> parse_private_eq_or_repr p
     | Bar | DotDot | DocComment _ ->
-      (* DOCCOMMENT: Reached here if the first variant starts with |. 
-         It is possible that the first variant may not have | (with multiple variants)
-       *)
       let priv, kind = parse_type_representation p in
       (None, priv, kind)
     | _ -> (

compiler/syntax/src/res_printer.ml

@@ -1549,37 +1549,11 @@ and print_constructor_declarations ~state ~private_flag
 
 and print_constructor_declaration2 ~state i
     (cd : Parsetree.constructor_declaration) cmt_tbl =
-  let comment_attrs, attrs =
-    List.partition
-      (fun ((id, payload) : Parsetree.attribute) ->
-        match (id, payload) with
-        | ( {txt = "res.doc"},
-            PStr
-              [
-                {
-                  pstr_desc =
-                    Pstr_eval
-                      ({pexp_desc = Pexp_constant (Pconst_string (_, _))}, _);
-                };
-              ] ) ->
-          true
-        | _ -> false)
-      cd.pcd_attributes
-  in
+  let comment_attrs, attrs = ParsetreeViewer.partition_doc_comment_attributes cd.pcd_attributes in
   let comment_doc =
     match comment_attrs with
     | [] -> Doc.nil
-    | comment_attrs ->
-      Doc.concat
-        [
-          Doc.group
-            (Doc.join_with_sep
-               (List.map
-                  (fun attr -> print_attribute ~state attr cmt_tbl)
-                  comment_attrs));
-          Doc.hard_line;
-        ]
-  in
+    | comment_attrs -> print_doc_comments ~sep:Doc.hard_line ~state cmt_tbl comment_attrs in
   let attrs = print_attributes ~state attrs cmt_tbl in
   let is_dot_dot_dot = cd.pcd_name.txt = "..." in
   let bar =