Fix compilation for binary types

The implementation may not be correct, but at least it compiles. To be checked
if someday someone actually uses it/complains.

Author: sir4ur0n

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

@@ -32,3 +32,4 @@
         {{/isEnum}}
     {{/isContainer}}
 {{/isModel}}
+{{#isBinary}}JsonSupport.of_string{{/isBinary}}

samples/client/petstore/ocaml-fake-petstore/src/apis/another_fake_api.ml

@@ -20,6 +20,7 @@ let call_123_test_special_tags ~client_t =
 
 
             Client.to_yojson
+
  client_t
     in
     Cohttp_lwt_unix.Client.call `PATCH uri ~headers ~body >>= fun (resp, body) ->

samples/client/petstore/ocaml-fake-petstore/src/apis/fake_api.ml

@@ -38,6 +38,7 @@ let fake_http_signature_test ~pet_t ?query_1 ?header_1 () =
 
 
             Pet.to_yojson
+
  pet_t
     in
     Cohttp_lwt_unix.Client.call `GET uri ~headers ~body >>= fun (resp, body) ->
@@ -57,6 +58,7 @@ let fake_outer_boolean_serialize ~body () =
 
 
 JsonSupport.of_bool
+
  body
     in
     Cohttp_lwt_unix.Client.call `POST uri ~headers ~body >>= fun (resp, body) ->
@@ -77,6 +79,7 @@ let fake_outer_composite_serialize ~outer_composite_t () =
 
 
             Outer_composite.to_yojson
+
  outer_composite_t
     in
     Cohttp_lwt_unix.Client.call `POST uri ~headers ~body >>= fun (resp, body) ->
@@ -96,6 +99,7 @@ let fake_outer_number_serialize ~body () =
 JsonSupport.of_float
 
 
+
  body
     in
     Cohttp_lwt_unix.Client.call `POST uri ~headers ~body >>= fun (resp, body) ->
@@ -115,6 +119,7 @@ let fake_outer_string_serialize ~body () =
 
 
 
+
  body
     in
     Cohttp_lwt_unix.Client.call `POST uri ~headers ~body >>= fun (resp, body) ->
@@ -135,6 +140,7 @@ let fake_property_enum_integer_serialize ~outer_object_with_enum_property_t =
 
 
             Outer_object_with_enum_property.to_yojson
+
  outer_object_with_enum_property_t
     in
     Cohttp_lwt_unix.Client.call `POST uri ~headers ~body >>= fun (resp, body) ->
@@ -166,6 +172,7 @@ let test_body_with_binary ~body =
 
 
 
+JsonSupport.of_string
  body
     in
     Cohttp_lwt_unix.Client.call `PUT uri ~headers ~body >>= fun (resp, body) ->
@@ -186,6 +193,7 @@ let test_body_with_file_schema ~file_schema_test_class_t =
 
 
             File_schema_test_class.to_yojson
+
  file_schema_test_class_t
     in
     Cohttp_lwt_unix.Client.call `PUT uri ~headers ~body >>= fun (resp, body) ->
@@ -208,6 +216,7 @@ let test_body_with_query_params ~query ~user_t =
 
 
             User.to_yojson
+
  user_t
     in
     Cohttp_lwt_unix.Client.call `PUT uri ~headers ~body >>= fun (resp, body) ->
@@ -228,6 +237,7 @@ let test_client_model ~client_t =
 
 
             Client.to_yojson
+
  client_t
     in
     Cohttp_lwt_unix.Client.call `PATCH uri ~headers ~body >>= fun (resp, body) ->
@@ -334,6 +344,7 @@ let test_inline_additional_properties ~request_body =
 
 
 
+
 )
 
 
@@ -342,6 +353,7 @@ let test_inline_additional_properties ~request_body =
 
 
 
+
  request_body
     in
     Cohttp_lwt_unix.Client.call `POST uri ~headers ~body >>= fun (resp, body) ->
@@ -362,6 +374,7 @@ let test_inline_freeform_additional_properties ~test_inline_freeform_additional_
 
 
             Test_inline_freeform_additional_properties_request.to_yojson
+
  test_inline_freeform_additional_properties_request_t
     in
     Cohttp_lwt_unix.Client.call `POST uri ~headers ~body >>= fun (resp, body) ->
@@ -395,6 +408,7 @@ let test_nullable ~child_with_nullable_t =
 
 
             Child_with_nullable.to_yojson
+
  child_with_nullable_t
     in
     Cohttp_lwt_unix.Client.call `POST uri ~headers ~body >>= fun (resp, body) ->
@@ -441,6 +455,7 @@ let test_string_map_reference ~request_body =
 
 
 
+
 )
 
 
@@ -449,6 +464,7 @@ let test_string_map_reference ~request_body =
 
 
 
+
  request_body
     in
     Cohttp_lwt_unix.Client.call `POST uri ~headers ~body >>= fun (resp, body) ->

samples/client/petstore/ocaml-fake-petstore/src/apis/fake_classname_tags123_api.ml

@@ -21,6 +21,7 @@ let test_classname ~client_t =
 
 
             Client.to_yojson
+
  client_t
     in
     Cohttp_lwt_unix.Client.call `PATCH uri ~headers ~body >>= fun (resp, body) ->

samples/client/petstore/ocaml-fake-petstore/src/apis/pet_api.ml

@@ -20,6 +20,7 @@ let add_pet ~pet_t =
 
 
             Pet.to_yojson
+
  pet_t
     in
     Cohttp_lwt_unix.Client.call `POST uri ~headers ~body >>= fun (resp, body) ->
@@ -81,6 +82,7 @@ let update_pet ~pet_t =
 
 
             Pet.to_yojson
+
  pet_t
     in
     Cohttp_lwt_unix.Client.call `PUT uri ~headers ~body >>= fun (resp, body) ->

samples/client/petstore/ocaml-fake-petstore/src/apis/store_api.ml

@@ -46,6 +46,7 @@ let place_order ~order_t =
 
 
             Order.to_yojson
+
  order_t
     in
     Cohttp_lwt_unix.Client.call `POST uri ~headers ~body >>= fun (resp, body) ->

samples/client/petstore/ocaml-fake-petstore/src/apis/user_api.ml

@@ -20,6 +20,7 @@ let create_user ~user_t =
 
 
             User.to_yojson
+
  user_t
     in
     Cohttp_lwt_unix.Client.call `POST uri ~headers ~body >>= fun (resp, body) ->
@@ -40,6 +41,7 @@ let create_users_with_array_input ~user =
 
 
             User.to_yojson
+
 )
 
 
@@ -48,6 +50,7 @@ let create_users_with_array_input ~user =
 
 
 
+
  user
     in
     Cohttp_lwt_unix.Client.call `POST uri ~headers ~body >>= fun (resp, body) ->
@@ -68,6 +71,7 @@ let create_users_with_list_input ~user =
 
 
             User.to_yojson
+
 )
 
 
@@ -76,6 +80,7 @@ let create_users_with_list_input ~user =
 
 
 
+
  user
     in
     Cohttp_lwt_unix.Client.call `POST uri ~headers ~body >>= fun (resp, body) ->
@@ -134,6 +139,7 @@ let update_user ~username ~user_t =
 
 
             User.to_yojson
+
  user_t
     in
     Cohttp_lwt_unix.Client.call `PUT uri ~headers ~body >>= fun (resp, body) ->

samples/client/petstore/ocaml/src/apis/pet_api.ml

@@ -20,6 +20,7 @@ let add_pet ~pet_t =
 
 
             Pet.to_yojson
+
  pet_t
     in
     Cohttp_lwt_unix.Client.call `POST uri ~headers ~body >>= fun (resp, body) ->
@@ -81,6 +82,7 @@ let update_pet ~pet_t =
 
 
             Pet.to_yojson
+
  pet_t
     in
     Cohttp_lwt_unix.Client.call `PUT uri ~headers ~body >>= fun (resp, body) ->

samples/client/petstore/ocaml/src/apis/store_api.ml

@@ -46,6 +46,7 @@ let place_order ~order_t =
 
 
             Order.to_yojson
+
  order_t
     in
     Cohttp_lwt_unix.Client.call `POST uri ~headers ~body >>= fun (resp, body) ->

samples/client/petstore/ocaml/src/apis/user_api.ml

@@ -21,6 +21,7 @@ let create_user ~user_t =
 
 
             User.to_yojson
+
  user_t
     in
     Cohttp_lwt_unix.Client.call `POST uri ~headers ~body >>= fun (resp, body) ->
@@ -42,6 +43,7 @@ let create_users_with_array_input ~user =
 
 
             User.to_yojson
+
 )
 
 
@@ -50,6 +52,7 @@ let create_users_with_array_input ~user =
 
 
 
+
  user
     in
     Cohttp_lwt_unix.Client.call `POST uri ~headers ~body >>= fun (resp, body) ->
@@ -71,6 +74,7 @@ let create_users_with_list_input ~user =
 
 
             User.to_yojson
+
 )
 
 
@@ -79,6 +83,7 @@ let create_users_with_list_input ~user =
 
 
 
+
  user
     in
     Cohttp_lwt_unix.Client.call `POST uri ~headers ~body >>= fun (resp, body) ->
@@ -140,6 +145,7 @@ let update_user ~username ~user_t =
 
 
             User.to_yojson
+
  user_t
     in
     Cohttp_lwt_unix.Client.call `PUT uri ~headers ~body >>= fun (resp, body) ->