Simplify

ocaml · Dec 5, 2023 · 4ba3462 · 4ba3462
1 parent ed8e7d1
commit 4ba3462
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/kernel/mpipeline.ml b/src/kernel/mpipeline.ml
@@ -360,5 +360,6 @@ let cache_information t =
   let fmt_file (filename, hit) = (filename, fmt_bool hit) in
   let cmt = ("cmt", List.map ~f:fmt_file (Cmt_cache.get_cache_stats ())) in
   let cmi = ("cmi", List.map ~f:fmt_file (Cmi_cache.get_cache_stats ())) in
-  let () = Cmt_cache.clear_cache_stats (); Cmi_cache.clear_cache_stats () in
+  Cmt_cache.clear_cache_stats ();
+  Cmi_cache.clear_cache_stats ();
   [phase; cmt; cmi]