diff --git a/src/frontend/query_commands.ml b/src/frontend/query_commands.ml index 7fdf85120..8b36d93fd 100644 --- a/src/frontend/query_commands.ml +++ b/src/frontend/query_commands.ml @@ -835,9 +835,12 @@ let dispatch pipeline (type a) : a Query_protocol.t -> a = let prefix = Signature_help.prefix_of_position ~short_path:true source position in - let application_signature = Signature_help.application_signature ~prefix node in + let application_signature = + Signature_help.application_signature ~prefix node + in let param offset (p: Signature_help.parameter_info) = - { label_start = offset + p.param_start; label_end = offset + p.param_end} in + { label_start = offset + p.param_start; label_end = offset + p.param_end} + in (match application_signature with | Some s -> let prefix = @@ -846,7 +849,8 @@ let dispatch pipeline (type a) : a Query_protocol.t -> a = in sprintf "%s : " fun_name in Some { label = prefix ^ s.signature; - parameters = List.map ~f:(param (String.length prefix)) s.parameters; + parameters = + List.map ~f:(param (String.length prefix)) s.parameters; active_param = Option.value ~default:0 s.active_param; active_signature = 0; }