@@ -245,7 +245,7 @@ let runAnalysis ~dce_config ~cmtRoot =
245245 in
246246 (* Analysis phase: merge data and solve *)
247247 let analysis_result =
248- if dce_config.DceConfig. run.dce then (
248+ if dce_config.DceConfig. run.dce then
249249 (* Merging phase: combine all builders -> immutable data *)
250250 let annotations, decls, cross_file, refs, file_deps =
251251 Timing. time_phase `Merging (fun () ->
@@ -256,7 +256,8 @@ let runAnalysis ~dce_config ~cmtRoot =
256256 in
257257 let decls =
258258 Declarations. merge_all
259- (dce_data_list |> List. map (fun fd -> fd.DceFileProcessing. decls))
259+ (dce_data_list
260+ |> List. map (fun fd -> fd.DceFileProcessing. decls))
260261 in
261262 let cross_file =
262263 CrossFileItems. merge_all
@@ -271,11 +272,14 @@ let runAnalysis ~dce_config ~cmtRoot =
271272 References. merge_into_builder ~from: fd.DceFileProcessing. refs
272273 ~into: refs_builder;
273274 FileDeps. merge_into_builder
274- ~from: fd.DceFileProcessing. file_deps ~into: file_deps_builder);
275+ ~from: fd.DceFileProcessing. file_deps
276+ ~into: file_deps_builder);
275277 (* Compute type-label dependencies after merge *)
276278 DeadType. process_type_label_dependencies ~config: dce_config ~decls
277279 ~refs: refs_builder;
278- let find_exception = DeadException. find_exception_from_decls decls in
280+ let find_exception =
281+ DeadException. find_exception_from_decls decls
282+ in
279283 (* Process cross-file exception refs *)
280284 CrossFileItems. process_exception_refs cross_file ~refs: refs_builder
281285 ~file_deps: file_deps_builder ~find_exception ~config: dce_config;
@@ -300,7 +304,8 @@ let runAnalysis ~dce_config ~cmtRoot =
300304 | None -> true
301305 in
302306 let optional_args_state =
303- CrossFileItems. compute_optional_args_state cross_file ~decls ~is_live
307+ CrossFileItems. compute_optional_args_state cross_file ~decls
308+ ~is_live
304309 in
305310 (* Collect optional args issues only for live declarations *)
306311 let optional_args_issues =
@@ -316,7 +321,8 @@ let runAnalysis ~dce_config ~cmtRoot =
316321 decls []
317322 |> List. rev
318323 in
319- Some (AnalysisResult. add_issues analysis_result_core optional_args_issues)))
324+ Some
325+ (AnalysisResult. add_issues analysis_result_core optional_args_issues))
320326 else None
321327 in
322328 (* Reporting phase *)
0 commit comments