gazagnaire.org
Find and remove dead code and unused APIs in OCaml projects
fix(prune,space-test): rename Merlin.create to Merlin.v, fix dune-project
Fix Merlin.create→Merlin.v in prune/lib to match ocaml-merlin API rename.
Fix space-test/dune-project: remove duplicate root package, add missing
space-test package stanza so dune fmt passes.
+4
-4
+1
-1
lib/analysis.ml
+1
-1
lib/analysis.ml
···
203
203
Log.info (fun m -> m "Analyzing %d files for symbols" (List.length files));
204
204
205
205
(* Create Merlin backend once for all queries *)
206
-
let backend = Merlin.create ~backend:Lib ~root_dir () in
206
+
let backend = Merlin.v ~backend:Lib ~root_dir () in
207
207
208
208
(* Get exported symbols from all files with progress *)
209
209
let total = List.length files in
+3
-3
lib/doctor.ml
+3
-3
lib/doctor.ml
···
30
30
31
31
(* Check merlin library backend *)
32
32
let check_merlin_available () =
33
-
let m = Merlin.create ~backend:Lib () in
33
+
let m = Merlin.v ~backend:Lib () in
34
34
Merlin.close m;
35
35
{
36
36
check_name = "Merlin library";
···
42
42
(* Check merlin project configuration using the library backend *)
43
43
let check_merlin_config root_dir =
44
44
let test_file = Fpath.(v root_dir / "test.ml") |> Fpath.to_string in
45
-
let m = Merlin.create ~backend:Lib ~root_dir () in
45
+
let m = Merlin.v ~backend:Lib ~root_dir () in
46
46
let result = Merlin.outline m ~file:test_file in
47
47
Merlin.close m;
48
48
match result with
···
113
113
merlin_test_result false
114
114
(Fmt.str "Sample file %s not found" sample_mli)
115
115
| Ok true -> (
116
-
let m = Merlin.create ~backend:Lib ~root_dir () in
116
+
let m = Merlin.v ~backend:Lib ~root_dir () in
117
117
let result =
118
118
Merlin.occurrences m ~file:sample_mli ~line:1 ~col:4 ~scope:Project
119
119
in