Updated ocaml-client generated samples using the latest version of th…

…e OCaml code generator.

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

@@ -10,46 +10,46 @@ let add_pet body =
     let uri = Request.build_uri "/pet" in
     let headers = Request.default_headers in
     let body = Request.write_json_body Pet.to_yojson body in
-    Cohttp_lwt_unix.Client.post uri ~headers ~body >>= fun (_resp, body) -> return ()
+    Cohttp_lwt_unix.Client.call `POST uri ~headers ~body >>= fun (_resp, body) -> return ()
 
 let delete_pet pet_id api_key =
     let open Lwt in
     let uri = Request.build_uri "/pet/{petId}" in
     let headers = Request.default_headers in
     let headers = Cohttp.Header.add headers "api_key" (api_key) in
     let uri = Request.replace_path_param uri "petId" (Int64.to_string pet_id) in
-    Cohttp_lwt_unix.Client.delete uri ~headers >>= fun (_resp, body) -> return ()
+    Cohttp_lwt_unix.Client.call `DELETE uri ~headers >>= fun (_resp, body) -> return ()
 
 let find_pets_by_status status =
     let open Lwt in
     let uri = Request.build_uri "/pet/findByStatus" in
     let headers = Request.default_headers in
     let uri = Uri.add_query_param uri ("status", List.map Enums.show_pet_status status) in
-    Cohttp_lwt_unix.Client.get uri ~headers >>= fun (_resp, body) ->
+    Cohttp_lwt_unix.Client.call `GET uri ~headers >>= fun (_resp, body) ->
     Request.read_json_body_as_list_of (JsonSupport.unwrap  Pet.of_yojson) body
 
 let find_pets_by_tags tags =
     let open Lwt in
     let uri = Request.build_uri "/pet/findByTags" in
     let headers = Request.default_headers in
     let uri = Uri.add_query_param uri ("tags", tags) in
-    Cohttp_lwt_unix.Client.get uri ~headers >>= fun (_resp, body) ->
+    Cohttp_lwt_unix.Client.call `GET uri ~headers >>= fun (_resp, body) ->
     Request.read_json_body_as_list_of (JsonSupport.unwrap  Pet.of_yojson) body
 
 let get_pet_by_id pet_id =
     let open Lwt in
     let uri = Request.build_uri "/pet/{petId}" in
     let headers = Request.default_headers in
     let uri = Request.replace_path_param uri "petId" (Int64.to_string pet_id) in
-    Cohttp_lwt_unix.Client.get uri ~headers >>= fun (_resp, body) ->
+    Cohttp_lwt_unix.Client.call `GET uri ~headers >>= fun (_resp, body) ->
     Request.read_json_body_as (JsonSupport.unwrap  Pet.of_yojson) body
 
 let update_pet body =
     let open Lwt in
     let uri = Request.build_uri "/pet" in
     let headers = Request.default_headers in
     let body = Request.write_json_body Pet.to_yojson body in
-    Cohttp_lwt_unix.Client.put uri ~headers ~body >>= fun (_resp, body) -> return ()
+    Cohttp_lwt_unix.Client.call `PUT uri ~headers ~body >>= fun (_resp, body) -> return ()
 
 let update_pet_with_form pet_id name status =
     let open Lwt in
@@ -60,7 +60,7 @@ let update_pet_with_form pet_id name status =
     let body = Request.add_form_encoded_body_param body ("name", name) in
     let body = Request.add_form_encoded_body_param body ("status", status) in
     let body = Request.finalize_form_encoded_body body in
-    Cohttp_lwt_unix.Client.post uri ~headers ~body >>= fun (_resp, body) -> return ()
+    Cohttp_lwt_unix.Client.call `POST uri ~headers ~body >>= fun (_resp, body) -> return ()
 
 let upload_file pet_id additional_metadata file =
     let open Lwt in
@@ -71,6 +71,6 @@ let upload_file pet_id additional_metadata file =
     let body = Request.add_form_encoded_body_param body ("additional_metadata", additional_metadata) in
     let body = Request.add_form_encoded_body_param body ("file", file) in
     let body = Request.finalize_form_encoded_body body in
-    Cohttp_lwt_unix.Client.post uri ~headers ~body >>= fun (_resp, body) ->
+    Cohttp_lwt_unix.Client.call `POST uri ~headers ~body >>= fun (_resp, body) ->
     Request.read_json_body_as (JsonSupport.unwrap  Api_response.of_yojson) body
 

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

@@ -10,28 +10,28 @@ let delete_order order_id =
     let uri = Request.build_uri "/store/order/{orderId}" in
     let headers = Request.default_headers in
     let uri = Request.replace_path_param uri "orderId" (order_id) in
-    Cohttp_lwt_unix.Client.delete uri ~headers >>= fun (_resp, body) -> return ()
+    Cohttp_lwt_unix.Client.call `DELETE uri ~headers >>= fun (_resp, body) -> return ()
 
 let get_inventory () =
     let open Lwt in
     let uri = Request.build_uri "/store/inventory" in
     let headers = Request.default_headers in
-    Cohttp_lwt_unix.Client.get uri ~headers >>= fun (_resp, body) ->
+    Cohttp_lwt_unix.Client.call `GET uri ~headers >>= fun (_resp, body) ->
     Request.read_json_body_as_map_of (JsonSupport.to_int32) body
 
 let get_order_by_id order_id =
     let open Lwt in
     let uri = Request.build_uri "/store/order/{orderId}" in
     let headers = Request.default_headers in
     let uri = Request.replace_path_param uri "orderId" (Int64.to_string order_id) in
-    Cohttp_lwt_unix.Client.get uri ~headers >>= fun (_resp, body) ->
+    Cohttp_lwt_unix.Client.call `GET uri ~headers >>= fun (_resp, body) ->
     Request.read_json_body_as (JsonSupport.unwrap  Order.of_yojson) body
 
 let place_order body =
     let open Lwt in
     let uri = Request.build_uri "/store/order" in
     let headers = Request.default_headers in
     let body = Request.write_json_body Order.to_yojson body in
-    Cohttp_lwt_unix.Client.post uri ~headers ~body >>= fun (_resp, body) ->
+    Cohttp_lwt_unix.Client.call `POST uri ~headers ~body >>= fun (_resp, body) ->
     Request.read_json_body_as (JsonSupport.unwrap  Order.of_yojson) body
 

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

@@ -10,35 +10,35 @@ let create_user body =
     let uri = Request.build_uri "/user" in
     let headers = Request.default_headers in
     let body = Request.write_json_body User.to_yojson body in
-    Cohttp_lwt_unix.Client.post uri ~headers ~body >>= fun (_resp, body) -> return ()
+    Cohttp_lwt_unix.Client.call `POST uri ~headers ~body >>= fun (_resp, body) -> return ()
 
 let create_users_with_array_input body =
     let open Lwt in
     let uri = Request.build_uri "/user/createWithArray" in
     let headers = Request.default_headers in
     let body = Request.write_json_body (JsonSupport.of_list_of User.to_yojson) body in
-    Cohttp_lwt_unix.Client.post uri ~headers ~body >>= fun (_resp, body) -> return ()
+    Cohttp_lwt_unix.Client.call `POST uri ~headers ~body >>= fun (_resp, body) -> return ()
 
 let create_users_with_list_input body =
     let open Lwt in
     let uri = Request.build_uri "/user/createWithList" in
     let headers = Request.default_headers in
     let body = Request.write_json_body (JsonSupport.of_list_of User.to_yojson) body in
-    Cohttp_lwt_unix.Client.post uri ~headers ~body >>= fun (_resp, body) -> return ()
+    Cohttp_lwt_unix.Client.call `POST uri ~headers ~body >>= fun (_resp, body) -> return ()
 
 let delete_user username =
     let open Lwt in
     let uri = Request.build_uri "/user/{username}" in
     let headers = Request.default_headers in
     let uri = Request.replace_path_param uri "username" (username) in
-    Cohttp_lwt_unix.Client.delete uri ~headers >>= fun (_resp, body) -> return ()
+    Cohttp_lwt_unix.Client.call `DELETE uri ~headers >>= fun (_resp, body) -> return ()
 
 let get_user_by_name username =
     let open Lwt in
     let uri = Request.build_uri "/user/{username}" in
     let headers = Request.default_headers in
     let uri = Request.replace_path_param uri "username" (username) in
-    Cohttp_lwt_unix.Client.get uri ~headers >>= fun (_resp, body) ->
+    Cohttp_lwt_unix.Client.call `GET uri ~headers >>= fun (_resp, body) ->
     Request.read_json_body_as (JsonSupport.unwrap  User.of_yojson) body
 
 let login_user username password =
@@ -47,20 +47,20 @@ let login_user username password =
     let headers = Request.default_headers in
     let uri = Uri.add_query_param' uri ("username", username) in
     let uri = Uri.add_query_param' uri ("password", password) in
-    Cohttp_lwt_unix.Client.get uri ~headers >>= fun (_resp, body) ->
+    Cohttp_lwt_unix.Client.call `GET uri ~headers >>= fun (_resp, body) ->
     Request.read_json_body_as (JsonSupport.to_string) body
 
 let logout_user () =
     let open Lwt in
     let uri = Request.build_uri "/user/logout" in
     let headers = Request.default_headers in
-    Cohttp_lwt_unix.Client.get uri ~headers >>= fun (_resp, body) -> return ()
+    Cohttp_lwt_unix.Client.call `GET uri ~headers >>= fun (_resp, body) -> return ()
 
 let update_user username body =
     let open Lwt in
     let uri = Request.build_uri "/user/{username}" in
     let headers = Request.default_headers in
     let uri = Request.replace_path_param uri "username" (username) in
     let body = Request.write_json_body User.to_yojson body in
-    Cohttp_lwt_unix.Client.put uri ~headers ~body >>= fun (_resp, body) -> return ()
+    Cohttp_lwt_unix.Client.call `PUT uri ~headers ~body >>= fun (_resp, body) -> return ()