[OCaml] Change field comment to Odoc, move it after the field

As per Odoc documentation, record field documentation should be *after* the
field, not before.
See https://ocaml.github.io/odoc/odoc/odoc_for_authors.html#special_comments
type `my_record`

Author: sir4ur0n

modules/openapi-generator/src/main/resources/ocaml/model-record.mustache

@@ -1,8 +1,5 @@
 type t = {
 {{#vars}}
-    {{#description}}
-    (* {{{.}}} *)
-    {{/description}}
     {{#isEnum}}
       {{{name}}}: {{^isMap}}Enums.{{/isMap}}{{{datatypeWithEnum}}}
         {{^isContainer}}
@@ -31,6 +28,9 @@ type t = {
         {{#isMap}}{{^required}} [@default []]{{/required}} [@to_yojson JsonSupport.of_map_of [%to_yojson: {{{items.datatypeWithEnum}}}]] [@of_yojson JsonSupport.to_map_of [%of_yojson: {{{items.datatypeWithEnum}}}]]{{/isMap}}
         ; [@key "{{{baseName}}}"]
     {{/isEnum}}
+    {{#description}}
+    (** {{{.}}} *)
+    {{/description}}
 {{/vars}}
 } [@@deriving yojson { strict = false }, show, eq ];;
 

samples/client/petstore/ocaml-additional-properties/src/models/some_object.ml

@@ -9,36 +9,36 @@
 
 
         type t = {
-                    (* Required, free-form *)
                               required_field1: (string * Yojson.Safe.t) list
 
                  [@to_yojson JsonSupport.of_map_of [%to_yojson: Yojson.Safe.t]] [@of_yojson JsonSupport.to_map_of [%of_yojson: Yojson.Safe.t]]
                 ; [@key "required_field1"]
-                            (* Required, dictionary of strings *)
-                              required_field2: (string * string) list
+                    (** Required, free-form *)
+                                      required_field2: (string * string) list
 
                  [@to_yojson JsonSupport.of_map_of [%to_yojson: string]] [@of_yojson JsonSupport.to_map_of [%of_yojson: string]]
                 ; [@key "required_field2"]
-                            (* Required, dictionary of objects *)
-                              required_field3: (string * Some_object_required_field3_value.t) list
+                    (** Required, dictionary of strings *)
+                                      required_field3: (string * Some_object_required_field3_value.t) list
 
                  [@to_yojson JsonSupport.of_map_of [%to_yojson: Some_object_required_field3_value.t]] [@of_yojson JsonSupport.to_map_of [%of_yojson: Some_object_required_field3_value.t]]
                 ; [@key "required_field3"]
-                            (* Optional, free-form *)
-                              optional_field1: (string * Yojson.Safe.t) list
+                    (** Required, dictionary of objects *)
+                                      optional_field1: (string * Yojson.Safe.t) list
 
                  [@default []] [@to_yojson JsonSupport.of_map_of [%to_yojson: Yojson.Safe.t]] [@of_yojson JsonSupport.to_map_of [%of_yojson: Yojson.Safe.t]]
                 ; [@key "optional_field1"]
-                            (* Optional, dictionary of strings *)
-                              optional_field2: (string * string) list
+                    (** Optional, free-form *)
+                                      optional_field2: (string * string) list
 
                  [@default []] [@to_yojson JsonSupport.of_map_of [%to_yojson: string]] [@of_yojson JsonSupport.to_map_of [%of_yojson: string]]
                 ; [@key "optional_field2"]
-                            (* Optional, dictionary of objects *)
-                              optional_field3: (string * Some_object_required_field3_value.t) list
+                    (** Optional, dictionary of strings *)
+                                      optional_field3: (string * Some_object_required_field3_value.t) list
 
                  [@default []] [@to_yojson JsonSupport.of_map_of [%to_yojson: Some_object_required_field3_value.t]] [@of_yojson JsonSupport.to_map_of [%of_yojson: Some_object_required_field3_value.t]]
                 ; [@key "optional_field3"]
+                    (** Optional, dictionary of objects *)
                 } [@@deriving yojson { strict = false }, show, eq ];;
 
         let create (required_field1 : (string * Yojson.Safe.t) list) (required_field2 : (string * string) list) (required_field3 : (string * Some_object_required_field3_value.t) list) : t = {

samples/client/petstore/ocaml-additional-properties/src/models/some_object_required_field3_value.ml

@@ -9,7 +9,7 @@
 
 
         type t = {
-                                      sub_field1: float
+                              sub_field1: float
 
                    option [@default None]
 
@@ -21,7 +21,7 @@
 
 
                 ; [@key "sub_field2"]
-                } [@@deriving yojson { strict = false }, show, eq ];;
+                        } [@@deriving yojson { strict = false }, show, eq ];;
 
         let create () : t = {
             sub_field1 = None;

samples/client/petstore/ocaml-fake-petstore/src/models/additional_properties_class.ml

@@ -9,15 +9,15 @@
 
 
         type t = {
-                                      map_property: (string * string) list
+                              map_property: (string * string) list
 
                  [@default []] [@to_yojson JsonSupport.of_map_of [%to_yojson: string]] [@of_yojson JsonSupport.to_map_of [%of_yojson: string]]
                 ; [@key "map_property"]
                                               map_of_map_property: (string * (string * string) list) list
 
                  [@default []] [@to_yojson JsonSupport.of_map_of [%to_yojson: (string * string) list]] [@of_yojson JsonSupport.to_map_of [%of_yojson: (string * string) list]]
                 ; [@key "map_of_map_property"]
-                } [@@deriving yojson { strict = false }, show, eq ];;
+                        } [@@deriving yojson { strict = false }, show, eq ];;
 
         let create () : t = {
             map_property = [];

samples/client/petstore/ocaml-fake-petstore/src/models/all_of_with_single_ref.ml

@@ -9,7 +9,7 @@
 
 
         type t = {
-                                      username: string
+                              username: string
 
                    option [@default None]
 
@@ -21,7 +21,7 @@
 
 
                 ; [@key "SingleRefType"]
-                } [@@deriving yojson { strict = false }, show, eq ];;
+                        } [@@deriving yojson { strict = false }, show, eq ];;
 
         let create () : t = {
             username = None;

samples/client/petstore/ocaml-fake-petstore/src/models/animal.ml

@@ -9,7 +9,7 @@
 
 
         type t = {
-                                      class_name: string
+                              class_name: string
 
 
 
@@ -21,7 +21,7 @@
 
 
                 ; [@key "color"]
-                } [@@deriving yojson { strict = false }, show, eq ];;
+                        } [@@deriving yojson { strict = false }, show, eq ];;
 
         let create (class_name : string) : t = {
             class_name = class_name;

samples/client/petstore/ocaml-fake-petstore/src/models/api_response.ml

@@ -9,7 +9,7 @@
 
 
         type t = {
-                                      code: int32
+                              code: int32
 
                    option [@default None]
 
@@ -27,7 +27,7 @@
 
 
                 ; [@key "message"]
-                } [@@deriving yojson { strict = false }, show, eq ];;
+                        } [@@deriving yojson { strict = false }, show, eq ];;
 
         let create () : t = {
             code = None;

samples/client/petstore/ocaml-fake-petstore/src/models/array_of_array_of_number_only.ml

@@ -9,11 +9,11 @@
 
 
         type t = {
-                                      array_array_number: float list list
+                              array_array_number: float list list
                  [@default []]
 
                 ; [@key "ArrayArrayNumber"]
-                } [@@deriving yojson { strict = false }, show, eq ];;
+                        } [@@deriving yojson { strict = false }, show, eq ];;
 
         let create () : t = {
             array_array_number = [];

samples/client/petstore/ocaml-fake-petstore/src/models/array_of_number_only.ml

@@ -9,11 +9,11 @@
 
 
         type t = {
-                                      array_number: float list
+                              array_number: float list
                  [@default []]
 
                 ; [@key "ArrayNumber"]
-                } [@@deriving yojson { strict = false }, show, eq ];;
+                        } [@@deriving yojson { strict = false }, show, eq ];;
 
         let create () : t = {
             array_number = [];

samples/client/petstore/ocaml-fake-petstore/src/models/array_test.ml

@@ -9,7 +9,7 @@
 
 
         type t = {
-                                      array_of_string: string list
+                              array_of_string: string list
                  [@default []]
 
                 ; [@key "array_of_string"]
@@ -21,7 +21,7 @@
                  [@default []]
 
                 ; [@key "array_array_of_model"]
-                } [@@deriving yojson { strict = false }, show, eq ];;
+                        } [@@deriving yojson { strict = false }, show, eq ];;
 
         let create () : t = {
             array_of_string = [];