Don't format in Git

Author: sir4ur0n

.github/workflows/samples-ocaml.yaml

@@ -35,6 +35,3 @@ jobs:
       - name: Build
         run: opam exec -- dune build
         working-directory: ${{ matrix.sample }}
-      - name: Check formatting
-        run: opam exec -- dune fmt
-        working-directory: ${{ matrix.sample }}

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

@@ -1,11 +1,9 @@
 (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,9 +6,24 @@
  *)
 
 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,10 +6,9 @@
  *)
 
 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
+