Upgrade to ocamlformat 0.28.1

Author: voodoos

.ocamlformat

@@ -1,3 +1,3 @@
-version=0.27.0
+version=0.28.1
 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.27.0)))
+  (ocamlformat (and :with-test (= 0.28.1)))
   (ocamlc-loc (>= 3.7.0))
   (pp (>= 1.1.2))
   (csexp (>= 1.5))

ocaml-lsp-server.opam

@@ -39,7 +39,7 @@ depends: [
   "astring"
   "camlp-streams"
   "ppx_expect" {>= "v0.17.0" & with-test}
-  "ocamlformat" {with-test & = "0.27.0"}
+  "ocamlformat" {with-test & = "0.28.1"}
   "ocamlc-loc" {>= "3.7.0"}
   "pp" {>= "1.1.2"}
   "csexp" {>= "1.5"}

ocaml-lsp-server/src/code_actions/action_inline.ml

@@ -217,12 +217,12 @@ let beta_reduce (paths : Paths.t) (app : Parsetree.expression) =
       if is_pure arg then body else with_let ()
     | Ppat_var param | Ppat_constraint ({ ppat_desc = Ppat_var param; _ }, _) ->
       if is_pure arg then with_subst param else with_let ()
-    | Ppat_tuple ( pats, _) ->
+    | Ppat_tuple (pats, _) ->
       let pats = List.map ~f:snd pats in
       (match arg.pexp_desc with
        | Pexp_tuple args ->
-        let args = List.map ~f:snd args in
-        List.fold_left2 ~f:beta_reduce_arg ~init:body pats args
+         let args = List.map ~f:snd args in
+         List.fold_left2 ~f:beta_reduce_arg ~init:body pats args
        | _ -> with_let ())
     | _ -> with_let ()
   in