diff --git a/src/FsAutoComplete/FsAutoComplete.Lsp.fs b/src/FsAutoComplete/FsAutoComplete.Lsp.fs index 7e87c2889..3e685a543 100644 --- a/src/FsAutoComplete/FsAutoComplete.Lsp.fs +++ b/src/FsAutoComplete/FsAutoComplete.Lsp.fs @@ -1806,7 +1806,8 @@ type FSharpLspServer(state: State, lspClient: FSharpLspClient) = >> Log.addContextDestructured "file" file ) - let! r = Async.Catch(f arg pos tyRes lines lineStr data.[1] file) + let typ = data.[1] + let! r = Async.Catch(f arg pos tyRes lines lineStr typ file) match r with | Choice1Of2 (r: LspResult) -> @@ -1820,7 +1821,16 @@ type FSharpLspServer(state: State, lspClient: FSharpLspClient) = >> Log.addExn e ) - return { p with Command = None } |> success + let title = if typ = "signature" then "" else "0 References" + + return + { p with + Command = + Some + { Title = title + Command = "" + Arguments = None } } + |> success } with e -> logger.error (