OCaml: fix recursive types

sir4ur0n · sir4ur0n · commit 47680b28200a · 2026-02-18T15:20:06.000+01:00
diff --git a/modules/openapi-generator/src/main/java/org/openapitools/codegen/languages/OCamlClientCodegen.java b/modules/openapi-generator/src/main/java/org/openapitools/codegen/languages/OCamlClientCodegen.java
@@ -251,9 +251,6 @@ public ModelsMap postProcessModels(ModelsMap objs) {
                     .anyMatch(prop -> prop.isSelfReference);
 
             if (hasSelfRef) {
-                // Add vendor extension for template
-                cm.getVendorExtensions().put("x-ocaml-has-self-reference", true);
-
                 // Collect names of self-referencing properties
                 Set<String> selfRefPropNames = cm.allVars.stream()
                         .filter(p -> p.isSelfReference)
diff --git a/modules/openapi-generator/src/main/resources/ocaml/model-record.mustache b/modules/openapi-generator/src/main/resources/ocaml/model-record.mustache
@@ -1,4 +1,4 @@
-type {{#vendorExtensions.x-ocaml-has-self-reference}}rec {{/vendorExtensions.x-ocaml-has-self-reference}}t = {
+type t = {
 {{#vars}}
     {{#isEnum}}
       {{{name}}}: {{^isMap}}Enums.{{/isMap}}{{{datatypeWithEnum}}}
diff --git a/samples/client/petstore/ocaml-recursion-test/src/models/foo.ml b/samples/client/petstore/ocaml-recursion-test/src/models/foo.ml
@@ -8,7 +8,7 @@
 
 
     
-        type rec t = {
+        type t = {
                               foo: t
                   
                    option [@default None]

Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,4 @@`
`1`		`-type {{#vendorExtensions.x-ocaml-has-self-reference}}rec {{/vendorExtensions.x-ocaml-has-self-reference}}t = {`
	`1`	`+type t = {`
`2`	`2`	`{{#vars}}`
`3`	`3`	`{{#isEnum}}`
`4`	`4`	`{{{name}}}: {{^isMap}}Enums.{{/isMap}}{{{datatypeWithEnum}}}`