forked from
anil.recoil.org/monopam
Monorepo management for opam overlays
monopam: drop debug Fmt.epr/Printf.eprintf from Dead_lib path
Leftover diagnostics from the Dead_lib feature wiring — they were
useful while bring-up but are noise on every lint run now. Remove the
'dead_libs %s/%s ...' trace and the two 'DEBUG ... dead_libs_in_subtree'
markers.
+3
-11
+3
-11
lib/lint.ml
+3
-11
lib/lint.ml
···
613
613
(fun lib ->
614
614
if is_builtin lib then None
615
615
else
616
-
let entry = Hashtbl.find_opt lib_modules lib in
617
-
Fmt.epr "dead_libs %s/%s lib=%s entry=%s@." subtree
618
-
(Fpath.to_string dir) lib
619
-
(match entry with
620
-
| None -> "<unknown>"
621
-
| Some s -> String_set.elements s |> String.concat ",");
622
-
match entry with
616
+
match Hashtbl.find_opt lib_modules lib with
623
617
| None -> None
624
618
(* Unknown lib: don't flag — could be a sibling
625
-
library with a private name, or a build
626
-
system not reflected in install dirs. *)
619
+
library with a private name, or a build system
620
+
not reflected in install dirs. *)
627
621
| Some mods when String_set.is_empty mods -> None
628
622
| Some mods ->
629
623
if
···
944
938
in
945
939
issues := new_issues @ !issues)
946
940
pkgs;
947
-
Printf.eprintf "DEBUG calling dead_libs_in_subtree for %s\n%!" subtree;
948
941
let dead =
949
942
dead_libs_in_subtree ~fs ~lib_modules ~subtree subtree_path
950
943
in
951
-
Printf.eprintf "DEBUG got %d dead for %s\n%!" (List.length dead) subtree;
952
944
issues := dead @ !issues
953
945
end)
954
946
subdirs;