Add workspace symbol requests to lsp-test

lsp-test/src/Language/LSP/Test.hs

@@ -93,6 +93,7 @@ module Language.LSP.Test (
   -- ** Completions
   getCompletions,
   getAndResolveCompletions,
+  resolveCompletion,
 
   -- ** References
   getReferences,
@@ -137,6 +138,10 @@ module Language.LSP.Test (
   -- ** SemanticTokens
   getSemanticTokens,
 
+  -- ** Workspace Symbols
+  getWorkspaceSymbols,
+  resolveWorkspaceSymbols,
+
   -- ** Capabilities
   getRegisteredCapabilities,
 ) where
@@ -1036,6 +1041,18 @@ getSemanticTokens doc = do
   rsp <- request SMethod_TextDocumentSemanticTokensFull params
   pure $ getResponseResult rsp
 
+-- | Query the workspace and filter by the given 'T.Text'.
+-- If empty, this queries the entire workspace.
+getWorkspaceSymbols :: T.Text -> Session ([SymbolInformation] |? ([WorkspaceSymbol] |? Null))
+getWorkspaceSymbols query = do
+  rsp <- request SMethod_WorkspaceSymbol (WorkspaceSymbolParams Nothing Nothing query)
+  pure $ getResponseResult rsp
+
+resolveWorkspaceSymbols :: WorkspaceSymbol -> Session WorkspaceSymbol
+resolveWorkspaceSymbols item = do
+  rsp <- request SMethod_WorkspaceSymbolResolve item
+  pure $ getResponseResult rsp
+
 {- | Returns a list of capabilities that the server has requested to /dynamically/
  register during the 'Session'.