Upgrade (again) to OCamlformat 0.27.0 (#1444)

* Bump ocamlformat version and update nix flake

* Promote formatting changes

* Add commit to ignored revs

Author: voodoos

.git-blame-ignore-revs

@@ -7,3 +7,5 @@
 ab49baa5873e7f0b9181dbed3ad89681f1e4bcee
 # Upgrade to OCamlformat 0.26.1
 1a6419bac3ce012deb9c6891e6b25e2486c33388
+# Upgrade to OCamlformat 0.27.0
+2ccbee5dd691690228307d3636e2f82c8cdb3902

.ocamlformat

@@ -1,3 +1,3 @@
-version=0.26.2
+version=0.27.0
 profile=janestreet
 ocaml-version=4.14.0

dune-project

@@ -64,7 +64,7 @@ possible and does not make any assumptions about IO.
   astring
   camlp-streams
   (ppx_expect (and (>= v0.17.0) :with-test))
-  (ocamlformat (and :with-test (= 0.26.2)))
+  (ocamlformat (and :with-test (= 0.27.0)))
   (ocamlc-loc (>= 3.7.0))
   (pp (>= 1.1.2))
   (csexp (>= 1.5))

flake.lock

@@ -137,11 +137,11 @@ struct
   ;;
 
   let create
-    ?(on_request = on_request_fail)
-    ?(on_notification = on_notification_fail)
-    ~name
-    chan
-    state
+        ?(on_request = on_request_fail)
+        ?(on_notification = on_notification_fail)
+        ~name
+        chan
+        state
     =
     let pending = Id.Table.create 10 in
     { chan
@@ -274,8 +274,8 @@ struct
       let* () =
         Fiber.fork_and_join_unit
           (fun () ->
-            let* () = loop () in
-            Fiber.Pool.stop later)
+             let* () = loop () in
+             Fiber.Pool.stop later)
           (fun () -> Fiber.Pool.run later)
       in
       close t)
@@ -358,11 +358,10 @@ struct
       let pending = !batch in
       batch := [];
       let pending, ivars =
-        List.fold_left pending ~init:([], []) ~f:(fun (pending, ivars) ->
-            function
-            | `Notification n -> Jsonrpc.Packet.Notification n :: pending, ivars
-            | `Request ((r : Request.t), ivar) ->
-              Jsonrpc.Packet.Request r :: pending, (r.id, ivar) :: ivars)
+        List.fold_left pending ~init:([], []) ~f:(fun (pending, ivars) -> function
+          | `Notification n -> Jsonrpc.Packet.Notification n :: pending, ivars
+          | `Request ((r : Request.t), ivar) ->
+            Jsonrpc.Packet.Request r :: pending, (r.id, ivar) :: ivars)
       in
       List.iter ivars ~f:(fun (id, ivar) -> register_request_ivar t id ivar);
       Chan.send t.chan pending)

jsonrpc-fiber/src/jsonrpc_fiber.ml

@@ -41,7 +41,8 @@ let%expect_test "start and stop server" =
     Fiber.fork_and_join_unit (fun () -> run) (fun () -> Jrpc.stop jrpc)
   in
   let () = Fiber_test.test Dyn.opaque run in
-  [%expect {|
+  [%expect
+    {|
     <opaque> |}]
 ;;
 
@@ -62,7 +63,8 @@ let%expect_test "server accepts notifications" =
     Jrpc.run jrpc
   in
   Fiber_test.test Dyn.opaque run;
-  [%expect {|
+  [%expect
+    {|
     received notification
     <opaque> |}]
 ;;
@@ -99,7 +101,8 @@ let%expect_test "serving requests" =
       print_endline (Yojson.Safe.pretty_to_string ~std:false json))
   in
   Fiber_test.test Dyn.opaque run;
-  [%expect {|
+  [%expect
+    {|
     { "id": 1, "jsonrpc": "2.0", "result": "response" }
     <opaque> |}]
 ;;

jsonrpc-fiber/test/jsonrpc_fiber_tests.ml

@@ -247,8 +247,8 @@ module Packet = struct
     | Batch_call r ->
       `List
         (List.map r ~f:(function
-          | `Request r -> Request.yojson_of_t r
-          | `Notification r -> Notification.yojson_of_t r))
+           | `Request r -> Request.yojson_of_t r
+           | `Notification r -> Notification.yojson_of_t r))
   ;;
 
   let t_of_fields (fields : (string * Json.t) list) =

jsonrpc/src/jsonrpc.ml

@@ -147,9 +147,9 @@ struct
     ;;
 
     let make
-      ?(on_request = on_request_default)
-      ?(on_notification = on_notification_default)
-      ()
+          ?(on_request = on_request_default)
+          ?(on_notification = on_notification_default)
+          ()
       =
       { h_on_request = on_request; h_on_notification = on_notification }
     ;;
@@ -176,9 +176,9 @@ struct
                  Lazy.force remove;
                  exn))
             (fun () ->
-              Fiber.Var.set cancel_token cancel (fun () ->
-                Table.replace t.pending req.id cancel;
-                h_on_request.on_request t r))
+               Fiber.Var.set cancel_token cancel (fun () ->
+                 Table.replace t.pending req.id cancel;
+                 h_on_request.on_request t r))
         in
         let to_response x =
           Jsonrpc.Response.ok req.id (In_request.yojson_of_result r x)
@@ -192,8 +192,8 @@ struct
             let f send =
               Fiber.finalize
                 (fun () ->
-                  Fiber.Var.set cancel_token cancel (fun () ->
-                    k (fun r -> send (to_response r))))
+                   Fiber.Var.set cancel_token cancel (fun () ->
+                     k (fun r -> send (to_response r))))
                 ~finally:(fun () ->
                   Lazy.force remove;
                   Fiber.return ())
@@ -265,12 +265,12 @@ struct
         cancel
         ~on_cancel:(fun () -> on_cancel jsonrpc_req.id)
         (fun () ->
-          let+ resp = Session.request (Fdecl.get t.session) jsonrpc_req in
-          match resp.result with
-          | Error { code = RequestCancelled; _ } -> `Cancelled
-          | Ok _ when Fiber.Cancel.fired cancel -> `Cancelled
-          | Ok s -> `Ok (Out_request.response_of_json req s)
-          | Error e -> raise (Jsonrpc.Response.Error.E e))
+           let+ resp = Session.request (Fdecl.get t.session) jsonrpc_req in
+           match resp.result with
+           | Error { code = RequestCancelled; _ } -> `Cancelled
+           | Ok _ when Fiber.Cancel.fired cancel -> `Cancelled
+           | Ok s -> `Ok (Out_request.response_of_json req s)
+           | Error e -> raise (Jsonrpc.Response.Error.E e))
     in
     match cancel_status with
     | Cancelled () -> `Cancelled
@@ -331,8 +331,8 @@ struct
   let start_loop t =
     Fiber.fork_and_join_unit
       (fun () ->
-        let* () = Session.run (Fdecl.get t.session) in
-        Fiber.Pool.stop t.detached)
+         let* () = Session.run (Fdecl.get t.session) in
+         Fiber.Pool.stop t.detached)
       (fun () -> Fiber.Pool.run t.detached)
   ;;
 

lsp-fiber/src/rpc.ml

@@ -6,11 +6,11 @@ open Lsp_fiber
 module Test = struct
   module Client = struct
     let run
-      ?(capabilities = ClientCapabilities.create ())
-      ?on_request
-      ?on_notification
-      state
-      (in_, out)
+          ?(capabilities = ClientCapabilities.create ())
+          ?on_request
+          ?on_notification
+          state
+          (in_, out)
       =
       let initialize = InitializeParams.create ~capabilities () in
       let client =

lsp-fiber/test/lsp_fiber_test.ml

@@ -108,8 +108,8 @@ let ocaml =
     (Metamodel_lsp.t ()
      |> preprocess_metamodel#t
      |> (fun metamodel ->
-          let db = Metamodel.Entity.DB.create metamodel in
-          expand_superclasses db metamodel)
+     let db = Metamodel.Entity.DB.create metamodel in
+     expand_superclasses db metamodel)
      |> Typescript.of_metamodel
      |> Ocaml.of_typescript)
 ;;