Preview ocamlformat 0.27.0 preview1

.git-blame-ignore-revs

@@ -1,2 +1,4 @@
 # git config blame.ignoreRevsFile .git-blame-ignore-revs
 40e0cdb95ff31b81212109fada6e0ff93b6eefee
+# Upgrade to OCamlformat 0.27.0-preview1
+3d0d0baa926e9a61ba52f4ebf04886317c61b93b

.ocamlformat

@@ -1,4 +1,4 @@
-version=0.26.2
+version=0.27.0-preview1
 disable=false
 
 break-cases=fit-or-vertical

src/analysis/completion.ml

@@ -507,7 +507,10 @@ let complete_methods ~env ~prefix obj =
   in
   let methods = List.filter ~f:has_prefix (methods_of_type env t) in
   List.map methods ~f:(fun (name, ty) ->
-      let info = `None (* TODO: get documentation. *) in
+      let info =
+        `None
+        (* TODO: get documentation. *)
+      in
       { name;
         kind = `MethodCall;
         desc = `Type_scheme ty;

src/analysis/destruct.ml

@@ -199,8 +199,8 @@ let rec needs_parentheses = function
          binding. *)
       | Texp_function (_, Tfunction_body _)
       (* The assumption here is that we're not in a [function ... | ...]
-          situation but either in [fun param] or [let name param]. *) ->
-        needs_parentheses ts
+          situation but either in [fun param] or [let name param]. *)
+        -> needs_parentheses ts
       | _ -> true
     end
     | _ -> needs_parentheses ts)

src/analysis/locate.ml

@@ -794,7 +794,8 @@ let doc_from_uid ~config ~loc uid =
       when Env.get_unit_name () <> comp_unit ->
       log ~title:"get_doc"
         "the doc (%a) you're looking for is in another\n\
-        \      compilation unit (%s)" Logger.fmt
+        \      compilation unit (%s)"
+        Logger.fmt
         (fun fmt -> Shape.Uid.print fmt uid)
         comp_unit;
       log ~title:"doc_from_uid" "Loading the cmt for unit %S" comp_unit;

src/analysis/syntax_doc.ml

@@ -39,7 +39,7 @@ let get_syntax_doc cursor_loc node : syntax_info =
     :: ( _,
          Module_type_constraint
            (Tmodtype_explicit
-             { mty_desc = Tmty_with (_, [ (_, _, Twith_modtype _) ]); _ }) )
+              { mty_desc = Tmty_with (_, [ (_, _, Twith_modtype _) ]); _ }) )
     :: _ ->
     Some
       { name = "Module substitution";

src/frontend/ocamlmerlin/old/old_protocol.ml

@@ -73,8 +73,8 @@ type _ sync_command =
   | Checkout : Context.document -> unit sync_command
   | Idle_job : bool sync_command
   | Flags_get : string list sync_command
-  | Project_get
-      : (string list * [ `Ok | `Failures of string list ]) sync_command
+  | Project_get :
+      (string list * [ `Ok | `Failures of string list ]) sync_command
 
 type 'a command = Query of 'a Query_protocol.t | Sync of 'a sync_command
 

src/kernel/mconfig.ml

@@ -614,13 +614,15 @@ let ocaml_flags =
         \        <num>             a single warning number\n\
         \        <num1>..<num2>    a range of consecutive warning numbers\n\
         \        <letter>          a predefined set\n\
-        \     default setting is %S" Warnings.defaults_w );
+        \     default setting is %S"
+        Warnings.defaults_w );
     ( "-warn-error",
       ocaml_warnings_spec ~error:true,
       Printf.sprintf
         "<list> Enable or disable error status for warnings according\n\
         \     to <list>.  See option -w for the syntax of <list>.\n\
-        \     Default setting is %S" Warnings.defaults_warn_error );
+        \     Default setting is %S"
+        Warnings.defaults_warn_error );
     ( "-alert",
       ocaml_alert_spec,
       Printf.sprintf

src/kernel/mreader.ml

@@ -177,7 +177,10 @@ let parse ?for_completion config = function
     with
     | Some (`No_labels no_labels_for_completion, parsetree) ->
       let lexer_errors, parser_errors, comments = ([], [], []) in
-      let lexer_keywords = [] (* TODO? *) in
+      let lexer_keywords =
+        []
+        (* TODO? *)
+      in
       { lexer_keywords;
         lexer_errors;
         parser_errors;