From 701f2e92fbe8c5c003b99eef5b694624747e7e42 Mon Sep 17 00:00:00 2001
From: Paul-Elliot <peada@free.fr>
Date: Tue, 12 Sep 2023 15:08:10 +0200
Subject: [PATCH] compatibility with 4.02

Signed-off-by: Paul-Elliot <peada@free.fr>
---
 src/ocamlary/ocamlary.mli          | 6 ++++--
 test/generators/html/Ocamlary.html | 8 --------
 test/generators/latex/Ocamlary.tex | 4 ++--
 test/generators/man/Ocamlary.3o    | 6 ------
 4 files changed, 6 insertions(+), 18 deletions(-)

diff --git a/src/ocamlary/ocamlary.mli b/src/ocamlary/ocamlary.mli
index 6ef6a2e791..b2981ef8ba 100644
--- 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
index 4d24b672fd..f373cb0172 100644
--- 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
index b4bd38748a..8bb5a998cd 100644
--- 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
index 06720dd6ce..f2ab4c7dc3 100644
--- 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