Format code

janestreet · Oct 14, 2024 · 44e727d · 44e727d
1 parent 3c12506
commit 44e727d
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 4 deletions.
diff --git a/src/analysis/construct.ml b/src/analysis/construct.ml
@@ -397,7 +397,10 @@ module Gen = struct
             List.map args_combinations ~f:(function
               | [] -> None
               | [ e ] -> Some e
-              | l -> Some (Ast_helper.Exp.tuple (List.map l ~f:(fun exp -> (None, exp)))))
+              | l ->
+                Some
+                  (Ast_helper.Exp.tuple
+                     (List.map l ~f:(fun exp -> (None, exp)))))
           in
           Btype.backtrack snap;
           List.filter_map exps ~f:(fun exp ->
@@ -536,8 +539,7 @@ module Gen = struct
             |> Util.combinations
           in
           List.map choices ~f:(fun choice ->
-              Ast_helper.Exp.tuple choice
-                ~loc:!Ast_helper.default_loc)
+              Ast_helper.Exp.tuple choice ~loc:!Ast_helper.default_loc)
         | Tunboxed_tuple types ->
           let choices =
             List.map types ~f:(fun (lbl, ty) ->

diff --git a/src/ocaml/merlin_specific/browse_raw.ml b/src/ocaml/merlin_specific/browse_raw.ml
@@ -828,7 +828,8 @@ let expression_paths { Typedtree.exp_desc; exp_extra; _ } =
        need to be retrieved here. *)
     | Texp_function { params; _ } ->
       List.concat_map params ~f:(fun { fp_newtypes; _ } ->
-          List.concat_map fp_newtypes ~f:(fun (id, (label_loc : _ Location.loc), _, _) ->
+          List.concat_map fp_newtypes
+            ~f:(fun (id, (label_loc : _ Location.loc), _, _) ->
               let path = Path.Pident id in
               let lid = Longident.Lident label_loc.txt in
               [ (mkloc path label_loc.loc, Some lid) ]))