compatibility with 4.02

Signed-off-by: Paul-Elliot <[email protected]>
ocaml · Oct 26, 2023 · 61666b2 · 61666b2
1 parent a4dff22
commit 61666b2
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 18 deletions.
diff --git a/src/ocamlary/ocamlary.mli b/src/ocamlary/ocamlary.mli
@@ -431,8 +431,10 @@ type variant =
 
 (** This comment is for [poly_variant]. *)
 type poly_variant =
-  [ `TagA  (** This is a comment for [`TagA] *)
-  | `ConstrB of int  (** This is a comment for [`ConstrB] *) ]
+  [ `TagA
+    (* This is a comment for [`TagA]. Disabled for compatibility
+       with 4.02. *)
+  | `ConstrB of int (* This is a comment for [`ConstrB] *) ]
 (** Wow! It was a polymorphic variant! *)
 
 (** This comment is for [full_gadt]. *)

diff --git a/test/generators/html/Ocamlary.html b/test/generators/html/Ocamlary.html
@@ -1065,20 +1065,12 @@ <h4 id="advanced-type-stuff">
       <li id="type-poly_variant.TagA" class="def variant constructor
        anchored"><a href="#type-poly_variant.TagA" class="anchor"></a>
        <code><span>| </span><span>`TagA</span></code>
-       <div class="def-doc"><span class="comment-delim">(*</span>
-        <p>This is a comment for <code>`TagA</code></p>
-        <span class="comment-delim">*)</span>
-       </div>
       </li>
       <li id="type-poly_variant.ConstrB" class="def variant constructor
        anchored"><a href="#type-poly_variant.ConstrB" class="anchor"></a>
        <code><span>| </span>
         <span>`ConstrB <span class="keyword">of</span> int</span>
        </code>
-       <div class="def-doc"><span class="comment-delim">(*</span>
-        <p>This is a comment for <code>`ConstrB</code></p>
-        <span class="comment-delim">*)</span>
-       </div>
       </li>
      </ol><code><span> ]</span></code>
     </div>

diff --git a/test/generators/latex/Ocamlary.tex b/test/generators/latex/Ocamlary.tex
@@ -438,8 +438,8 @@ \subsubsection{Advanced Type Stuff\label{advanced-type-stuff}}%
 \begin{ocamlindent}This comment is for \ocamlinlinecode{variant}.This comment is also for \ocamlinlinecode{variant}.\end{ocamlindent}%
 \medbreak
 \label{module-Ocamlary-type-poly_variant}\ocamlcodefragment{\ocamltag{keyword}{type} poly\_\allowbreak{}variant = [ }\\
-\begin{ocamltabular}{p{0.500\textwidth}p{0.500\textwidth}}\ocamlcodefragment{| `TagA}\label{module-Ocamlary-type-poly_variant.TagA}& This is a comment for \ocamlinlinecode{`TagA}\\
-\ocamlcodefragment{| `ConstrB \ocamltag{keyword}{of} int}\label{module-Ocamlary-type-poly_variant.ConstrB}& This is a comment for \ocamlinlinecode{`ConstrB}\\
+\begin{ocamltabular}{p{1.000\textwidth}}\ocamlcodefragment{| `TagA}\label{module-Ocamlary-type-poly_variant.TagA}\\
+\ocamlcodefragment{| `ConstrB \ocamltag{keyword}{of} int}\label{module-Ocamlary-type-poly_variant.ConstrB}\\
 \end{ocamltabular}%
 \\
 \ocamlcodefragment{ ]}\begin{ocamlindent}This comment is for \ocamlinlinecode{poly\_\allowbreak{}variant}.Wow! It was a polymorphic variant!\end{ocamlindent}%

diff --git a/test/generators/man/Ocamlary.3o b/test/generators/man/Ocamlary.3o
@@ -1224,14 +1224,8 @@ This comment is also for variant\.
 .ti +2
 | `TagA
 .br 
-.ti +4
-(* This is a comment for `TagA *)
-.br 
 .ti +2
 | `ConstrB \f[CB]of\fR int
-.br 
-.ti +4
-(* This is a comment for `ConstrB *)
 .br 
  ]
 .fi