From 3296cc1f7f69b56b36384dd58b8a44f56e20f48b Mon Sep 17 00:00:00 2001 From: dawe Date: Tue, 16 Apr 2024 22:25:39 +0200 Subject: [PATCH] - remove an ignored call to protocolRangeToRange - remove an ignored instance of StreamJsonRpcTracingStrategy --- src/FsAutoComplete/LspServers/AdaptiveFSharpLspServer.fs | 4 ---- 1 file changed, 4 deletions(-) diff --git a/src/FsAutoComplete/LspServers/AdaptiveFSharpLspServer.fs b/src/FsAutoComplete/LspServers/AdaptiveFSharpLspServer.fs index 51442d29a..fcbdb86fc 100644 --- a/src/FsAutoComplete/LspServers/AdaptiveFSharpLspServer.fs +++ b/src/FsAutoComplete/LspServers/AdaptiveFSharpLspServer.fs @@ -1947,8 +1947,6 @@ type AdaptiveFSharpLspServer let! tyRes = state.GetOpenFileTypeCheckResults filePath |> AsyncResult.ofStringErr - let _fcsRange = protocolRangeToRange (UMX.untag filePath) p.Range - let! pipelineHints = Commands.inlineValues volatileFile.Source tyRes let hints = @@ -3008,8 +3006,6 @@ module AdaptiveFSharpLspServer = None | _ -> None - let _strategy = StreamJsonRpcTracingStrategy(Tracing.fsacActivitySource) - let (|Flatten|_|) (e: exn) = match e with | :? AggregateException as aex ->