chore(ServerRequestContext): drop ServerRequestContext.WindowShowMessage()

Author: razzmatazz

src/CSharpLanguageServer/Handlers/Workspace.fs

@@ -109,16 +109,26 @@ module Workspace =
         (context: ServerRequestContext)
         (p: DidChangeWatchedFilesParams)
         : Async<LspResult<unit>> =
+
+        let windowShowMessage (m: string) =
+            match context.State.LspClient with
+            | Some lspClient ->
+                lspClient.WindowShowMessage(
+                    { Type = MessageType.Info
+                      Message = sprintf "csharp-ls: %s" m }
+                )
+            | None -> async.Return()
+
         async {
             for change in p.Changes do
                 match Path.GetExtension(change.Uri) with
                 | ".csproj" ->
-                    do! context.WindowShowMessage "change to .csproj detected, will reload solution"
+                    do! windowShowMessage "change to .csproj detected, will reload solution"
                     context.Emit(WorkspaceReloadRequested(TimeSpan.FromSeconds(5: int64)))
 
                 | ".sln"
                 | ".slnx" ->
-                    do! context.WindowShowMessage "change to .sln detected, will reload solution"
+                    do! windowShowMessage "change to .sln detected, will reload solution"
                     context.Emit(WorkspaceReloadRequested(TimeSpan.FromSeconds(5: int64)))
 
                 | ".cs" ->

src/CSharpLanguageServer/State/ServerRequestContext.fs

@@ -8,22 +8,12 @@ open CSharpLanguageServer.State.ServerState
 open CSharpLanguageServer.Roslyn.Conversions
 open CSharpLanguageServer.Lsp.Workspace
 
-type ServerRequestContext(requestId: int, state: ServerState, emitServerEvent: ServerStateEvent -> unit) =
+type ServerRequestContext(requestId: int, state: ServerState, emit: ServerStateEvent -> unit) =
     member _.RequestId = requestId
     member _.State = state
     member _.Workspace = state.Workspace
     member _.ClientCapabilities = state.ClientCapabilities
-
-    member _.WindowShowMessage(m: string) =
-        match state.LspClient with
-        | Some lspClient ->
-            lspClient.WindowShowMessage(
-                { Type = MessageType.Info
-                  Message = sprintf "csharp-ls: %s" m }
-            )
-        | None -> async.Return()
-
-    member _.Emit ev = emitServerEvent ev
+    member _.Emit = emit
 
     member this.ResolveSymbolLocations
         (symbol: Microsoft.CodeAnalysis.ISymbol)