diff --git a/analysis/src/NewCompletions.ml b/analysis/src/NewCompletions.ml index 9fc60cbd5..d42d84a08 100644 --- a/analysis/src/NewCompletions.ml +++ b/analysis/src/NewCompletions.ml @@ -602,6 +602,15 @@ let processCompletable ~findItems ~package ~rawOpens "variadic"; ] |> List.filter (fun decorator -> Utils.startsWith decorator prefix) + |> List.map (fun decorator -> + let parts = String.split_on_char '.' prefix in + let len = String.length prefix in + let dec2 = + if List.length parts > 1 then + String.sub decorator len (String.length decorator - len) + else decorator + in + dec2) |> List.map mkDecorator | Clabel (funPath, prefix) -> let labels = diff --git a/analysis/tests/src/Complete.res b/analysis/tests/src/Complete.res index 7b03e4705..36cc8989e 100644 --- a/analysis/tests/src/Complete.res +++ b/analysis/tests/src/Complete.res @@ -53,5 +53,8 @@ let zzz = 11 //^com let comp =