this repo has no description
Fix autocomplete
+5
-2
+5
-2
lib/impl.ml
+5
-2
lib/impl.ml
···
61
61
List.map (fun id -> Printf.sprintf "open %s" (modname_of_id id)) deps
62
62
|> String.concat " "
63
63
in
64
-
let line1 = line1 ^ ";;\n" in
64
+
let line1 = if line1 <> "" then line1 ^ ";;\n" else "" in
65
65
Logs.debug (fun m -> m "Line1: %s\n%!" line1);
66
66
Logs.debug (fun m -> m "Source: %s\n%!" src);
67
67
if is_mangled_broken orig_source src then (
···
764
764
try
765
765
let line1, src = mangle_toplevel is_toplevel source [] in
766
766
let src = line1 ^ src in
767
+
Logs.info (fun m -> m "line1: '%s' (length: %d)" line1 (String.length line1));
768
+
767
769
let source = Merlin_kernel.Msource.make src in
768
770
let map_kind :
769
771
[ `Value
···
807
809
})
808
810
compl.entries
809
811
in
810
-
IdlM.ErrM.return { Toplevel_api_gen.from; to_; entries }
812
+
let l1l = String.length line1 in
813
+
IdlM.ErrM.return { Toplevel_api_gen.from = from - l1l; to_ = to_ - l1l; entries }
811
814
| None ->
812
815
IdlM.ErrM.return { Toplevel_api_gen.from = 0; to_ = 0; entries = [] }
813
816
with e ->