[OCaml] Run dune fmt on all OCaml folders

Author: sir4ur0n

samples/client/petstore/ocaml-fake-petstore/dune

@@ -1,9 +1,11 @@
 (include_subdirs unqualified)
+
 (library
-   (name petstore_client)
-   (public_name petstore_client)
-   (flags (:standard -w -27))
-   (libraries str cohttp-lwt-unix lwt yojson ppx_deriving_yojson.runtime)
-   (preprocess (pps ppx_deriving_yojson ppx_deriving.std))
-   (wrapped true)
-)
+ (name petstore_client)
+ (public_name petstore_client)
+ (flags
+  (:standard -w -27))
+ (libraries str cohttp-lwt-unix lwt yojson ppx_deriving_yojson.runtime)
+ (preprocess
+  (pps ppx_deriving_yojson ppx_deriving.std))
+ (wrapped true))

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

@@ -6,24 +6,9 @@
  *)
 
 let call_123_test_special_tags ~client_t =
-    let open Lwt.Infix in
-    let uri = Request.build_uri "/another-fake/dummy" in
-    let headers = Request.default_headers in
-    let body = Request.
-        
-        write_as_json_body     
-    
-    
-    
-    
-    
-    
-                Client.to_yojson
-    
-    
-    
- client_t
-    in
-    Cohttp_lwt_unix.Client.call `PATCH uri ~headers ~body >>= fun (resp, body) ->
-    Request.read_json_body_as (JsonSupport.unwrap Client.of_yojson) resp body
-
+  let open Lwt.Infix in
+  let uri = Request.build_uri "/another-fake/dummy" in
+  let headers = Request.default_headers in
+  let body = Request.write_as_json_body Client.to_yojson client_t in
+  Cohttp_lwt_unix.Client.call `PATCH uri ~headers ~body >>= fun (resp, body) ->
+  Request.read_json_body_as (JsonSupport.unwrap Client.of_yojson) resp body

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

@@ -6,9 +6,10 @@
  *)
 
 let foo_get () =
-    let open Lwt.Infix in
-    let uri = Request.build_uri "/foo" in
-    let headers = Request.default_headers in
-    Cohttp_lwt_unix.Client.call `GET uri ~headers >>= fun (resp, body) ->
-    Request.read_json_body_as (JsonSupport.unwrap Model__foo_get_default_response.of_yojson) resp body
-
+  let open Lwt.Infix in
+  let uri = Request.build_uri "/foo" in
+  let headers = Request.default_headers in
+  Cohttp_lwt_unix.Client.call `GET uri ~headers >>= fun (resp, body) ->
+  Request.read_json_body_as
+    (JsonSupport.unwrap Model__foo_get_default_response.of_yojson)
+    resp body