Prefix List functions with Stdlib as the fake petstore generates a List module

Author: sir4ur0n

modules/openapi-generator/src/main/resources/ocaml/json.mustache

@@ -50,6 +50,6 @@ let of_int32 x = `Intlit (Int32.to_string x)
 
 let of_int64 x = `Intlit (Int64.to_string x)
 
-let of_list_of of_f l = `List (List.map of_f l)
+let of_list_of of_f l = `List (Stdlib.List.map of_f l)
 
-let of_map_of of_f l = `Assoc (List.map (fun (k, v) -> (k, of_f v)) l)
+let of_map_of of_f l = `Assoc (Stdlib.List.map (fun (k, v) -> (k, of_f v)) l)

modules/openapi-generator/src/main/resources/ocaml/support.mustache

@@ -52,13 +52,13 @@ let read_json_body_as_list resp body =
   Lwt.(read_json_body resp body >|= Yojson.Safe.Util.to_list)
 
 let read_json_body_as_list_of of_json resp body =
-  Lwt.(read_json_body_as_list resp body >|= List.map of_json)
+  Lwt.(read_json_body_as_list resp body >|= Stdlib.List.map of_json)
 
 let read_json_body_as_map resp body =
   Lwt.(read_json_body resp body >|= Yojson.Safe.Util.to_assoc)
 
 let read_json_body_as_map_of of_json resp body =
-  Lwt.(read_json_body_as_map resp body >|= List.map (fun (s, v) -> (s, of_json v)))
+  Lwt.(read_json_body_as_map resp body >|= Stdlib.List.map (fun (s, v) -> (s, of_json v)))
 
 let replace_string_path_param uri param_name param_value =
   let regexp = Str.regexp (Str.quote ("{" ^ param_name ^ "}")) in

modules/openapi-generator/src/main/resources/ocaml/to_string.mustache

@@ -1 +1 @@
-{{#isContainer}}{{#items}}(List.map {{> to_string}}){{/items}}{{/isContainer}}{{^isEnum}}{{#isLong}}Int64.to_string{{/isLong}}{{#isInteger}}Int32.to_string{{/isInteger}}{{#isFloat}}string_of_float{{/isFloat}}{{#isNumber}}string_of_float{{/isNumber}}{{#isDouble}}string_of_float{{/isDouble}}{{#isBoolean}}string_of_bool{{/isBoolean}}{{#isFile}}(fun x -> x){{/isFile}}{{#isDate}}(fun x -> x){{/isDate}}{{#isDateTime}}(fun x -> x){{/isDateTime}}{{#isString}}(fun x -> x){{/isString}}{{#isByteArray}}(fun x -> x){{/isByteArray}}{{#isModel}}{{{vendorExtensions.x-model-module}}}.show{{/isModel}}{{/isEnum}}{{^isModel}}{{^isContainer}}{{#isEnum}}Enums.show_{{{datatypeWithEnum}}}{{/isEnum}}{{/isContainer}}{{/isModel}}
+{{#isContainer}}{{#items}}(Stdlib.List.map {{> to_string}}){{/items}}{{/isContainer}}{{^isEnum}}{{#isLong}}Int64.to_string{{/isLong}}{{#isInteger}}Int32.to_string{{/isInteger}}{{#isFloat}}string_of_float{{/isFloat}}{{#isNumber}}string_of_float{{/isNumber}}{{#isDouble}}string_of_float{{/isDouble}}{{#isBoolean}}string_of_bool{{/isBoolean}}{{#isFile}}(fun x -> x){{/isFile}}{{#isDate}}(fun x -> x){{/isDate}}{{#isDateTime}}(fun x -> x){{/isDateTime}}{{#isString}}(fun x -> x){{/isString}}{{#isByteArray}}(fun x -> x){{/isByteArray}}{{#isModel}}{{{vendorExtensions.x-model-module}}}.show{{/isModel}}{{/isEnum}}{{^isModel}}{{^isContainer}}{{#isEnum}}Enums.show_{{{datatypeWithEnum}}}{{/isEnum}}{{/isContainer}}{{/isModel}}