fix formatting

Author: Bushuo

compiler/gentype/GenTypeMain.ml

@@ -96,11 +96,13 @@ let read_input_cmt is_interface cmt_file =
   let check_annotation ~loc:_ attributes =
     if
       attributes
-      |> Annotation.get_attribute_payload Annotation.tag_is_gentype_ignore_interface
+      |> Annotation.get_attribute_payload
+           Annotation.tag_is_gentype_ignore_interface
       <> None
     then ignore_interface := true;
     attributes
-    |> Annotation.get_attribute_payload Annotation.tag_is_one_of_the_gentype_annotations
+    |> Annotation.get_attribute_payload
+         Annotation.tag_is_one_of_the_gentype_annotations
     <> None
   in
   let has_gentype_annotations =
@@ -138,7 +140,9 @@ let process_cmt_file cmt =
   if cmt_file <> "" then
     let file_name = cmt |> Paths.get_module_name in
     let is_interface = Filename.check_suffix cmt_file ".cmti" in
-    let input_cmt, has_gentype_annotations = read_input_cmt is_interface cmt_file in
+    let input_cmt, has_gentype_annotations =
+      read_input_cmt is_interface cmt_file
+    in
     let source_file =
       match input_cmt.cmt_annots |> FindSourceFile.cmt with
       | Some source_file -> source_file
@@ -150,7 +154,9 @@ let process_cmt_file cmt =
         | false -> ".res")
     in
     let output_file = source_file |> Paths.get_output_file ~config in
-    let output_file_relative = source_file |> Paths.get_output_file_relative ~config in
+    let output_file_relative =
+      source_file |> Paths.get_output_file_relative ~config
+    in
     let resolver =
       ModuleResolver.create_lazy_resolver ~config
         ~extensions:[".res"; ".shim.ts"] ~exclude_file:(fun fname ->

compiler/gentype/Paths.ml

@@ -29,19 +29,21 @@ let find_name_space cmt =
   cmt |> Filename.basename |> (Filename.chop_extension [@doesNotRaise])
   |> keep_after_dash
 
-let remove_project_root_from_absolute_path ~(config: Config.t) source_path =
+let remove_project_root_from_absolute_path ~(config : Config.t) source_path =
   let i = String.length config.project_root + 1 in
   let n = String.length source_path - i in
   (String.sub source_path i n [@doesNotRaise])
 
 let get_output_file_relative ~config source_path =
   if Filename.is_relative source_path then
-    (source_path |> handle_namespace) ^ ModuleExtension.ts_input_file_suffix ~config
+    (source_path |> handle_namespace)
+    ^ ModuleExtension.ts_input_file_suffix ~config
   else
     let relative_path =
       remove_project_root_from_absolute_path ~config source_path
     in
-    (relative_path |> handle_namespace) ^ ModuleExtension.ts_input_file_suffix ~config
+    (relative_path |> handle_namespace)
+    ^ ModuleExtension.ts_input_file_suffix ~config
 
 let get_output_file ~(config : Config.t) sourcePath =
   if Filename.is_relative sourcePath then