Format files

Author: liam923

src/analysis/misc_utils.ml

@@ -63,6 +63,7 @@ let parse_identifier (config, source) pos =
 let is_current_unit comp_unit =
   match Env.get_unit_name () with
   | Some current_unit ->
-    String.equal (current_unit |> Unit_info.modname |>
-                  Compilation_unit.name_as_string) comp_unit
+    String.equal
+      (current_unit |> Unit_info.modname |> Compilation_unit.name_as_string)
+      comp_unit
   | None -> false

src/analysis/ptyp_of_type.ml

@@ -186,8 +186,7 @@ and label_declaration
       (match ld_mutable with
       | Mutable _ -> Mutable
       | Immutable -> Immutable)
-    ~modalities:
-      (Typemode.untransl_modalities ld_mutable ld_modalities)
+    ~modalities:(Typemode.untransl_modalities ld_mutable ld_modalities)
     (var_of_id ld_id) (core_type ld_type)
 
 and constructor_arguments = function

src/kernel/mocaml.ml

@@ -36,9 +36,9 @@ let setup_reader_config config =
   let open Clflags in
   let ocaml = config.ocaml in
   let to_unit_info name =
-    Some (name |>
-          Compilation_unit.of_string |>
-          Unit_info.make_dummy ~input_name:name)
+    Some
+      (name |> Compilation_unit.of_string
+      |> Unit_info.make_dummy ~input_name:name)
   in
   Env.set_unit_name (Mconfig.unitname config |> to_unit_info);
   Location.input_name := config.query.filename;