packages feed

lsp-types 2.0.2.0 → 2.4.0.0

raw patch · 476 files changed

This diff is very large; some files are shown as “too large to diff”. Download the raw patch for the complete diff.

Files

ChangeLog.md view
@@ -1,25 +1,56 @@ # Revision history for lsp-types -## 2.0.2.0+## 2.4.0.0 -- 2026-02-14 -- Add `Language.LSP.Protocol.Utils.Misc.prettyJSON :: Value -> Doc ann` for prettyprinting JSON, +- export `emptyNormalizedUri` from `Language.LSP.Protocol.Types.Uri`+- Relax dependency version bounds++## 2.3.0.1 -- 2024-12-31++- Relax dependency version bounds++## 2.3.0.0 -- 2024-06-06++- Add support for identifying client and server capabilities associated with a method.+- `TResponseMessage` now contains a `TResponseError` instead of a `ResponseError`++## 2.2.0.0 -- 2024-04-29++- Update the metamodel. This results in a number of breaking changes to the generated code, mostly replacing+  anonymous structs with named ones.++## 2.1.1.0 -- 2024-02-24++- Require aeson 2+- Accept `null` in place of a missing field, a common mistake in spec compliance.+- Arbitrary instances for everything now exist and are exported via the new `lsp-types-quickcheck` library++## 2.1.0.0 -- 2023-11-13++- Add `dynamicRegistrationSupported` to `Capabilities`.+- Fully update `fullCaps` for recent spec versions.+- Support GHC 9.8, drop checked support for GHC 8.10++## 2.0.2.0 -- 2023-08-24++- Add `Language.LSP.Protocol.Utils.Misc.prettyJSON :: Value -> Doc ann` for prettyprinting JSON,   and `ViaJSON` as a deriving-via newtype wrapper for it. - Generate `Pretty` instances for all LSP types using `ViaJSON`. -## 2.0.1.1+## 2.0.1.1 -- 2023-08-08  * Fix parsing of notifications with missing params -## 2.0.1.0+## 2.0.1.0 -- 2023-07-14  * Removed deprecation pragmas from fields, as these cannot currently be avoided. * Added `isOptionalMethod`, that checks whether a method is optional according to the spec. -## 2.0.0.1+## 2.0.0.1 -- 2023-06-16  * Fixed missing `extra-source-files` for `metamodel.json`. -## 2.0.0.0+## 2.0.0.0 -- 2023-06-14  * Breaking change: major restructure to generate types and methods from the LSP metamodel.     * Full support for version 3.17 of the LSP specification, many accuracy fixes@@ -30,23 +61,27 @@     * Three top level modules: `Types` (main protocol types), `Message` (messages and methods), `Capabilities` (capabilities) * New typeclasses for handling LSP enumerations: `LspEnum` and `LspOpenEnum` -## 1.6.0.0+## 1.6.0.1 -- 2023-12-02 +* Add `LANGUAGE DuplicateRecordFields` to facilitate building with GHC 9.8++## 1.6.0.0 -- 2022-09-13+ * Add `isSubRangeOf` and `positionInRange` helper functions * Add `ServerCancelled`, `RequestFailed` and `ErrorCodeCustom` server error types * Fix "workspace/semanticTokens/refresh" to be a server method instead of a client method * Use a packed representation for `NormalizedFilePath` * Add conversions from `OsPath` to `NormalizedFilePath` in `Language.LSP.Types.Uri.OsPath` when using new enough `filepath`- -## 1.5.0.0 +## 1.5.0.0 -- 2022-06-20+ * VFS module moved from `lsp-types` to `lsp`, as it relates to the actual implementation of a LSP server. -## 1.4.0.1+## 1.4.0.1 -- 2022-01-20  * Fix result type of selection range requests. -## 1.4.0.0+## 1.4.0.0 -- 2021-12-28  * Aeson 2 compatibility (#360) (@michaelpj) * Reduced dependency footprint (#383, #384) (@Bodigrim)@@ -56,15 +91,15 @@ * Fix the Semigroup instance for MarkupContent (#361) (@michaelpj) * Various improvements to spec conformance (@michaelpj) -## 1.3.0.1+## 1.3.0.1 -- 2021-08-06  * Rollback NFP interning (#344) (@pepeiborra) -## 1.3.0.0+## 1.3.0.0 -- 2021-07-31  * Intern NormalizedFilePaths (#340) (@pepeiborra) -## 1.2.0.1+## 1.2.0.1 -- unpublished  * Add compatibility with GHC 9.2 (#345) (@fendor) * Fix missing lenses (@michaelpj)@@ -74,7 +109,7 @@ * Do not crash on workspace/didChangeConfiguration (#321) (@strager) * Improve error messages on JSON decode failures (#320) (@strager) -## 1.2.0.0+## 1.2.0.0 -- 2021-03-28  * Prevent crashing when optional fields are missing (@anka-213) * Use StrictData (@wz1000)@@ -91,7 +126,7 @@ * Support change annotations (#302) (@michaelpj) * Add some more missing lenses (#307) (@michaelpj) -## 1.1.0.0+## 1.1.0.0 -- 2021-02-14  * Fix prepareRename reponse and prepareProvider (@kirelagin) * Fix deriving instance of MonadUnliftIO (@banacorn)@@ -124,7 +159,7 @@ * Use Text over String in more places (@wz1000) * Add missing lenses (@wz1000, @bubba) -## 1.0.0.0+## 1.0.0.0 -- 2020-10-15  1.0.0.0 is a major rework with both internal and external facing changes, and will require manual migration.@@ -223,10 +258,10 @@ `LanguageContextEnv` needed to run an `LspT`, as well as anything else your monad needs. ```haskell-type +type ServerDefinition { ... , doInitialize = \env _req -> pure $ Right env-, interpretHandler = \env -> Iso +, interpretHandler = \env -> Iso    (runLspT env) -- how to convert from IO ~> m    liftIO        -- how to convert from m ~> IO }@@ -242,7 +277,7 @@ 5. Remove any storage/use of `LspFuncs` and instead call the corresponding    functions directly from your monad instead of `IO` -## 0.23.0.0+## 0.23.0.0 -- 2020-10-05  * Add runWith for transporots other than stdio (@paulyoung) * Fix race condition in event captures (@bgamari)@@ -253,12 +288,12 @@   NormalizedFilePath (@cocreature) * Fix ordering of TH splices (@fendor) -## 0.22.0.0+## 0.22.0.0 -- 2020-05-04  * ResponseMessage results are now an Either type (@greenhat) * Support for GHC 8.10.1 -## 0.21.0.0+## 0.21.0.0 -- 2020-03-21  * Stop getCompletionPrefix from crashing if beforePos is empty * Add DidChangeWatchedFilesRegistrationOptions@@ -268,7 +303,7 @@ * Correctly fix the problem with '$/' notifications * Add azure ci -## 0.20.0.0+## 0.20.0.0 -- 2020-02-04T  * Force utf8 encoding when writing vfs temp files * Don't log errors for '$/' notifications (@jinwoo)@@ -328,7 +363,7 @@  * Add types for `window/progress` notifications. -## 0.8.3.0+## 0.8.3.0 -- unpublished  * Add `MarkupContent` to `HoverResponse`, and (some) json roundtrip tests. @@ -381,11 +416,11 @@ * CodeAction support as per v3.8 of the specification, by @Bubba * Update VersionedTextDocumentIdentifier to match specification, by @Bubba. -## 0.3.0.0+## 0.3.0.0 -- unpublished  * Handle TextDocumentSync fallbacks with new TDS type. -## 0.2.3.0+## 0.2.3.0 -- unpublished  * GHC 8.4.3 support * Introduce additional error codes as per the LSP spec. By @Bubba
− generated/Language/LSP/Protocol/Internal/Lens.hs 
@@ -1,635 +0,0 @@--- THIS IS A GENERATED FILE, DO NOT EDIT-{-# LANGUAGE TemplateHaskell #-}-{-# OPTIONS_GHC -Wno-unused-imports #-}-{-# OPTIONS_GHC -Wno-unused-matches #-}-{-# OPTIONS_GHC -Wno-deprecations #-}-module Language.LSP.Protocol.Internal.Lens where--import qualified Control.Lens.TH-import qualified Language.LSP.Protocol.Internal.Types.AnnotatedTextEdit-import qualified Language.LSP.Protocol.Internal.Types.ApplyWorkspaceEditParams-import qualified Language.LSP.Protocol.Internal.Types.ApplyWorkspaceEditResult-import qualified Language.LSP.Protocol.Internal.Types.BaseSymbolInformation-import qualified Language.LSP.Protocol.Internal.Types.CallHierarchyClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.CallHierarchyIncomingCall-import qualified Language.LSP.Protocol.Internal.Types.CallHierarchyIncomingCallsParams-import qualified Language.LSP.Protocol.Internal.Types.CallHierarchyItem-import qualified Language.LSP.Protocol.Internal.Types.CallHierarchyOptions-import qualified Language.LSP.Protocol.Internal.Types.CallHierarchyOutgoingCall-import qualified Language.LSP.Protocol.Internal.Types.CallHierarchyOutgoingCallsParams-import qualified Language.LSP.Protocol.Internal.Types.CallHierarchyPrepareParams-import qualified Language.LSP.Protocol.Internal.Types.CallHierarchyRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.CancelParams-import qualified Language.LSP.Protocol.Internal.Types.ChangeAnnotation-import qualified Language.LSP.Protocol.Internal.Types.ClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.CodeAction-import qualified Language.LSP.Protocol.Internal.Types.CodeActionClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.CodeActionContext-import qualified Language.LSP.Protocol.Internal.Types.CodeActionOptions-import qualified Language.LSP.Protocol.Internal.Types.CodeActionParams-import qualified Language.LSP.Protocol.Internal.Types.CodeActionRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.CodeDescription-import qualified Language.LSP.Protocol.Internal.Types.CodeLens-import qualified Language.LSP.Protocol.Internal.Types.CodeLensClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.CodeLensOptions-import qualified Language.LSP.Protocol.Internal.Types.CodeLensParams-import qualified Language.LSP.Protocol.Internal.Types.CodeLensRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.CodeLensWorkspaceClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.Color-import qualified Language.LSP.Protocol.Internal.Types.ColorInformation-import qualified Language.LSP.Protocol.Internal.Types.ColorPresentation-import qualified Language.LSP.Protocol.Internal.Types.ColorPresentationParams-import qualified Language.LSP.Protocol.Internal.Types.Command-import qualified Language.LSP.Protocol.Internal.Types.CompletionClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.CompletionContext-import qualified Language.LSP.Protocol.Internal.Types.CompletionItem-import qualified Language.LSP.Protocol.Internal.Types.CompletionItemLabelDetails-import qualified Language.LSP.Protocol.Internal.Types.CompletionList-import qualified Language.LSP.Protocol.Internal.Types.CompletionOptions-import qualified Language.LSP.Protocol.Internal.Types.CompletionParams-import qualified Language.LSP.Protocol.Internal.Types.CompletionRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.ConfigurationItem-import qualified Language.LSP.Protocol.Internal.Types.ConfigurationParams-import qualified Language.LSP.Protocol.Internal.Types.CreateFile-import qualified Language.LSP.Protocol.Internal.Types.CreateFileOptions-import qualified Language.LSP.Protocol.Internal.Types.CreateFilesParams-import qualified Language.LSP.Protocol.Internal.Types.DeclarationClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.DeclarationOptions-import qualified Language.LSP.Protocol.Internal.Types.DeclarationParams-import qualified Language.LSP.Protocol.Internal.Types.DeclarationRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.DefinitionClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.DefinitionOptions-import qualified Language.LSP.Protocol.Internal.Types.DefinitionParams-import qualified Language.LSP.Protocol.Internal.Types.DefinitionRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.DeleteFile-import qualified Language.LSP.Protocol.Internal.Types.DeleteFileOptions-import qualified Language.LSP.Protocol.Internal.Types.DeleteFilesParams-import qualified Language.LSP.Protocol.Internal.Types.Diagnostic-import qualified Language.LSP.Protocol.Internal.Types.DiagnosticClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.DiagnosticOptions-import qualified Language.LSP.Protocol.Internal.Types.DiagnosticRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.DiagnosticRelatedInformation-import qualified Language.LSP.Protocol.Internal.Types.DiagnosticServerCancellationData-import qualified Language.LSP.Protocol.Internal.Types.DiagnosticWorkspaceClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.DidChangeConfigurationClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.DidChangeConfigurationParams-import qualified Language.LSP.Protocol.Internal.Types.DidChangeConfigurationRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.DidChangeNotebookDocumentParams-import qualified Language.LSP.Protocol.Internal.Types.DidChangeTextDocumentParams-import qualified Language.LSP.Protocol.Internal.Types.DidChangeWatchedFilesClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.DidChangeWatchedFilesParams-import qualified Language.LSP.Protocol.Internal.Types.DidChangeWatchedFilesRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.DidChangeWorkspaceFoldersParams-import qualified Language.LSP.Protocol.Internal.Types.DidCloseNotebookDocumentParams-import qualified Language.LSP.Protocol.Internal.Types.DidCloseTextDocumentParams-import qualified Language.LSP.Protocol.Internal.Types.DidOpenNotebookDocumentParams-import qualified Language.LSP.Protocol.Internal.Types.DidOpenTextDocumentParams-import qualified Language.LSP.Protocol.Internal.Types.DidSaveNotebookDocumentParams-import qualified Language.LSP.Protocol.Internal.Types.DidSaveTextDocumentParams-import qualified Language.LSP.Protocol.Internal.Types.DocumentColorClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.DocumentColorOptions-import qualified Language.LSP.Protocol.Internal.Types.DocumentColorParams-import qualified Language.LSP.Protocol.Internal.Types.DocumentColorRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.DocumentDiagnosticParams-import qualified Language.LSP.Protocol.Internal.Types.DocumentDiagnosticReportPartialResult-import qualified Language.LSP.Protocol.Internal.Types.DocumentFormattingClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.DocumentFormattingOptions-import qualified Language.LSP.Protocol.Internal.Types.DocumentFormattingParams-import qualified Language.LSP.Protocol.Internal.Types.DocumentFormattingRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.DocumentHighlight-import qualified Language.LSP.Protocol.Internal.Types.DocumentHighlightClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.DocumentHighlightOptions-import qualified Language.LSP.Protocol.Internal.Types.DocumentHighlightParams-import qualified Language.LSP.Protocol.Internal.Types.DocumentHighlightRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.DocumentLink-import qualified Language.LSP.Protocol.Internal.Types.DocumentLinkClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.DocumentLinkOptions-import qualified Language.LSP.Protocol.Internal.Types.DocumentLinkParams-import qualified Language.LSP.Protocol.Internal.Types.DocumentLinkRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.DocumentOnTypeFormattingClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.DocumentOnTypeFormattingOptions-import qualified Language.LSP.Protocol.Internal.Types.DocumentOnTypeFormattingParams-import qualified Language.LSP.Protocol.Internal.Types.DocumentOnTypeFormattingRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.DocumentRangeFormattingClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.DocumentRangeFormattingOptions-import qualified Language.LSP.Protocol.Internal.Types.DocumentRangeFormattingParams-import qualified Language.LSP.Protocol.Internal.Types.DocumentRangeFormattingRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.DocumentSymbol-import qualified Language.LSP.Protocol.Internal.Types.DocumentSymbolClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.DocumentSymbolOptions-import qualified Language.LSP.Protocol.Internal.Types.DocumentSymbolParams-import qualified Language.LSP.Protocol.Internal.Types.DocumentSymbolRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.ExecuteCommandClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.ExecuteCommandOptions-import qualified Language.LSP.Protocol.Internal.Types.ExecuteCommandParams-import qualified Language.LSP.Protocol.Internal.Types.ExecuteCommandRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.ExecutionSummary-import qualified Language.LSP.Protocol.Internal.Types.FileCreate-import qualified Language.LSP.Protocol.Internal.Types.FileDelete-import qualified Language.LSP.Protocol.Internal.Types.FileEvent-import qualified Language.LSP.Protocol.Internal.Types.FileOperationClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.FileOperationFilter-import qualified Language.LSP.Protocol.Internal.Types.FileOperationOptions-import qualified Language.LSP.Protocol.Internal.Types.FileOperationPattern-import qualified Language.LSP.Protocol.Internal.Types.FileOperationPatternOptions-import qualified Language.LSP.Protocol.Internal.Types.FileOperationRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.FileRename-import qualified Language.LSP.Protocol.Internal.Types.FileSystemWatcher-import qualified Language.LSP.Protocol.Internal.Types.FoldingRange-import qualified Language.LSP.Protocol.Internal.Types.FoldingRangeClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.FoldingRangeOptions-import qualified Language.LSP.Protocol.Internal.Types.FoldingRangeParams-import qualified Language.LSP.Protocol.Internal.Types.FoldingRangeRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.FormattingOptions-import qualified Language.LSP.Protocol.Internal.Types.FullDocumentDiagnosticReport-import qualified Language.LSP.Protocol.Internal.Types.GeneralClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.Hover-import qualified Language.LSP.Protocol.Internal.Types.HoverClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.HoverOptions-import qualified Language.LSP.Protocol.Internal.Types.HoverParams-import qualified Language.LSP.Protocol.Internal.Types.HoverRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.ImplementationClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.ImplementationOptions-import qualified Language.LSP.Protocol.Internal.Types.ImplementationParams-import qualified Language.LSP.Protocol.Internal.Types.ImplementationRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.InitializeError-import qualified Language.LSP.Protocol.Internal.Types.InitializeParams-import qualified Language.LSP.Protocol.Internal.Types.InitializeResult-import qualified Language.LSP.Protocol.Internal.Types.InitializedParams-import qualified Language.LSP.Protocol.Internal.Types.InlayHint-import qualified Language.LSP.Protocol.Internal.Types.InlayHintClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.InlayHintLabelPart-import qualified Language.LSP.Protocol.Internal.Types.InlayHintOptions-import qualified Language.LSP.Protocol.Internal.Types.InlayHintParams-import qualified Language.LSP.Protocol.Internal.Types.InlayHintRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.InlayHintWorkspaceClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.InlineValueClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.InlineValueContext-import qualified Language.LSP.Protocol.Internal.Types.InlineValueEvaluatableExpression-import qualified Language.LSP.Protocol.Internal.Types.InlineValueOptions-import qualified Language.LSP.Protocol.Internal.Types.InlineValueParams-import qualified Language.LSP.Protocol.Internal.Types.InlineValueRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.InlineValueText-import qualified Language.LSP.Protocol.Internal.Types.InlineValueVariableLookup-import qualified Language.LSP.Protocol.Internal.Types.InlineValueWorkspaceClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.InsertReplaceEdit-import qualified Language.LSP.Protocol.Internal.Types.LinkedEditingRangeClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.LinkedEditingRangeOptions-import qualified Language.LSP.Protocol.Internal.Types.LinkedEditingRangeParams-import qualified Language.LSP.Protocol.Internal.Types.LinkedEditingRangeRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.LinkedEditingRanges-import qualified Language.LSP.Protocol.Internal.Types.Location-import qualified Language.LSP.Protocol.Internal.Types.LocationLink-import qualified Language.LSP.Protocol.Internal.Types.LogMessageParams-import qualified Language.LSP.Protocol.Internal.Types.LogTraceParams-import qualified Language.LSP.Protocol.Internal.Types.MarkdownClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.MarkupContent-import qualified Language.LSP.Protocol.Internal.Types.MessageActionItem-import qualified Language.LSP.Protocol.Internal.Types.Moniker-import qualified Language.LSP.Protocol.Internal.Types.MonikerClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.MonikerOptions-import qualified Language.LSP.Protocol.Internal.Types.MonikerParams-import qualified Language.LSP.Protocol.Internal.Types.MonikerRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.NotebookCell-import qualified Language.LSP.Protocol.Internal.Types.NotebookCellArrayChange-import qualified Language.LSP.Protocol.Internal.Types.NotebookCellTextDocumentFilter-import qualified Language.LSP.Protocol.Internal.Types.NotebookDocument-import qualified Language.LSP.Protocol.Internal.Types.NotebookDocumentChangeEvent-import qualified Language.LSP.Protocol.Internal.Types.NotebookDocumentClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.NotebookDocumentIdentifier-import qualified Language.LSP.Protocol.Internal.Types.NotebookDocumentSyncClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.NotebookDocumentSyncOptions-import qualified Language.LSP.Protocol.Internal.Types.NotebookDocumentSyncRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.OptionalVersionedTextDocumentIdentifier-import qualified Language.LSP.Protocol.Internal.Types.ParameterInformation-import qualified Language.LSP.Protocol.Internal.Types.PartialResultParams-import qualified Language.LSP.Protocol.Internal.Types.Position-import qualified Language.LSP.Protocol.Internal.Types.PrepareRenameParams-import qualified Language.LSP.Protocol.Internal.Types.PreviousResultId-import qualified Language.LSP.Protocol.Internal.Types.ProgressParams-import qualified Language.LSP.Protocol.Internal.Types.PublishDiagnosticsClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.PublishDiagnosticsParams-import qualified Language.LSP.Protocol.Internal.Types.Range-import qualified Language.LSP.Protocol.Internal.Types.ReferenceClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.ReferenceContext-import qualified Language.LSP.Protocol.Internal.Types.ReferenceOptions-import qualified Language.LSP.Protocol.Internal.Types.ReferenceParams-import qualified Language.LSP.Protocol.Internal.Types.ReferenceRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.Registration-import qualified Language.LSP.Protocol.Internal.Types.RegistrationParams-import qualified Language.LSP.Protocol.Internal.Types.RegularExpressionsClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.RelatedFullDocumentDiagnosticReport-import qualified Language.LSP.Protocol.Internal.Types.RelatedUnchangedDocumentDiagnosticReport-import qualified Language.LSP.Protocol.Internal.Types.RelativePattern-import qualified Language.LSP.Protocol.Internal.Types.RenameClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.RenameFile-import qualified Language.LSP.Protocol.Internal.Types.RenameFileOptions-import qualified Language.LSP.Protocol.Internal.Types.RenameFilesParams-import qualified Language.LSP.Protocol.Internal.Types.RenameOptions-import qualified Language.LSP.Protocol.Internal.Types.RenameParams-import qualified Language.LSP.Protocol.Internal.Types.RenameRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.ResourceOperation-import qualified Language.LSP.Protocol.Internal.Types.SaveOptions-import qualified Language.LSP.Protocol.Internal.Types.SelectionRange-import qualified Language.LSP.Protocol.Internal.Types.SelectionRangeClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.SelectionRangeOptions-import qualified Language.LSP.Protocol.Internal.Types.SelectionRangeParams-import qualified Language.LSP.Protocol.Internal.Types.SelectionRangeRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.SemanticTokens-import qualified Language.LSP.Protocol.Internal.Types.SemanticTokensClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.SemanticTokensDelta-import qualified Language.LSP.Protocol.Internal.Types.SemanticTokensDeltaParams-import qualified Language.LSP.Protocol.Internal.Types.SemanticTokensDeltaPartialResult-import qualified Language.LSP.Protocol.Internal.Types.SemanticTokensEdit-import qualified Language.LSP.Protocol.Internal.Types.SemanticTokensLegend-import qualified Language.LSP.Protocol.Internal.Types.SemanticTokensOptions-import qualified Language.LSP.Protocol.Internal.Types.SemanticTokensParams-import qualified Language.LSP.Protocol.Internal.Types.SemanticTokensPartialResult-import qualified Language.LSP.Protocol.Internal.Types.SemanticTokensRangeParams-import qualified Language.LSP.Protocol.Internal.Types.SemanticTokensRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.SemanticTokensWorkspaceClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.ServerCapabilities-import qualified Language.LSP.Protocol.Internal.Types.SetTraceParams-import qualified Language.LSP.Protocol.Internal.Types.ShowDocumentClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.ShowDocumentParams-import qualified Language.LSP.Protocol.Internal.Types.ShowDocumentResult-import qualified Language.LSP.Protocol.Internal.Types.ShowMessageParams-import qualified Language.LSP.Protocol.Internal.Types.ShowMessageRequestClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.ShowMessageRequestParams-import qualified Language.LSP.Protocol.Internal.Types.SignatureHelp-import qualified Language.LSP.Protocol.Internal.Types.SignatureHelpClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.SignatureHelpContext-import qualified Language.LSP.Protocol.Internal.Types.SignatureHelpOptions-import qualified Language.LSP.Protocol.Internal.Types.SignatureHelpParams-import qualified Language.LSP.Protocol.Internal.Types.SignatureHelpRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.SignatureInformation-import qualified Language.LSP.Protocol.Internal.Types.StaticRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.SymbolInformation-import qualified Language.LSP.Protocol.Internal.Types.TextDocumentChangeRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.TextDocumentClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.TextDocumentEdit-import qualified Language.LSP.Protocol.Internal.Types.TextDocumentIdentifier-import qualified Language.LSP.Protocol.Internal.Types.TextDocumentItem-import qualified Language.LSP.Protocol.Internal.Types.TextDocumentPositionParams-import qualified Language.LSP.Protocol.Internal.Types.TextDocumentRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.TextDocumentSaveRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.TextDocumentSyncClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.TextDocumentSyncOptions-import qualified Language.LSP.Protocol.Internal.Types.TextEdit-import qualified Language.LSP.Protocol.Internal.Types.TypeDefinitionClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.TypeDefinitionOptions-import qualified Language.LSP.Protocol.Internal.Types.TypeDefinitionParams-import qualified Language.LSP.Protocol.Internal.Types.TypeDefinitionRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.TypeHierarchyClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.TypeHierarchyItem-import qualified Language.LSP.Protocol.Internal.Types.TypeHierarchyOptions-import qualified Language.LSP.Protocol.Internal.Types.TypeHierarchyPrepareParams-import qualified Language.LSP.Protocol.Internal.Types.TypeHierarchyRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.TypeHierarchySubtypesParams-import qualified Language.LSP.Protocol.Internal.Types.TypeHierarchySupertypesParams-import qualified Language.LSP.Protocol.Internal.Types.UInitializeParams-import qualified Language.LSP.Protocol.Internal.Types.UnchangedDocumentDiagnosticReport-import qualified Language.LSP.Protocol.Internal.Types.Unregistration-import qualified Language.LSP.Protocol.Internal.Types.UnregistrationParams-import qualified Language.LSP.Protocol.Internal.Types.VersionedNotebookDocumentIdentifier-import qualified Language.LSP.Protocol.Internal.Types.VersionedTextDocumentIdentifier-import qualified Language.LSP.Protocol.Internal.Types.WillSaveTextDocumentParams-import qualified Language.LSP.Protocol.Internal.Types.WindowClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.WorkDoneProgressBegin-import qualified Language.LSP.Protocol.Internal.Types.WorkDoneProgressCancelParams-import qualified Language.LSP.Protocol.Internal.Types.WorkDoneProgressCreateParams-import qualified Language.LSP.Protocol.Internal.Types.WorkDoneProgressEnd-import qualified Language.LSP.Protocol.Internal.Types.WorkDoneProgressOptions-import qualified Language.LSP.Protocol.Internal.Types.WorkDoneProgressParams-import qualified Language.LSP.Protocol.Internal.Types.WorkDoneProgressReport-import qualified Language.LSP.Protocol.Internal.Types.WorkspaceClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.WorkspaceDiagnosticParams-import qualified Language.LSP.Protocol.Internal.Types.WorkspaceDiagnosticReport-import qualified Language.LSP.Protocol.Internal.Types.WorkspaceDiagnosticReportPartialResult-import qualified Language.LSP.Protocol.Internal.Types.WorkspaceEdit-import qualified Language.LSP.Protocol.Internal.Types.WorkspaceEditClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.WorkspaceFolder-import qualified Language.LSP.Protocol.Internal.Types.WorkspaceFoldersChangeEvent-import qualified Language.LSP.Protocol.Internal.Types.WorkspaceFoldersInitializeParams-import qualified Language.LSP.Protocol.Internal.Types.WorkspaceFoldersServerCapabilities-import qualified Language.LSP.Protocol.Internal.Types.WorkspaceFullDocumentDiagnosticReport-import qualified Language.LSP.Protocol.Internal.Types.WorkspaceSymbol-import qualified Language.LSP.Protocol.Internal.Types.WorkspaceSymbolClientCapabilities-import qualified Language.LSP.Protocol.Internal.Types.WorkspaceSymbolOptions-import qualified Language.LSP.Protocol.Internal.Types.WorkspaceSymbolParams-import qualified Language.LSP.Protocol.Internal.Types.WorkspaceSymbolRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.WorkspaceUnchangedDocumentDiagnosticReport--Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.ImplementationParams.ImplementationParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.Location.Location-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.ImplementationRegistrationOptions.ImplementationRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.TypeDefinitionParams.TypeDefinitionParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.TypeDefinitionRegistrationOptions.TypeDefinitionRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.WorkspaceFolder.WorkspaceFolder-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DidChangeWorkspaceFoldersParams.DidChangeWorkspaceFoldersParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.ConfigurationParams.ConfigurationParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DocumentColorParams.DocumentColorParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.ColorInformation.ColorInformation-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DocumentColorRegistrationOptions.DocumentColorRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.ColorPresentationParams.ColorPresentationParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.ColorPresentation.ColorPresentation-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.WorkDoneProgressOptions.WorkDoneProgressOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.TextDocumentRegistrationOptions.TextDocumentRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.FoldingRangeParams.FoldingRangeParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.FoldingRange.FoldingRange-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.FoldingRangeRegistrationOptions.FoldingRangeRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DeclarationParams.DeclarationParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DeclarationRegistrationOptions.DeclarationRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.SelectionRangeParams.SelectionRangeParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.SelectionRange.SelectionRange-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.SelectionRangeRegistrationOptions.SelectionRangeRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.WorkDoneProgressCreateParams.WorkDoneProgressCreateParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.WorkDoneProgressCancelParams.WorkDoneProgressCancelParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.CallHierarchyPrepareParams.CallHierarchyPrepareParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.CallHierarchyItem.CallHierarchyItem-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.CallHierarchyRegistrationOptions.CallHierarchyRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.CallHierarchyIncomingCallsParams.CallHierarchyIncomingCallsParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.CallHierarchyIncomingCall.CallHierarchyIncomingCall-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.CallHierarchyOutgoingCallsParams.CallHierarchyOutgoingCallsParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.CallHierarchyOutgoingCall.CallHierarchyOutgoingCall-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.SemanticTokensParams.SemanticTokensParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.SemanticTokens.SemanticTokens-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.SemanticTokensPartialResult.SemanticTokensPartialResult-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.SemanticTokensRegistrationOptions.SemanticTokensRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.SemanticTokensDeltaParams.SemanticTokensDeltaParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.SemanticTokensDelta.SemanticTokensDelta-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.SemanticTokensDeltaPartialResult.SemanticTokensDeltaPartialResult-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.SemanticTokensRangeParams.SemanticTokensRangeParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.ShowDocumentParams.ShowDocumentParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.ShowDocumentResult.ShowDocumentResult-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.LinkedEditingRangeParams.LinkedEditingRangeParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.LinkedEditingRanges.LinkedEditingRanges-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.LinkedEditingRangeRegistrationOptions.LinkedEditingRangeRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.CreateFilesParams.CreateFilesParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.WorkspaceEdit.WorkspaceEdit-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.FileOperationRegistrationOptions.FileOperationRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.RenameFilesParams.RenameFilesParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DeleteFilesParams.DeleteFilesParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.MonikerParams.MonikerParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.Moniker.Moniker-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.MonikerRegistrationOptions.MonikerRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.TypeHierarchyPrepareParams.TypeHierarchyPrepareParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.TypeHierarchyItem.TypeHierarchyItem-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.TypeHierarchyRegistrationOptions.TypeHierarchyRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.TypeHierarchySupertypesParams.TypeHierarchySupertypesParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.TypeHierarchySubtypesParams.TypeHierarchySubtypesParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.InlineValueParams.InlineValueParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.InlineValueRegistrationOptions.InlineValueRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.InlayHintParams.InlayHintParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.InlayHint.InlayHint-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.InlayHintRegistrationOptions.InlayHintRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DocumentDiagnosticParams.DocumentDiagnosticParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DocumentDiagnosticReportPartialResult.DocumentDiagnosticReportPartialResult-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DiagnosticServerCancellationData.DiagnosticServerCancellationData-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DiagnosticRegistrationOptions.DiagnosticRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.WorkspaceDiagnosticParams.WorkspaceDiagnosticParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.WorkspaceDiagnosticReport.WorkspaceDiagnosticReport-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.WorkspaceDiagnosticReportPartialResult.WorkspaceDiagnosticReportPartialResult-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DidOpenNotebookDocumentParams.DidOpenNotebookDocumentParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DidChangeNotebookDocumentParams.DidChangeNotebookDocumentParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DidSaveNotebookDocumentParams.DidSaveNotebookDocumentParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DidCloseNotebookDocumentParams.DidCloseNotebookDocumentParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.RegistrationParams.RegistrationParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.UnregistrationParams.UnregistrationParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.InitializeParams.InitializeParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.InitializeResult.InitializeResult-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.InitializeError.InitializeError-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.InitializedParams.InitializedParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DidChangeConfigurationParams.DidChangeConfigurationParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DidChangeConfigurationRegistrationOptions.DidChangeConfigurationRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.ShowMessageParams.ShowMessageParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.ShowMessageRequestParams.ShowMessageRequestParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.MessageActionItem.MessageActionItem-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.LogMessageParams.LogMessageParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DidOpenTextDocumentParams.DidOpenTextDocumentParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DidChangeTextDocumentParams.DidChangeTextDocumentParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.TextDocumentChangeRegistrationOptions.TextDocumentChangeRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DidCloseTextDocumentParams.DidCloseTextDocumentParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DidSaveTextDocumentParams.DidSaveTextDocumentParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.TextDocumentSaveRegistrationOptions.TextDocumentSaveRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.WillSaveTextDocumentParams.WillSaveTextDocumentParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.TextEdit.TextEdit-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DidChangeWatchedFilesParams.DidChangeWatchedFilesParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DidChangeWatchedFilesRegistrationOptions.DidChangeWatchedFilesRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.PublishDiagnosticsParams.PublishDiagnosticsParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.CompletionParams.CompletionParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.CompletionItem.CompletionItem-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.CompletionList.CompletionList-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.CompletionRegistrationOptions.CompletionRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.HoverParams.HoverParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.Hover.Hover-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.HoverRegistrationOptions.HoverRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.SignatureHelpParams.SignatureHelpParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.SignatureHelp.SignatureHelp-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.SignatureHelpRegistrationOptions.SignatureHelpRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DefinitionParams.DefinitionParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DefinitionRegistrationOptions.DefinitionRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.ReferenceParams.ReferenceParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.ReferenceRegistrationOptions.ReferenceRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DocumentHighlightParams.DocumentHighlightParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DocumentHighlight.DocumentHighlight-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DocumentHighlightRegistrationOptions.DocumentHighlightRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DocumentSymbolParams.DocumentSymbolParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.SymbolInformation.SymbolInformation-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DocumentSymbol.DocumentSymbol-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DocumentSymbolRegistrationOptions.DocumentSymbolRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.CodeActionParams.CodeActionParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.Command.Command-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.CodeAction.CodeAction-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.CodeActionRegistrationOptions.CodeActionRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.WorkspaceSymbolParams.WorkspaceSymbolParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.WorkspaceSymbol.WorkspaceSymbol-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.WorkspaceSymbolRegistrationOptions.WorkspaceSymbolRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.CodeLensParams.CodeLensParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.CodeLens.CodeLens-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.CodeLensRegistrationOptions.CodeLensRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DocumentLinkParams.DocumentLinkParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DocumentLink.DocumentLink-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DocumentLinkRegistrationOptions.DocumentLinkRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DocumentFormattingParams.DocumentFormattingParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DocumentFormattingRegistrationOptions.DocumentFormattingRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DocumentRangeFormattingParams.DocumentRangeFormattingParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DocumentRangeFormattingRegistrationOptions.DocumentRangeFormattingRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DocumentOnTypeFormattingParams.DocumentOnTypeFormattingParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DocumentOnTypeFormattingRegistrationOptions.DocumentOnTypeFormattingRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.RenameParams.RenameParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.RenameRegistrationOptions.RenameRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.PrepareRenameParams.PrepareRenameParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.ExecuteCommandParams.ExecuteCommandParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.ExecuteCommandRegistrationOptions.ExecuteCommandRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.ApplyWorkspaceEditParams.ApplyWorkspaceEditParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.ApplyWorkspaceEditResult.ApplyWorkspaceEditResult-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.WorkDoneProgressBegin.WorkDoneProgressBegin-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.WorkDoneProgressReport.WorkDoneProgressReport-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.WorkDoneProgressEnd.WorkDoneProgressEnd-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.SetTraceParams.SetTraceParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.LogTraceParams.LogTraceParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.CancelParams.CancelParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.ProgressParams.ProgressParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.TextDocumentPositionParams.TextDocumentPositionParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.WorkDoneProgressParams.WorkDoneProgressParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.PartialResultParams.PartialResultParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.LocationLink.LocationLink-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.Range.Range-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.ImplementationOptions.ImplementationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.StaticRegistrationOptions.StaticRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.TypeDefinitionOptions.TypeDefinitionOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.WorkspaceFoldersChangeEvent.WorkspaceFoldersChangeEvent-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.ConfigurationItem.ConfigurationItem-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.TextDocumentIdentifier.TextDocumentIdentifier-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.Color.Color-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DocumentColorOptions.DocumentColorOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.FoldingRangeOptions.FoldingRangeOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DeclarationOptions.DeclarationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.Position.Position-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.SelectionRangeOptions.SelectionRangeOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.CallHierarchyOptions.CallHierarchyOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.SemanticTokensOptions.SemanticTokensOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.SemanticTokensEdit.SemanticTokensEdit-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.LinkedEditingRangeOptions.LinkedEditingRangeOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.FileCreate.FileCreate-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.TextDocumentEdit.TextDocumentEdit-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.CreateFile.CreateFile-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.RenameFile.RenameFile-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DeleteFile.DeleteFile-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.ChangeAnnotation.ChangeAnnotation-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.FileOperationFilter.FileOperationFilter-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.FileRename.FileRename-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.FileDelete.FileDelete-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.MonikerOptions.MonikerOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.TypeHierarchyOptions.TypeHierarchyOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.InlineValueContext.InlineValueContext-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.InlineValueText.InlineValueText-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.InlineValueVariableLookup.InlineValueVariableLookup-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.InlineValueEvaluatableExpression.InlineValueEvaluatableExpression-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.InlineValueOptions.InlineValueOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.InlayHintLabelPart.InlayHintLabelPart-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.MarkupContent.MarkupContent-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.InlayHintOptions.InlayHintOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.RelatedFullDocumentDiagnosticReport.RelatedFullDocumentDiagnosticReport-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.RelatedUnchangedDocumentDiagnosticReport.RelatedUnchangedDocumentDiagnosticReport-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.FullDocumentDiagnosticReport.FullDocumentDiagnosticReport-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.UnchangedDocumentDiagnosticReport.UnchangedDocumentDiagnosticReport-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DiagnosticOptions.DiagnosticOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.PreviousResultId.PreviousResultId-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.NotebookDocument.NotebookDocument-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.TextDocumentItem.TextDocumentItem-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.VersionedNotebookDocumentIdentifier.VersionedNotebookDocumentIdentifier-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.NotebookDocumentChangeEvent.NotebookDocumentChangeEvent-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.NotebookDocumentIdentifier.NotebookDocumentIdentifier-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.Registration.Registration-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.Unregistration.Unregistration-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.UInitializeParams.UInitializeParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.WorkspaceFoldersInitializeParams.WorkspaceFoldersInitializeParams-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.ServerCapabilities.ServerCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.VersionedTextDocumentIdentifier.VersionedTextDocumentIdentifier-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.SaveOptions.SaveOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.FileEvent.FileEvent-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.FileSystemWatcher.FileSystemWatcher-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.Diagnostic.Diagnostic-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.CompletionContext.CompletionContext-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.CompletionItemLabelDetails.CompletionItemLabelDetails-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.InsertReplaceEdit.InsertReplaceEdit-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.CompletionOptions.CompletionOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.HoverOptions.HoverOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.SignatureHelpContext.SignatureHelpContext-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.SignatureInformation.SignatureInformation-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.SignatureHelpOptions.SignatureHelpOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DefinitionOptions.DefinitionOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.ReferenceContext.ReferenceContext-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.ReferenceOptions.ReferenceOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DocumentHighlightOptions.DocumentHighlightOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.BaseSymbolInformation.BaseSymbolInformation-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DocumentSymbolOptions.DocumentSymbolOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.CodeActionContext.CodeActionContext-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.CodeActionOptions.CodeActionOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.WorkspaceSymbolOptions.WorkspaceSymbolOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.CodeLensOptions.CodeLensOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DocumentLinkOptions.DocumentLinkOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.FormattingOptions.FormattingOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DocumentFormattingOptions.DocumentFormattingOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DocumentRangeFormattingOptions.DocumentRangeFormattingOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DocumentOnTypeFormattingOptions.DocumentOnTypeFormattingOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.RenameOptions.RenameOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.ExecuteCommandOptions.ExecuteCommandOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.SemanticTokensLegend.SemanticTokensLegend-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.OptionalVersionedTextDocumentIdentifier.OptionalVersionedTextDocumentIdentifier-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.AnnotatedTextEdit.AnnotatedTextEdit-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.ResourceOperation.ResourceOperation-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.CreateFileOptions.CreateFileOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.RenameFileOptions.RenameFileOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DeleteFileOptions.DeleteFileOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.FileOperationPattern.FileOperationPattern-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.WorkspaceFullDocumentDiagnosticReport.WorkspaceFullDocumentDiagnosticReport-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.WorkspaceUnchangedDocumentDiagnosticReport.WorkspaceUnchangedDocumentDiagnosticReport-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.NotebookCell.NotebookCell-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.NotebookCellArrayChange.NotebookCellArrayChange-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.ClientCapabilities.ClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.TextDocumentSyncOptions.TextDocumentSyncOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.NotebookDocumentSyncOptions.NotebookDocumentSyncOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.NotebookDocumentSyncRegistrationOptions.NotebookDocumentSyncRegistrationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.WorkspaceFoldersServerCapabilities.WorkspaceFoldersServerCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.FileOperationOptions.FileOperationOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.CodeDescription.CodeDescription-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DiagnosticRelatedInformation.DiagnosticRelatedInformation-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.ParameterInformation.ParameterInformation-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.NotebookCellTextDocumentFilter.NotebookCellTextDocumentFilter-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.FileOperationPatternOptions.FileOperationPatternOptions-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.ExecutionSummary.ExecutionSummary-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.WorkspaceClientCapabilities.WorkspaceClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.TextDocumentClientCapabilities.TextDocumentClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.NotebookDocumentClientCapabilities.NotebookDocumentClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.WindowClientCapabilities.WindowClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.GeneralClientCapabilities.GeneralClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.RelativePattern.RelativePattern-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.WorkspaceEditClientCapabilities.WorkspaceEditClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DidChangeConfigurationClientCapabilities.DidChangeConfigurationClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DidChangeWatchedFilesClientCapabilities.DidChangeWatchedFilesClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.WorkspaceSymbolClientCapabilities.WorkspaceSymbolClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.ExecuteCommandClientCapabilities.ExecuteCommandClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.SemanticTokensWorkspaceClientCapabilities.SemanticTokensWorkspaceClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.CodeLensWorkspaceClientCapabilities.CodeLensWorkspaceClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.FileOperationClientCapabilities.FileOperationClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.InlineValueWorkspaceClientCapabilities.InlineValueWorkspaceClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.InlayHintWorkspaceClientCapabilities.InlayHintWorkspaceClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DiagnosticWorkspaceClientCapabilities.DiagnosticWorkspaceClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.TextDocumentSyncClientCapabilities.TextDocumentSyncClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.CompletionClientCapabilities.CompletionClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.HoverClientCapabilities.HoverClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.SignatureHelpClientCapabilities.SignatureHelpClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DeclarationClientCapabilities.DeclarationClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DefinitionClientCapabilities.DefinitionClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.TypeDefinitionClientCapabilities.TypeDefinitionClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.ImplementationClientCapabilities.ImplementationClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.ReferenceClientCapabilities.ReferenceClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DocumentHighlightClientCapabilities.DocumentHighlightClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DocumentSymbolClientCapabilities.DocumentSymbolClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.CodeActionClientCapabilities.CodeActionClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.CodeLensClientCapabilities.CodeLensClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DocumentLinkClientCapabilities.DocumentLinkClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DocumentColorClientCapabilities.DocumentColorClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DocumentFormattingClientCapabilities.DocumentFormattingClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DocumentRangeFormattingClientCapabilities.DocumentRangeFormattingClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DocumentOnTypeFormattingClientCapabilities.DocumentOnTypeFormattingClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.RenameClientCapabilities.RenameClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.FoldingRangeClientCapabilities.FoldingRangeClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.SelectionRangeClientCapabilities.SelectionRangeClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.PublishDiagnosticsClientCapabilities.PublishDiagnosticsClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.CallHierarchyClientCapabilities.CallHierarchyClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.SemanticTokensClientCapabilities.SemanticTokensClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.LinkedEditingRangeClientCapabilities.LinkedEditingRangeClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.MonikerClientCapabilities.MonikerClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.TypeHierarchyClientCapabilities.TypeHierarchyClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.InlineValueClientCapabilities.InlineValueClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.InlayHintClientCapabilities.InlayHintClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.DiagnosticClientCapabilities.DiagnosticClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.NotebookDocumentSyncClientCapabilities.NotebookDocumentSyncClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.ShowMessageRequestClientCapabilities.ShowMessageRequestClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.ShowDocumentClientCapabilities.ShowDocumentClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.RegularExpressionsClientCapabilities.RegularExpressionsClientCapabilities-Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.MarkdownClientCapabilities.MarkdownClientCapabilities
+ generated/Language/LSP/Protocol/Internal/Meta.hs view
@@ -0,0 +1,433 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT+{-# LANGUAGE TemplateHaskell #-}+{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Meta where++import qualified Language.Haskell.TH as TH+import qualified Language.LSP.Protocol.Internal.Types++structNames :: [TH.Name]+structNames = [''Language.LSP.Protocol.Internal.Types.ImplementationParams+  ,''Language.LSP.Protocol.Internal.Types.Location+  ,''Language.LSP.Protocol.Internal.Types.ImplementationRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.TypeDefinitionParams+  ,''Language.LSP.Protocol.Internal.Types.TypeDefinitionRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.WorkspaceFolder+  ,''Language.LSP.Protocol.Internal.Types.DidChangeWorkspaceFoldersParams+  ,''Language.LSP.Protocol.Internal.Types.ConfigurationParams+  ,''Language.LSP.Protocol.Internal.Types.DocumentColorParams+  ,''Language.LSP.Protocol.Internal.Types.ColorInformation+  ,''Language.LSP.Protocol.Internal.Types.DocumentColorRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.ColorPresentationParams+  ,''Language.LSP.Protocol.Internal.Types.ColorPresentation+  ,''Language.LSP.Protocol.Internal.Types.WorkDoneProgressOptions+  ,''Language.LSP.Protocol.Internal.Types.TextDocumentRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.FoldingRangeParams+  ,''Language.LSP.Protocol.Internal.Types.FoldingRange+  ,''Language.LSP.Protocol.Internal.Types.FoldingRangeRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.DeclarationParams+  ,''Language.LSP.Protocol.Internal.Types.DeclarationRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.SelectionRangeParams+  ,''Language.LSP.Protocol.Internal.Types.SelectionRange+  ,''Language.LSP.Protocol.Internal.Types.SelectionRangeRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.WorkDoneProgressCreateParams+  ,''Language.LSP.Protocol.Internal.Types.WorkDoneProgressCancelParams+  ,''Language.LSP.Protocol.Internal.Types.CallHierarchyPrepareParams+  ,''Language.LSP.Protocol.Internal.Types.CallHierarchyItem+  ,''Language.LSP.Protocol.Internal.Types.CallHierarchyRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.CallHierarchyIncomingCallsParams+  ,''Language.LSP.Protocol.Internal.Types.CallHierarchyIncomingCall+  ,''Language.LSP.Protocol.Internal.Types.CallHierarchyOutgoingCallsParams+  ,''Language.LSP.Protocol.Internal.Types.CallHierarchyOutgoingCall+  ,''Language.LSP.Protocol.Internal.Types.SemanticTokensParams+  ,''Language.LSP.Protocol.Internal.Types.SemanticTokens+  ,''Language.LSP.Protocol.Internal.Types.SemanticTokensPartialResult+  ,''Language.LSP.Protocol.Internal.Types.SemanticTokensRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.SemanticTokensDeltaParams+  ,''Language.LSP.Protocol.Internal.Types.SemanticTokensDelta+  ,''Language.LSP.Protocol.Internal.Types.SemanticTokensDeltaPartialResult+  ,''Language.LSP.Protocol.Internal.Types.SemanticTokensRangeParams+  ,''Language.LSP.Protocol.Internal.Types.ShowDocumentParams+  ,''Language.LSP.Protocol.Internal.Types.ShowDocumentResult+  ,''Language.LSP.Protocol.Internal.Types.LinkedEditingRangeParams+  ,''Language.LSP.Protocol.Internal.Types.LinkedEditingRanges+  ,''Language.LSP.Protocol.Internal.Types.LinkedEditingRangeRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.CreateFilesParams+  ,''Language.LSP.Protocol.Internal.Types.WorkspaceEdit+  ,''Language.LSP.Protocol.Internal.Types.FileOperationRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.RenameFilesParams+  ,''Language.LSP.Protocol.Internal.Types.DeleteFilesParams+  ,''Language.LSP.Protocol.Internal.Types.MonikerParams+  ,''Language.LSP.Protocol.Internal.Types.Moniker+  ,''Language.LSP.Protocol.Internal.Types.MonikerRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.TypeHierarchyPrepareParams+  ,''Language.LSP.Protocol.Internal.Types.TypeHierarchyItem+  ,''Language.LSP.Protocol.Internal.Types.TypeHierarchyRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.TypeHierarchySupertypesParams+  ,''Language.LSP.Protocol.Internal.Types.TypeHierarchySubtypesParams+  ,''Language.LSP.Protocol.Internal.Types.InlineValueParams+  ,''Language.LSP.Protocol.Internal.Types.InlineValueRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.InlayHintParams+  ,''Language.LSP.Protocol.Internal.Types.InlayHint+  ,''Language.LSP.Protocol.Internal.Types.InlayHintRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.DocumentDiagnosticParams+  ,''Language.LSP.Protocol.Internal.Types.DocumentDiagnosticReportPartialResult+  ,''Language.LSP.Protocol.Internal.Types.DiagnosticServerCancellationData+  ,''Language.LSP.Protocol.Internal.Types.DiagnosticRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.WorkspaceDiagnosticParams+  ,''Language.LSP.Protocol.Internal.Types.WorkspaceDiagnosticReport+  ,''Language.LSP.Protocol.Internal.Types.WorkspaceDiagnosticReportPartialResult+  ,''Language.LSP.Protocol.Internal.Types.DidOpenNotebookDocumentParams+  ,''Language.LSP.Protocol.Internal.Types.NotebookDocumentSyncRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.DidChangeNotebookDocumentParams+  ,''Language.LSP.Protocol.Internal.Types.DidSaveNotebookDocumentParams+  ,''Language.LSP.Protocol.Internal.Types.DidCloseNotebookDocumentParams+  ,''Language.LSP.Protocol.Internal.Types.RegistrationParams+  ,''Language.LSP.Protocol.Internal.Types.UnregistrationParams+  ,''Language.LSP.Protocol.Internal.Types.InitializeParams+  ,''Language.LSP.Protocol.Internal.Types.InitializeResult+  ,''Language.LSP.Protocol.Internal.Types.InitializeError+  ,''Language.LSP.Protocol.Internal.Types.InitializedParams+  ,''Language.LSP.Protocol.Internal.Types.DidChangeConfigurationParams+  ,''Language.LSP.Protocol.Internal.Types.DidChangeConfigurationRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.ShowMessageParams+  ,''Language.LSP.Protocol.Internal.Types.ShowMessageRequestParams+  ,''Language.LSP.Protocol.Internal.Types.MessageActionItem+  ,''Language.LSP.Protocol.Internal.Types.LogMessageParams+  ,''Language.LSP.Protocol.Internal.Types.DidOpenTextDocumentParams+  ,''Language.LSP.Protocol.Internal.Types.DidChangeTextDocumentParams+  ,''Language.LSP.Protocol.Internal.Types.TextDocumentChangeRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.DidCloseTextDocumentParams+  ,''Language.LSP.Protocol.Internal.Types.DidSaveTextDocumentParams+  ,''Language.LSP.Protocol.Internal.Types.TextDocumentSaveRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.WillSaveTextDocumentParams+  ,''Language.LSP.Protocol.Internal.Types.TextEdit+  ,''Language.LSP.Protocol.Internal.Types.DidChangeWatchedFilesParams+  ,''Language.LSP.Protocol.Internal.Types.DidChangeWatchedFilesRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.PublishDiagnosticsParams+  ,''Language.LSP.Protocol.Internal.Types.CompletionParams+  ,''Language.LSP.Protocol.Internal.Types.CompletionItem+  ,''Language.LSP.Protocol.Internal.Types.CompletionList+  ,''Language.LSP.Protocol.Internal.Types.CompletionRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.HoverParams+  ,''Language.LSP.Protocol.Internal.Types.Hover+  ,''Language.LSP.Protocol.Internal.Types.HoverRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.SignatureHelpParams+  ,''Language.LSP.Protocol.Internal.Types.SignatureHelp+  ,''Language.LSP.Protocol.Internal.Types.SignatureHelpRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.DefinitionParams+  ,''Language.LSP.Protocol.Internal.Types.DefinitionRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.ReferenceParams+  ,''Language.LSP.Protocol.Internal.Types.ReferenceRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.DocumentHighlightParams+  ,''Language.LSP.Protocol.Internal.Types.DocumentHighlight+  ,''Language.LSP.Protocol.Internal.Types.DocumentHighlightRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.DocumentSymbolParams+  ,''Language.LSP.Protocol.Internal.Types.SymbolInformation+  ,''Language.LSP.Protocol.Internal.Types.DocumentSymbol+  ,''Language.LSP.Protocol.Internal.Types.DocumentSymbolRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.CodeActionParams+  ,''Language.LSP.Protocol.Internal.Types.Command+  ,''Language.LSP.Protocol.Internal.Types.CodeAction+  ,''Language.LSP.Protocol.Internal.Types.CodeActionRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.WorkspaceSymbolParams+  ,''Language.LSP.Protocol.Internal.Types.WorkspaceSymbol+  ,''Language.LSP.Protocol.Internal.Types.WorkspaceSymbolRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.CodeLensParams+  ,''Language.LSP.Protocol.Internal.Types.CodeLens+  ,''Language.LSP.Protocol.Internal.Types.CodeLensRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.DocumentLinkParams+  ,''Language.LSP.Protocol.Internal.Types.DocumentLink+  ,''Language.LSP.Protocol.Internal.Types.DocumentLinkRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.DocumentFormattingParams+  ,''Language.LSP.Protocol.Internal.Types.DocumentFormattingRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.DocumentRangeFormattingParams+  ,''Language.LSP.Protocol.Internal.Types.DocumentRangeFormattingRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.DocumentOnTypeFormattingParams+  ,''Language.LSP.Protocol.Internal.Types.DocumentOnTypeFormattingRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.RenameParams+  ,''Language.LSP.Protocol.Internal.Types.RenameRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.PrepareRenameParams+  ,''Language.LSP.Protocol.Internal.Types.ExecuteCommandParams+  ,''Language.LSP.Protocol.Internal.Types.ExecuteCommandRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.ApplyWorkspaceEditParams+  ,''Language.LSP.Protocol.Internal.Types.ApplyWorkspaceEditResult+  ,''Language.LSP.Protocol.Internal.Types.WorkDoneProgressBegin+  ,''Language.LSP.Protocol.Internal.Types.WorkDoneProgressReport+  ,''Language.LSP.Protocol.Internal.Types.WorkDoneProgressEnd+  ,''Language.LSP.Protocol.Internal.Types.SetTraceParams+  ,''Language.LSP.Protocol.Internal.Types.LogTraceParams+  ,''Language.LSP.Protocol.Internal.Types.CancelParams+  ,''Language.LSP.Protocol.Internal.Types.ProgressParams+  ,''Language.LSP.Protocol.Internal.Types.TextDocumentPositionParams+  ,''Language.LSP.Protocol.Internal.Types.WorkDoneProgressParams+  ,''Language.LSP.Protocol.Internal.Types.PartialResultParams+  ,''Language.LSP.Protocol.Internal.Types.LocationLink+  ,''Language.LSP.Protocol.Internal.Types.Range+  ,''Language.LSP.Protocol.Internal.Types.ImplementationOptions+  ,''Language.LSP.Protocol.Internal.Types.StaticRegistrationOptions+  ,''Language.LSP.Protocol.Internal.Types.TypeDefinitionOptions+  ,''Language.LSP.Protocol.Internal.Types.WorkspaceFoldersChangeEvent+  ,''Language.LSP.Protocol.Internal.Types.ConfigurationItem+  ,''Language.LSP.Protocol.Internal.Types.TextDocumentIdentifier+  ,''Language.LSP.Protocol.Internal.Types.Color+  ,''Language.LSP.Protocol.Internal.Types.DocumentColorOptions+  ,''Language.LSP.Protocol.Internal.Types.FoldingRangeOptions+  ,''Language.LSP.Protocol.Internal.Types.DeclarationOptions+  ,''Language.LSP.Protocol.Internal.Types.Position+  ,''Language.LSP.Protocol.Internal.Types.SelectionRangeOptions+  ,''Language.LSP.Protocol.Internal.Types.CallHierarchyOptions+  ,''Language.LSP.Protocol.Internal.Types.SemanticTokensOptions+  ,''Language.LSP.Protocol.Internal.Types.SemanticTokensEdit+  ,''Language.LSP.Protocol.Internal.Types.LinkedEditingRangeOptions+  ,''Language.LSP.Protocol.Internal.Types.FileCreate+  ,''Language.LSP.Protocol.Internal.Types.TextDocumentEdit+  ,''Language.LSP.Protocol.Internal.Types.CreateFile+  ,''Language.LSP.Protocol.Internal.Types.RenameFile+  ,''Language.LSP.Protocol.Internal.Types.DeleteFile+  ,''Language.LSP.Protocol.Internal.Types.ChangeAnnotation+  ,''Language.LSP.Protocol.Internal.Types.FileOperationFilter+  ,''Language.LSP.Protocol.Internal.Types.FileRename+  ,''Language.LSP.Protocol.Internal.Types.FileDelete+  ,''Language.LSP.Protocol.Internal.Types.MonikerOptions+  ,''Language.LSP.Protocol.Internal.Types.TypeHierarchyOptions+  ,''Language.LSP.Protocol.Internal.Types.InlineValueContext+  ,''Language.LSP.Protocol.Internal.Types.InlineValueText+  ,''Language.LSP.Protocol.Internal.Types.InlineValueVariableLookup+  ,''Language.LSP.Protocol.Internal.Types.InlineValueEvaluatableExpression+  ,''Language.LSP.Protocol.Internal.Types.InlineValueOptions+  ,''Language.LSP.Protocol.Internal.Types.InlayHintLabelPart+  ,''Language.LSP.Protocol.Internal.Types.MarkupContent+  ,''Language.LSP.Protocol.Internal.Types.InlayHintOptions+  ,''Language.LSP.Protocol.Internal.Types.RelatedFullDocumentDiagnosticReport+  ,''Language.LSP.Protocol.Internal.Types.RelatedUnchangedDocumentDiagnosticReport+  ,''Language.LSP.Protocol.Internal.Types.FullDocumentDiagnosticReport+  ,''Language.LSP.Protocol.Internal.Types.UnchangedDocumentDiagnosticReport+  ,''Language.LSP.Protocol.Internal.Types.DiagnosticOptions+  ,''Language.LSP.Protocol.Internal.Types.PreviousResultId+  ,''Language.LSP.Protocol.Internal.Types.NotebookDocument+  ,''Language.LSP.Protocol.Internal.Types.TextDocumentItem+  ,''Language.LSP.Protocol.Internal.Types.NotebookDocumentSyncOptions+  ,''Language.LSP.Protocol.Internal.Types.VersionedNotebookDocumentIdentifier+  ,''Language.LSP.Protocol.Internal.Types.NotebookDocumentChangeEvent+  ,''Language.LSP.Protocol.Internal.Types.NotebookDocumentIdentifier+  ,''Language.LSP.Protocol.Internal.Types.Registration+  ,''Language.LSP.Protocol.Internal.Types.Unregistration+  ,''Language.LSP.Protocol.Internal.Types.UInitializeParams+  ,''Language.LSP.Protocol.Internal.Types.WorkspaceFoldersInitializeParams+  ,''Language.LSP.Protocol.Internal.Types.ServerCapabilities+  ,''Language.LSP.Protocol.Internal.Types.ServerInfo+  ,''Language.LSP.Protocol.Internal.Types.VersionedTextDocumentIdentifier+  ,''Language.LSP.Protocol.Internal.Types.SaveOptions+  ,''Language.LSP.Protocol.Internal.Types.FileEvent+  ,''Language.LSP.Protocol.Internal.Types.FileSystemWatcher+  ,''Language.LSP.Protocol.Internal.Types.Diagnostic+  ,''Language.LSP.Protocol.Internal.Types.CompletionContext+  ,''Language.LSP.Protocol.Internal.Types.CompletionItemLabelDetails+  ,''Language.LSP.Protocol.Internal.Types.InsertReplaceEdit+  ,''Language.LSP.Protocol.Internal.Types.CompletionItemDefaults+  ,''Language.LSP.Protocol.Internal.Types.CompletionOptions+  ,''Language.LSP.Protocol.Internal.Types.HoverOptions+  ,''Language.LSP.Protocol.Internal.Types.SignatureHelpContext+  ,''Language.LSP.Protocol.Internal.Types.SignatureInformation+  ,''Language.LSP.Protocol.Internal.Types.SignatureHelpOptions+  ,''Language.LSP.Protocol.Internal.Types.DefinitionOptions+  ,''Language.LSP.Protocol.Internal.Types.ReferenceContext+  ,''Language.LSP.Protocol.Internal.Types.ReferenceOptions+  ,''Language.LSP.Protocol.Internal.Types.DocumentHighlightOptions+  ,''Language.LSP.Protocol.Internal.Types.BaseSymbolInformation+  ,''Language.LSP.Protocol.Internal.Types.DocumentSymbolOptions+  ,''Language.LSP.Protocol.Internal.Types.CodeActionContext+  ,''Language.LSP.Protocol.Internal.Types.CodeActionDisabled+  ,''Language.LSP.Protocol.Internal.Types.CodeActionOptions+  ,''Language.LSP.Protocol.Internal.Types.LocationUriOnly+  ,''Language.LSP.Protocol.Internal.Types.WorkspaceSymbolOptions+  ,''Language.LSP.Protocol.Internal.Types.CodeLensOptions+  ,''Language.LSP.Protocol.Internal.Types.DocumentLinkOptions+  ,''Language.LSP.Protocol.Internal.Types.FormattingOptions+  ,''Language.LSP.Protocol.Internal.Types.DocumentFormattingOptions+  ,''Language.LSP.Protocol.Internal.Types.DocumentRangeFormattingOptions+  ,''Language.LSP.Protocol.Internal.Types.DocumentOnTypeFormattingOptions+  ,''Language.LSP.Protocol.Internal.Types.RenameOptions+  ,''Language.LSP.Protocol.Internal.Types.PrepareRenamePlaceholder+  ,''Language.LSP.Protocol.Internal.Types.PrepareRenameDefaultBehavior+  ,''Language.LSP.Protocol.Internal.Types.ExecuteCommandOptions+  ,''Language.LSP.Protocol.Internal.Types.SemanticTokensLegend+  ,''Language.LSP.Protocol.Internal.Types.SemanticTokensFullDelta+  ,''Language.LSP.Protocol.Internal.Types.OptionalVersionedTextDocumentIdentifier+  ,''Language.LSP.Protocol.Internal.Types.AnnotatedTextEdit+  ,''Language.LSP.Protocol.Internal.Types.ResourceOperation+  ,''Language.LSP.Protocol.Internal.Types.CreateFileOptions+  ,''Language.LSP.Protocol.Internal.Types.RenameFileOptions+  ,''Language.LSP.Protocol.Internal.Types.DeleteFileOptions+  ,''Language.LSP.Protocol.Internal.Types.FileOperationPattern+  ,''Language.LSP.Protocol.Internal.Types.WorkspaceFullDocumentDiagnosticReport+  ,''Language.LSP.Protocol.Internal.Types.WorkspaceUnchangedDocumentDiagnosticReport+  ,''Language.LSP.Protocol.Internal.Types.NotebookCell+  ,''Language.LSP.Protocol.Internal.Types.NotebookDocumentFilterWithNotebook+  ,''Language.LSP.Protocol.Internal.Types.NotebookDocumentFilterWithCells+  ,''Language.LSP.Protocol.Internal.Types.NotebookDocumentCellChanges+  ,''Language.LSP.Protocol.Internal.Types.ClientInfo+  ,''Language.LSP.Protocol.Internal.Types.ClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.TextDocumentSyncOptions+  ,''Language.LSP.Protocol.Internal.Types.WorkspaceOptions+  ,''Language.LSP.Protocol.Internal.Types.TextDocumentContentChangePartial+  ,''Language.LSP.Protocol.Internal.Types.TextDocumentContentChangeWholeDocument+  ,''Language.LSP.Protocol.Internal.Types.CodeDescription+  ,''Language.LSP.Protocol.Internal.Types.DiagnosticRelatedInformation+  ,''Language.LSP.Protocol.Internal.Types.EditRangeWithInsertReplace+  ,''Language.LSP.Protocol.Internal.Types.ServerCompletionItemOptions+  ,''Language.LSP.Protocol.Internal.Types.MarkedStringWithLanguage+  ,''Language.LSP.Protocol.Internal.Types.ParameterInformation+  ,''Language.LSP.Protocol.Internal.Types.NotebookCellTextDocumentFilter+  ,''Language.LSP.Protocol.Internal.Types.FileOperationPatternOptions+  ,''Language.LSP.Protocol.Internal.Types.ExecutionSummary+  ,''Language.LSP.Protocol.Internal.Types.NotebookCellLanguage+  ,''Language.LSP.Protocol.Internal.Types.NotebookDocumentCellChangeStructure+  ,''Language.LSP.Protocol.Internal.Types.NotebookDocumentCellContentChanges+  ,''Language.LSP.Protocol.Internal.Types.WorkspaceClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.TextDocumentClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.NotebookDocumentClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.WindowClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.GeneralClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.WorkspaceFoldersServerCapabilities+  ,''Language.LSP.Protocol.Internal.Types.FileOperationOptions+  ,''Language.LSP.Protocol.Internal.Types.RelativePattern+  ,''Language.LSP.Protocol.Internal.Types.TextDocumentFilterLanguage+  ,''Language.LSP.Protocol.Internal.Types.TextDocumentFilterScheme+  ,''Language.LSP.Protocol.Internal.Types.TextDocumentFilterPattern+  ,''Language.LSP.Protocol.Internal.Types.NotebookDocumentFilterNotebookType+  ,''Language.LSP.Protocol.Internal.Types.NotebookDocumentFilterScheme+  ,''Language.LSP.Protocol.Internal.Types.NotebookDocumentFilterPattern+  ,''Language.LSP.Protocol.Internal.Types.NotebookCellArrayChange+  ,''Language.LSP.Protocol.Internal.Types.WorkspaceEditClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.DidChangeConfigurationClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.DidChangeWatchedFilesClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.WorkspaceSymbolClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.ExecuteCommandClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.SemanticTokensWorkspaceClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.CodeLensWorkspaceClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.FileOperationClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.InlineValueWorkspaceClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.InlayHintWorkspaceClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.DiagnosticWorkspaceClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.TextDocumentSyncClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.CompletionClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.HoverClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.SignatureHelpClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.DeclarationClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.DefinitionClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.TypeDefinitionClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.ImplementationClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.ReferenceClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.DocumentHighlightClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.DocumentSymbolClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.CodeActionClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.CodeLensClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.DocumentLinkClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.DocumentColorClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.DocumentFormattingClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.DocumentRangeFormattingClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.DocumentOnTypeFormattingClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.RenameClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.FoldingRangeClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.SelectionRangeClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.PublishDiagnosticsClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.CallHierarchyClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.SemanticTokensClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.LinkedEditingRangeClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.MonikerClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.TypeHierarchyClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.InlineValueClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.InlayHintClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.DiagnosticClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.NotebookDocumentSyncClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.ShowMessageRequestClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.ShowDocumentClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.StaleRequestSupportOptions+  ,''Language.LSP.Protocol.Internal.Types.RegularExpressionsClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.MarkdownClientCapabilities+  ,''Language.LSP.Protocol.Internal.Types.ChangeAnnotationsSupportOptions+  ,''Language.LSP.Protocol.Internal.Types.ClientSymbolKindOptions+  ,''Language.LSP.Protocol.Internal.Types.ClientSymbolTagOptions+  ,''Language.LSP.Protocol.Internal.Types.ClientSymbolResolveOptions+  ,''Language.LSP.Protocol.Internal.Types.ClientCompletionItemOptions+  ,''Language.LSP.Protocol.Internal.Types.ClientCompletionItemOptionsKind+  ,''Language.LSP.Protocol.Internal.Types.CompletionListCapabilities+  ,''Language.LSP.Protocol.Internal.Types.ClientSignatureInformationOptions+  ,''Language.LSP.Protocol.Internal.Types.ClientCodeActionLiteralOptions+  ,''Language.LSP.Protocol.Internal.Types.ClientCodeActionResolveOptions+  ,''Language.LSP.Protocol.Internal.Types.ClientFoldingRangeKindOptions+  ,''Language.LSP.Protocol.Internal.Types.ClientFoldingRangeOptions+  ,''Language.LSP.Protocol.Internal.Types.ClientDiagnosticsTagOptions+  ,''Language.LSP.Protocol.Internal.Types.ClientSemanticTokensRequestOptions+  ,''Language.LSP.Protocol.Internal.Types.ClientInlayHintResolveOptions+  ,''Language.LSP.Protocol.Internal.Types.ClientShowMessageActionItemOptions+  ,''Language.LSP.Protocol.Internal.Types.CompletionItemTagOptions+  ,''Language.LSP.Protocol.Internal.Types.ClientCompletionItemResolveOptions+  ,''Language.LSP.Protocol.Internal.Types.ClientCompletionItemInsertTextModeOptions+  ,''Language.LSP.Protocol.Internal.Types.ClientSignatureParameterInformationOptions+  ,''Language.LSP.Protocol.Internal.Types.ClientCodeActionKindOptions+  ,''Language.LSP.Protocol.Internal.Types.ClientSemanticTokensRequestFullDelta]+aliasNames :: [TH.Name]+aliasNames = [''Language.LSP.Protocol.Internal.Types.Definition+  ,''Language.LSP.Protocol.Internal.Types.DefinitionLink+  ,''Language.LSP.Protocol.Internal.Types.Declaration+  ,''Language.LSP.Protocol.Internal.Types.DeclarationLink+  ,''Language.LSP.Protocol.Internal.Types.InlineValue+  ,''Language.LSP.Protocol.Internal.Types.DocumentDiagnosticReport+  ,''Language.LSP.Protocol.Internal.Types.PrepareRenameResult+  ,''Language.LSP.Protocol.Internal.Types.DocumentSelector+  ,''Language.LSP.Protocol.Internal.Types.ProgressToken+  ,''Language.LSP.Protocol.Internal.Types.ChangeAnnotationIdentifier+  ,''Language.LSP.Protocol.Internal.Types.WorkspaceDocumentDiagnosticReport+  ,''Language.LSP.Protocol.Internal.Types.TextDocumentContentChangeEvent+  ,''Language.LSP.Protocol.Internal.Types.MarkedString+  ,''Language.LSP.Protocol.Internal.Types.DocumentFilter+  ,''Language.LSP.Protocol.Internal.Types.GlobPattern+  ,''Language.LSP.Protocol.Internal.Types.TextDocumentFilter+  ,''Language.LSP.Protocol.Internal.Types.NotebookDocumentFilter+  ,''Language.LSP.Protocol.Internal.Types.Pattern+  ,''Language.LSP.Protocol.Internal.Types.RegularExpressionEngineKind]+enumNames :: [TH.Name]+enumNames = [''Language.LSP.Protocol.Internal.Types.SemanticTokenTypes+  ,''Language.LSP.Protocol.Internal.Types.SemanticTokenModifiers+  ,''Language.LSP.Protocol.Internal.Types.DocumentDiagnosticReportKind+  ,''Language.LSP.Protocol.Internal.Types.ErrorCodes+  ,''Language.LSP.Protocol.Internal.Types.LSPErrorCodes+  ,''Language.LSP.Protocol.Internal.Types.FoldingRangeKind+  ,''Language.LSP.Protocol.Internal.Types.SymbolKind+  ,''Language.LSP.Protocol.Internal.Types.SymbolTag+  ,''Language.LSP.Protocol.Internal.Types.UniquenessLevel+  ,''Language.LSP.Protocol.Internal.Types.MonikerKind+  ,''Language.LSP.Protocol.Internal.Types.InlayHintKind+  ,''Language.LSP.Protocol.Internal.Types.MessageType+  ,''Language.LSP.Protocol.Internal.Types.TextDocumentSyncKind+  ,''Language.LSP.Protocol.Internal.Types.TextDocumentSaveReason+  ,''Language.LSP.Protocol.Internal.Types.CompletionItemKind+  ,''Language.LSP.Protocol.Internal.Types.CompletionItemTag+  ,''Language.LSP.Protocol.Internal.Types.InsertTextFormat+  ,''Language.LSP.Protocol.Internal.Types.InsertTextMode+  ,''Language.LSP.Protocol.Internal.Types.DocumentHighlightKind+  ,''Language.LSP.Protocol.Internal.Types.CodeActionKind+  ,''Language.LSP.Protocol.Internal.Types.TraceValue+  ,''Language.LSP.Protocol.Internal.Types.MarkupKind+  ,''Language.LSP.Protocol.Internal.Types.LanguageKind+  ,''Language.LSP.Protocol.Internal.Types.PositionEncodingKind+  ,''Language.LSP.Protocol.Internal.Types.FileChangeType+  ,''Language.LSP.Protocol.Internal.Types.WatchKind+  ,''Language.LSP.Protocol.Internal.Types.DiagnosticSeverity+  ,''Language.LSP.Protocol.Internal.Types.DiagnosticTag+  ,''Language.LSP.Protocol.Internal.Types.CompletionTriggerKind+  ,''Language.LSP.Protocol.Internal.Types.SignatureHelpTriggerKind+  ,''Language.LSP.Protocol.Internal.Types.CodeActionTriggerKind+  ,''Language.LSP.Protocol.Internal.Types.FileOperationPatternKind+  ,''Language.LSP.Protocol.Internal.Types.NotebookCellKind+  ,''Language.LSP.Protocol.Internal.Types.ResourceOperationKind+  ,''Language.LSP.Protocol.Internal.Types.FailureHandlingKind+  ,''Language.LSP.Protocol.Internal.Types.PrepareSupportDefaultBehavior+  ,''Language.LSP.Protocol.Internal.Types.TokenFormat]
generated/Language/LSP/Protocol/Internal/Method.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -113,6 +115,7 @@ import qualified Language.LSP.Protocol.Internal.Types.Moniker import qualified Language.LSP.Protocol.Internal.Types.MonikerParams import qualified Language.LSP.Protocol.Internal.Types.MonikerRegistrationOptions+import qualified Language.LSP.Protocol.Internal.Types.NotebookDocumentSyncRegistrationOptions import qualified Language.LSP.Protocol.Internal.Types.PrepareRenameParams import qualified Language.LSP.Protocol.Internal.Types.PrepareRenameResult import qualified Language.LSP.Protocol.Internal.Types.ProgressParams@@ -566,10 +569,10 @@   RegistrationOptions Method_WorkspaceDidCreateFiles = Language.LSP.Protocol.Internal.Types.FileOperationRegistrationOptions.FileOperationRegistrationOptions   RegistrationOptions Method_WorkspaceDidRenameFiles = Language.LSP.Protocol.Internal.Types.FileOperationRegistrationOptions.FileOperationRegistrationOptions   RegistrationOptions Method_WorkspaceDidDeleteFiles = Language.LSP.Protocol.Internal.Types.FileOperationRegistrationOptions.FileOperationRegistrationOptions-  RegistrationOptions Method_NotebookDocumentDidOpen = Maybe Data.Void.Void-  RegistrationOptions Method_NotebookDocumentDidChange = Maybe Data.Void.Void-  RegistrationOptions Method_NotebookDocumentDidSave = Maybe Data.Void.Void-  RegistrationOptions Method_NotebookDocumentDidClose = Maybe Data.Void.Void+  RegistrationOptions Method_NotebookDocumentDidOpen = Language.LSP.Protocol.Internal.Types.NotebookDocumentSyncRegistrationOptions.NotebookDocumentSyncRegistrationOptions+  RegistrationOptions Method_NotebookDocumentDidChange = Language.LSP.Protocol.Internal.Types.NotebookDocumentSyncRegistrationOptions.NotebookDocumentSyncRegistrationOptions+  RegistrationOptions Method_NotebookDocumentDidSave = Language.LSP.Protocol.Internal.Types.NotebookDocumentSyncRegistrationOptions.NotebookDocumentSyncRegistrationOptions+  RegistrationOptions Method_NotebookDocumentDidClose = Language.LSP.Protocol.Internal.Types.NotebookDocumentSyncRegistrationOptions.NotebookDocumentSyncRegistrationOptions   RegistrationOptions Method_Initialized = Maybe Data.Void.Void   RegistrationOptions Method_Exit = Maybe Data.Void.Void   RegistrationOptions Method_WorkspaceDidChangeConfiguration = Language.LSP.Protocol.Internal.Types.DidChangeConfigurationRegistrationOptions.DidChangeConfigurationRegistrationOptions
generated/Language/LSP/Protocol/Internal/Types.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -21,10 +23,32 @@ import Language.LSP.Protocol.Internal.Types.CancelParams as Export import Language.LSP.Protocol.Internal.Types.ChangeAnnotation as Export import Language.LSP.Protocol.Internal.Types.ChangeAnnotationIdentifier as Export+import Language.LSP.Protocol.Internal.Types.ChangeAnnotationsSupportOptions as Export import Language.LSP.Protocol.Internal.Types.ClientCapabilities as Export+import Language.LSP.Protocol.Internal.Types.ClientCodeActionKindOptions as Export+import Language.LSP.Protocol.Internal.Types.ClientCodeActionLiteralOptions as Export+import Language.LSP.Protocol.Internal.Types.ClientCodeActionResolveOptions as Export+import Language.LSP.Protocol.Internal.Types.ClientCompletionItemInsertTextModeOptions as Export+import Language.LSP.Protocol.Internal.Types.ClientCompletionItemOptions as Export+import Language.LSP.Protocol.Internal.Types.ClientCompletionItemOptionsKind as Export+import Language.LSP.Protocol.Internal.Types.ClientCompletionItemResolveOptions as Export+import Language.LSP.Protocol.Internal.Types.ClientDiagnosticsTagOptions as Export+import Language.LSP.Protocol.Internal.Types.ClientFoldingRangeKindOptions as Export+import Language.LSP.Protocol.Internal.Types.ClientFoldingRangeOptions as Export+import Language.LSP.Protocol.Internal.Types.ClientInfo as Export+import Language.LSP.Protocol.Internal.Types.ClientInlayHintResolveOptions as Export+import Language.LSP.Protocol.Internal.Types.ClientSemanticTokensRequestFullDelta as Export+import Language.LSP.Protocol.Internal.Types.ClientSemanticTokensRequestOptions as Export+import Language.LSP.Protocol.Internal.Types.ClientShowMessageActionItemOptions as Export+import Language.LSP.Protocol.Internal.Types.ClientSignatureInformationOptions as Export+import Language.LSP.Protocol.Internal.Types.ClientSignatureParameterInformationOptions as Export+import Language.LSP.Protocol.Internal.Types.ClientSymbolKindOptions as Export+import Language.LSP.Protocol.Internal.Types.ClientSymbolResolveOptions as Export+import Language.LSP.Protocol.Internal.Types.ClientSymbolTagOptions as Export import Language.LSP.Protocol.Internal.Types.CodeAction as Export import Language.LSP.Protocol.Internal.Types.CodeActionClientCapabilities as Export import Language.LSP.Protocol.Internal.Types.CodeActionContext as Export+import Language.LSP.Protocol.Internal.Types.CodeActionDisabled as Export import Language.LSP.Protocol.Internal.Types.CodeActionKind as Export import Language.LSP.Protocol.Internal.Types.CodeActionOptions as Export import Language.LSP.Protocol.Internal.Types.CodeActionParams as Export@@ -45,10 +69,13 @@ import Language.LSP.Protocol.Internal.Types.CompletionClientCapabilities as Export import Language.LSP.Protocol.Internal.Types.CompletionContext as Export import Language.LSP.Protocol.Internal.Types.CompletionItem as Export+import Language.LSP.Protocol.Internal.Types.CompletionItemDefaults as Export import Language.LSP.Protocol.Internal.Types.CompletionItemKind as Export import Language.LSP.Protocol.Internal.Types.CompletionItemLabelDetails as Export import Language.LSP.Protocol.Internal.Types.CompletionItemTag as Export+import Language.LSP.Protocol.Internal.Types.CompletionItemTagOptions as Export import Language.LSP.Protocol.Internal.Types.CompletionList as Export+import Language.LSP.Protocol.Internal.Types.CompletionListCapabilities as Export import Language.LSP.Protocol.Internal.Types.CompletionOptions as Export import Language.LSP.Protocol.Internal.Types.CompletionParams as Export import Language.LSP.Protocol.Internal.Types.CompletionRegistrationOptions as Export@@ -135,6 +162,7 @@ import Language.LSP.Protocol.Internal.Types.DocumentSymbolOptions as Export import Language.LSP.Protocol.Internal.Types.DocumentSymbolParams as Export import Language.LSP.Protocol.Internal.Types.DocumentSymbolRegistrationOptions as Export+import Language.LSP.Protocol.Internal.Types.EditRangeWithInsertReplace as Export import Language.LSP.Protocol.Internal.Types.ErrorCodes as Export import Language.LSP.Protocol.Internal.Types.ExecuteCommandClientCapabilities as Export import Language.LSP.Protocol.Internal.Types.ExecuteCommandOptions as Export@@ -200,6 +228,7 @@ import Language.LSP.Protocol.Internal.Types.InsertTextFormat as Export import Language.LSP.Protocol.Internal.Types.InsertTextMode as Export import Language.LSP.Protocol.Internal.Types.LSPErrorCodes as Export+import Language.LSP.Protocol.Internal.Types.LanguageKind as Export import Language.LSP.Protocol.Internal.Types.LinkedEditingRangeClientCapabilities as Export import Language.LSP.Protocol.Internal.Types.LinkedEditingRangeOptions as Export import Language.LSP.Protocol.Internal.Types.LinkedEditingRangeParams as Export@@ -207,10 +236,12 @@ import Language.LSP.Protocol.Internal.Types.LinkedEditingRanges as Export import Language.LSP.Protocol.Internal.Types.Location as Export import Language.LSP.Protocol.Internal.Types.LocationLink as Export+import Language.LSP.Protocol.Internal.Types.LocationUriOnly as Export import Language.LSP.Protocol.Internal.Types.LogMessageParams as Export import Language.LSP.Protocol.Internal.Types.LogTraceParams as Export import Language.LSP.Protocol.Internal.Types.MarkdownClientCapabilities as Export import Language.LSP.Protocol.Internal.Types.MarkedString as Export+import Language.LSP.Protocol.Internal.Types.MarkedStringWithLanguage as Export import Language.LSP.Protocol.Internal.Types.MarkupContent as Export import Language.LSP.Protocol.Internal.Types.MarkupKind as Export import Language.LSP.Protocol.Internal.Types.MessageActionItem as Export@@ -224,11 +255,20 @@ import Language.LSP.Protocol.Internal.Types.NotebookCell as Export import Language.LSP.Protocol.Internal.Types.NotebookCellArrayChange as Export import Language.LSP.Protocol.Internal.Types.NotebookCellKind as Export+import Language.LSP.Protocol.Internal.Types.NotebookCellLanguage as Export import Language.LSP.Protocol.Internal.Types.NotebookCellTextDocumentFilter as Export import Language.LSP.Protocol.Internal.Types.NotebookDocument as Export+import Language.LSP.Protocol.Internal.Types.NotebookDocumentCellChangeStructure as Export+import Language.LSP.Protocol.Internal.Types.NotebookDocumentCellChanges as Export+import Language.LSP.Protocol.Internal.Types.NotebookDocumentCellContentChanges as Export import Language.LSP.Protocol.Internal.Types.NotebookDocumentChangeEvent as Export import Language.LSP.Protocol.Internal.Types.NotebookDocumentClientCapabilities as Export import Language.LSP.Protocol.Internal.Types.NotebookDocumentFilter as Export+import Language.LSP.Protocol.Internal.Types.NotebookDocumentFilterNotebookType as Export+import Language.LSP.Protocol.Internal.Types.NotebookDocumentFilterPattern as Export+import Language.LSP.Protocol.Internal.Types.NotebookDocumentFilterScheme as Export+import Language.LSP.Protocol.Internal.Types.NotebookDocumentFilterWithCells as Export+import Language.LSP.Protocol.Internal.Types.NotebookDocumentFilterWithNotebook as Export import Language.LSP.Protocol.Internal.Types.NotebookDocumentIdentifier as Export import Language.LSP.Protocol.Internal.Types.NotebookDocumentSyncClientCapabilities as Export import Language.LSP.Protocol.Internal.Types.NotebookDocumentSyncOptions as Export@@ -239,7 +279,9 @@ import Language.LSP.Protocol.Internal.Types.Pattern as Export import Language.LSP.Protocol.Internal.Types.Position as Export import Language.LSP.Protocol.Internal.Types.PositionEncodingKind as Export+import Language.LSP.Protocol.Internal.Types.PrepareRenameDefaultBehavior as Export import Language.LSP.Protocol.Internal.Types.PrepareRenameParams as Export+import Language.LSP.Protocol.Internal.Types.PrepareRenamePlaceholder as Export import Language.LSP.Protocol.Internal.Types.PrepareRenameResult as Export import Language.LSP.Protocol.Internal.Types.PrepareSupportDefaultBehavior as Export import Language.LSP.Protocol.Internal.Types.PreviousResultId as Export@@ -255,6 +297,7 @@ import Language.LSP.Protocol.Internal.Types.ReferenceRegistrationOptions as Export import Language.LSP.Protocol.Internal.Types.Registration as Export import Language.LSP.Protocol.Internal.Types.RegistrationParams as Export+import Language.LSP.Protocol.Internal.Types.RegularExpressionEngineKind as Export import Language.LSP.Protocol.Internal.Types.RegularExpressionsClientCapabilities as Export import Language.LSP.Protocol.Internal.Types.RelatedFullDocumentDiagnosticReport as Export import Language.LSP.Protocol.Internal.Types.RelatedUnchangedDocumentDiagnosticReport as Export@@ -282,6 +325,7 @@ import Language.LSP.Protocol.Internal.Types.SemanticTokensDeltaParams as Export import Language.LSP.Protocol.Internal.Types.SemanticTokensDeltaPartialResult as Export import Language.LSP.Protocol.Internal.Types.SemanticTokensEdit as Export+import Language.LSP.Protocol.Internal.Types.SemanticTokensFullDelta as Export import Language.LSP.Protocol.Internal.Types.SemanticTokensLegend as Export import Language.LSP.Protocol.Internal.Types.SemanticTokensOptions as Export import Language.LSP.Protocol.Internal.Types.SemanticTokensParams as Export@@ -290,6 +334,8 @@ import Language.LSP.Protocol.Internal.Types.SemanticTokensRegistrationOptions as Export import Language.LSP.Protocol.Internal.Types.SemanticTokensWorkspaceClientCapabilities as Export import Language.LSP.Protocol.Internal.Types.ServerCapabilities as Export+import Language.LSP.Protocol.Internal.Types.ServerCompletionItemOptions as Export+import Language.LSP.Protocol.Internal.Types.ServerInfo as Export import Language.LSP.Protocol.Internal.Types.SetTraceParams as Export import Language.LSP.Protocol.Internal.Types.ShowDocumentClientCapabilities as Export import Language.LSP.Protocol.Internal.Types.ShowDocumentParams as Export@@ -305,6 +351,7 @@ import Language.LSP.Protocol.Internal.Types.SignatureHelpRegistrationOptions as Export import Language.LSP.Protocol.Internal.Types.SignatureHelpTriggerKind as Export import Language.LSP.Protocol.Internal.Types.SignatureInformation as Export+import Language.LSP.Protocol.Internal.Types.StaleRequestSupportOptions as Export import Language.LSP.Protocol.Internal.Types.StaticRegistrationOptions as Export import Language.LSP.Protocol.Internal.Types.SymbolInformation as Export import Language.LSP.Protocol.Internal.Types.SymbolKind as Export@@ -312,8 +359,13 @@ import Language.LSP.Protocol.Internal.Types.TextDocumentChangeRegistrationOptions as Export import Language.LSP.Protocol.Internal.Types.TextDocumentClientCapabilities as Export import Language.LSP.Protocol.Internal.Types.TextDocumentContentChangeEvent as Export+import Language.LSP.Protocol.Internal.Types.TextDocumentContentChangePartial as Export+import Language.LSP.Protocol.Internal.Types.TextDocumentContentChangeWholeDocument as Export import Language.LSP.Protocol.Internal.Types.TextDocumentEdit as Export import Language.LSP.Protocol.Internal.Types.TextDocumentFilter as Export+import Language.LSP.Protocol.Internal.Types.TextDocumentFilterLanguage as Export+import Language.LSP.Protocol.Internal.Types.TextDocumentFilterPattern as Export+import Language.LSP.Protocol.Internal.Types.TextDocumentFilterScheme as Export import Language.LSP.Protocol.Internal.Types.TextDocumentIdentifier as Export import Language.LSP.Protocol.Internal.Types.TextDocumentItem as Export import Language.LSP.Protocol.Internal.Types.TextDocumentPositionParams as Export@@ -325,7 +377,7 @@ import Language.LSP.Protocol.Internal.Types.TextDocumentSyncOptions as Export import Language.LSP.Protocol.Internal.Types.TextEdit as Export import Language.LSP.Protocol.Internal.Types.TokenFormat as Export-import Language.LSP.Protocol.Internal.Types.TraceValues as Export+import Language.LSP.Protocol.Internal.Types.TraceValue as Export import Language.LSP.Protocol.Internal.Types.TypeDefinitionClientCapabilities as Export import Language.LSP.Protocol.Internal.Types.TypeDefinitionOptions as Export import Language.LSP.Protocol.Internal.Types.TypeDefinitionParams as Export@@ -366,6 +418,7 @@ import Language.LSP.Protocol.Internal.Types.WorkspaceFoldersInitializeParams as Export import Language.LSP.Protocol.Internal.Types.WorkspaceFoldersServerCapabilities as Export import Language.LSP.Protocol.Internal.Types.WorkspaceFullDocumentDiagnosticReport as Export+import Language.LSP.Protocol.Internal.Types.WorkspaceOptions as Export import Language.LSP.Protocol.Internal.Types.WorkspaceSymbol as Export import Language.LSP.Protocol.Internal.Types.WorkspaceSymbolClientCapabilities as Export import Language.LSP.Protocol.Internal.Types.WorkspaceSymbolOptions as Export
generated/Language/LSP/Protocol/Internal/Types/AnnotatedTextEdit.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/ApplyWorkspaceEditParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -18,7 +20,7 @@ import qualified Language.LSP.Protocol.Types.Common  {-|-The parameters passed via a apply workspace edit request.+The parameters passed via an apply workspace edit request. -} data ApplyWorkspaceEditParams = ApplyWorkspaceEditParams    { {-|@@ -41,4 +43,4 @@     ,["edit" Aeson..= arg1]]  instance Aeson.FromJSON ApplyWorkspaceEditParams where-  parseJSON = Aeson.withObject "ApplyWorkspaceEditParams" $ \arg -> ApplyWorkspaceEditParams <$> arg Aeson..:! "label" <*> arg Aeson..: "edit"+  parseJSON = Aeson.withObject "ApplyWorkspaceEditParams" $ \arg -> ApplyWorkspaceEditParams <$> arg Language.LSP.Protocol.Types.Common..:!? "label" <*> arg Aeson..: "edit"
generated/Language/LSP/Protocol/Internal/Types/ApplyWorkspaceEditResult.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -49,4 +51,4 @@     ,"failedChange" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON ApplyWorkspaceEditResult where-  parseJSON = Aeson.withObject "ApplyWorkspaceEditResult" $ \arg -> ApplyWorkspaceEditResult <$> arg Aeson..: "applied" <*> arg Aeson..:! "failureReason" <*> arg Aeson..:! "failedChange"+  parseJSON = Aeson.withObject "ApplyWorkspaceEditResult" $ \arg -> ApplyWorkspaceEditResult <$> arg Aeson..: "applied" <*> arg Language.LSP.Protocol.Types.Common..:!? "failureReason" <*> arg Language.LSP.Protocol.Types.Common..:!? "failedChange"
generated/Language/LSP/Protocol/Internal/Types/BaseSymbolInformation.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -55,4 +57,4 @@     ,"containerName" Language.LSP.Protocol.Types.Common..=? arg3]  instance Aeson.FromJSON BaseSymbolInformation where-  parseJSON = Aeson.withObject "BaseSymbolInformation" $ \arg -> BaseSymbolInformation <$> arg Aeson..: "name" <*> arg Aeson..: "kind" <*> arg Aeson..:! "tags" <*> arg Aeson..:! "containerName"+  parseJSON = Aeson.withObject "BaseSymbolInformation" $ \arg -> BaseSymbolInformation <$> arg Aeson..: "name" <*> arg Aeson..: "kind" <*> arg Language.LSP.Protocol.Types.Common..:!? "tags" <*> arg Language.LSP.Protocol.Types.Common..:!? "containerName"
generated/Language/LSP/Protocol/Internal/Types/CallHierarchyClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -34,4 +36,4 @@   toJSON (CallHierarchyClientCapabilities arg0) = Aeson.object $ concat $  ["dynamicRegistration" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON CallHierarchyClientCapabilities where-  parseJSON = Aeson.withObject "CallHierarchyClientCapabilities" $ \arg -> CallHierarchyClientCapabilities <$> arg Aeson..:! "dynamicRegistration"+  parseJSON = Aeson.withObject "CallHierarchyClientCapabilities" $ \arg -> CallHierarchyClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "dynamicRegistration"
generated/Language/LSP/Protocol/Internal/Types/CallHierarchyIncomingCall.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/CallHierarchyIncomingCallsParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -47,4 +49,4 @@     ,["item" Aeson..= arg2]]  instance Aeson.FromJSON CallHierarchyIncomingCallsParams where-  parseJSON = Aeson.withObject "CallHierarchyIncomingCallsParams" $ \arg -> CallHierarchyIncomingCallsParams <$> arg Aeson..:! "workDoneToken" <*> arg Aeson..:! "partialResultToken" <*> arg Aeson..: "item"+  parseJSON = Aeson.withObject "CallHierarchyIncomingCallsParams" $ \arg -> CallHierarchyIncomingCallsParams <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken" <*> arg Language.LSP.Protocol.Types.Common..:!? "partialResultToken" <*> arg Aeson..: "item"
generated/Language/LSP/Protocol/Internal/Types/CallHierarchyItem.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -78,4 +80,4 @@     ,"data" Language.LSP.Protocol.Types.Common..=? arg7]  instance Aeson.FromJSON CallHierarchyItem where-  parseJSON = Aeson.withObject "CallHierarchyItem" $ \arg -> CallHierarchyItem <$> arg Aeson..: "name" <*> arg Aeson..: "kind" <*> arg Aeson..:! "tags" <*> arg Aeson..:! "detail" <*> arg Aeson..: "uri" <*> arg Aeson..: "range" <*> arg Aeson..: "selectionRange" <*> arg Aeson..:! "data"+  parseJSON = Aeson.withObject "CallHierarchyItem" $ \arg -> CallHierarchyItem <$> arg Aeson..: "name" <*> arg Aeson..: "kind" <*> arg Language.LSP.Protocol.Types.Common..:!? "tags" <*> arg Language.LSP.Protocol.Types.Common..:!? "detail" <*> arg Aeson..: "uri" <*> arg Aeson..: "range" <*> arg Aeson..: "selectionRange" <*> arg Language.LSP.Protocol.Types.Common..:!? "data"
generated/Language/LSP/Protocol/Internal/Types/CallHierarchyOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -34,4 +36,4 @@   toJSON (CallHierarchyOptions arg0) = Aeson.object $ concat $  ["workDoneProgress" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON CallHierarchyOptions where-  parseJSON = Aeson.withObject "CallHierarchyOptions" $ \arg -> CallHierarchyOptions <$> arg Aeson..:! "workDoneProgress"+  parseJSON = Aeson.withObject "CallHierarchyOptions" $ \arg -> CallHierarchyOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress"
generated/Language/LSP/Protocol/Internal/Types/CallHierarchyOutgoingCall.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/CallHierarchyOutgoingCallsParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -47,4 +49,4 @@     ,["item" Aeson..= arg2]]  instance Aeson.FromJSON CallHierarchyOutgoingCallsParams where-  parseJSON = Aeson.withObject "CallHierarchyOutgoingCallsParams" $ \arg -> CallHierarchyOutgoingCallsParams <$> arg Aeson..:! "workDoneToken" <*> arg Aeson..:! "partialResultToken" <*> arg Aeson..: "item"+  parseJSON = Aeson.withObject "CallHierarchyOutgoingCallsParams" $ \arg -> CallHierarchyOutgoingCallsParams <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken" <*> arg Language.LSP.Protocol.Types.Common..:!? "partialResultToken" <*> arg Aeson..: "item"
generated/Language/LSP/Protocol/Internal/Types/CallHierarchyPrepareParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -47,4 +49,4 @@     ,"workDoneToken" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON CallHierarchyPrepareParams where-  parseJSON = Aeson.withObject "CallHierarchyPrepareParams" $ \arg -> CallHierarchyPrepareParams <$> arg Aeson..: "textDocument" <*> arg Aeson..: "position" <*> arg Aeson..:! "workDoneToken"+  parseJSON = Aeson.withObject "CallHierarchyPrepareParams" $ \arg -> CallHierarchyPrepareParams <$> arg Aeson..: "textDocument" <*> arg Aeson..: "position" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken"
generated/Language/LSP/Protocol/Internal/Types/CallHierarchyRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -48,4 +50,4 @@     ,"id" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON CallHierarchyRegistrationOptions where-  parseJSON = Aeson.withObject "CallHierarchyRegistrationOptions" $ \arg -> CallHierarchyRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Aeson..:! "workDoneProgress" <*> arg Aeson..:! "id"+  parseJSON = Aeson.withObject "CallHierarchyRegistrationOptions" $ \arg -> CallHierarchyRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress" <*> arg Language.LSP.Protocol.Types.Common..:!? "id"
generated/Language/LSP/Protocol/Internal/Types/CancelParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/ChangeAnnotation.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -48,4 +50,4 @@     ,"description" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON ChangeAnnotation where-  parseJSON = Aeson.withObject "ChangeAnnotation" $ \arg -> ChangeAnnotation <$> arg Aeson..: "label" <*> arg Aeson..:! "needsConfirmation" <*> arg Aeson..:! "description"+  parseJSON = Aeson.withObject "ChangeAnnotation" $ \arg -> ChangeAnnotation <$> arg Aeson..: "label" <*> arg Language.LSP.Protocol.Types.Common..:!? "needsConfirmation" <*> arg Language.LSP.Protocol.Types.Common..:!? "description"
generated/Language/LSP/Protocol/Internal/Types/ChangeAnnotationIdentifier.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
+ generated/Language/LSP/Protocol/Internal/Types/ChangeAnnotationsSupportOptions.hs view
@@ -0,0 +1,40 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.ChangeAnnotationsSupportOptions where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Language.LSP.Protocol.Types.Common++{-|+@since 3.18.0+@proposed+-}+data ChangeAnnotationsSupportOptions = ChangeAnnotationsSupportOptions +  { {-|+  Whether the client groups edits with equal labels into tree nodes,+  for instance all edits labelled with "Changes in Strings" would+  be a tree node.+  -}+  _groupsOnLabel :: (Maybe Bool)+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON ChangeAnnotationsSupportOptions)++instance Aeson.ToJSON ChangeAnnotationsSupportOptions where+  toJSON (ChangeAnnotationsSupportOptions arg0) = Aeson.object $ concat $  ["groupsOnLabel" Language.LSP.Protocol.Types.Common..=? arg0]++instance Aeson.FromJSON ChangeAnnotationsSupportOptions where+  parseJSON = Aeson.withObject "ChangeAnnotationsSupportOptions" $ \arg -> ChangeAnnotationsSupportOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "groupsOnLabel"
generated/Language/LSP/Protocol/Internal/Types/ClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -67,4 +69,4 @@     ,"experimental" Language.LSP.Protocol.Types.Common..=? arg5]  instance Aeson.FromJSON ClientCapabilities where-  parseJSON = Aeson.withObject "ClientCapabilities" $ \arg -> ClientCapabilities <$> arg Aeson..:! "workspace" <*> arg Aeson..:! "textDocument" <*> arg Aeson..:! "notebookDocument" <*> arg Aeson..:! "window" <*> arg Aeson..:! "general" <*> arg Aeson..:! "experimental"+  parseJSON = Aeson.withObject "ClientCapabilities" $ \arg -> ClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "workspace" <*> arg Language.LSP.Protocol.Types.Common..:!? "textDocument" <*> arg Language.LSP.Protocol.Types.Common..:!? "notebookDocument" <*> arg Language.LSP.Protocol.Types.Common..:!? "window" <*> arg Language.LSP.Protocol.Types.Common..:!? "general" <*> arg Language.LSP.Protocol.Types.Common..:!? "experimental"
+ generated/Language/LSP/Protocol/Internal/Types/ClientCodeActionKindOptions.hs view
@@ -0,0 +1,42 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.ClientCodeActionKindOptions where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Language.LSP.Protocol.Internal.Types.CodeActionKind+import qualified Language.LSP.Protocol.Types.Common++{-|+@since 3.18.0+@proposed+-}+data ClientCodeActionKindOptions = ClientCodeActionKindOptions +  { {-|+  The code action kind values the client supports. When this+  property exists the client also guarantees that it will+  handle values outside its set gracefully and falls back+  to a default value when unknown.+  -}+  _valueSet :: [Language.LSP.Protocol.Internal.Types.CodeActionKind.CodeActionKind]+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON ClientCodeActionKindOptions)++instance Aeson.ToJSON ClientCodeActionKindOptions where+  toJSON (ClientCodeActionKindOptions arg0) = Aeson.object $ concat $  [["valueSet" Aeson..= arg0]]++instance Aeson.FromJSON ClientCodeActionKindOptions where+  parseJSON = Aeson.withObject "ClientCodeActionKindOptions" $ \arg -> ClientCodeActionKindOptions <$> arg Aeson..: "valueSet"
+ generated/Language/LSP/Protocol/Internal/Types/ClientCodeActionLiteralOptions.hs view
@@ -0,0 +1,40 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.ClientCodeActionLiteralOptions where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Language.LSP.Protocol.Internal.Types.ClientCodeActionKindOptions+import qualified Language.LSP.Protocol.Types.Common++{-|+@since 3.18.0+@proposed+-}+data ClientCodeActionLiteralOptions = ClientCodeActionLiteralOptions +  { {-|+  The code action kind is support with the following value+  set.+  -}+  _codeActionKind :: Language.LSP.Protocol.Internal.Types.ClientCodeActionKindOptions.ClientCodeActionKindOptions+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON ClientCodeActionLiteralOptions)++instance Aeson.ToJSON ClientCodeActionLiteralOptions where+  toJSON (ClientCodeActionLiteralOptions arg0) = Aeson.object $ concat $  [["codeActionKind" Aeson..= arg0]]++instance Aeson.FromJSON ClientCodeActionLiteralOptions where+  parseJSON = Aeson.withObject "ClientCodeActionLiteralOptions" $ \arg -> ClientCodeActionLiteralOptions <$> arg Aeson..: "codeActionKind"
+ generated/Language/LSP/Protocol/Internal/Types/ClientCodeActionResolveOptions.hs view
@@ -0,0 +1,39 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.ClientCodeActionResolveOptions where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Data.Text+import qualified Language.LSP.Protocol.Types.Common++{-|+@since 3.18.0+@proposed+-}+data ClientCodeActionResolveOptions = ClientCodeActionResolveOptions +  { {-|+  The properties that a client can resolve lazily.+  -}+  _properties :: [Data.Text.Text]+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON ClientCodeActionResolveOptions)++instance Aeson.ToJSON ClientCodeActionResolveOptions where+  toJSON (ClientCodeActionResolveOptions arg0) = Aeson.object $ concat $  [["properties" Aeson..= arg0]]++instance Aeson.FromJSON ClientCodeActionResolveOptions where+  parseJSON = Aeson.withObject "ClientCodeActionResolveOptions" $ \arg -> ClientCodeActionResolveOptions <$> arg Aeson..: "properties"
+ generated/Language/LSP/Protocol/Internal/Types/ClientCompletionItemInsertTextModeOptions.hs view
@@ -0,0 +1,39 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.ClientCompletionItemInsertTextModeOptions where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Language.LSP.Protocol.Internal.Types.InsertTextMode+import qualified Language.LSP.Protocol.Types.Common++{-|+@since 3.18.0+@proposed+-}+data ClientCompletionItemInsertTextModeOptions = ClientCompletionItemInsertTextModeOptions +  { {-|++  -}+  _valueSet :: [Language.LSP.Protocol.Internal.Types.InsertTextMode.InsertTextMode]+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON ClientCompletionItemInsertTextModeOptions)++instance Aeson.ToJSON ClientCompletionItemInsertTextModeOptions where+  toJSON (ClientCompletionItemInsertTextModeOptions arg0) = Aeson.object $ concat $  [["valueSet" Aeson..= arg0]]++instance Aeson.FromJSON ClientCompletionItemInsertTextModeOptions where+  parseJSON = Aeson.withObject "ClientCompletionItemInsertTextModeOptions" $ \arg -> ClientCompletionItemInsertTextModeOptions <$> arg Aeson..: "valueSet"
+ generated/Language/LSP/Protocol/Internal/Types/ClientCompletionItemOptions.hs view
@@ -0,0 +1,112 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.ClientCompletionItemOptions where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Language.LSP.Protocol.Internal.Types.ClientCompletionItemInsertTextModeOptions+import qualified Language.LSP.Protocol.Internal.Types.ClientCompletionItemResolveOptions+import qualified Language.LSP.Protocol.Internal.Types.CompletionItemTagOptions+import qualified Language.LSP.Protocol.Internal.Types.MarkupKind+import qualified Language.LSP.Protocol.Types.Common++{-|+@since 3.18.0+@proposed+-}+data ClientCompletionItemOptions = ClientCompletionItemOptions +  { {-|+  Client supports snippets as insert text.++  A snippet can define tab stops and placeholders with `$1`, `$2`+  and `${3:foo}`. `$0` defines the final tab stop, it defaults to+  the end of the snippet. Placeholders with equal identifiers are linked,+  that is typing in one will update others too.+  -}+  _snippetSupport :: (Maybe Bool)+  , {-|+  Client supports commit characters on a completion item.+  -}+  _commitCharactersSupport :: (Maybe Bool)+  , {-|+  Client supports the following content formats for the documentation+  property. The order describes the preferred format of the client.+  -}+  _documentationFormat :: (Maybe [Language.LSP.Protocol.Internal.Types.MarkupKind.MarkupKind])+  , {-|+  Client supports the deprecated property on a completion item.+  -}+  _deprecatedSupport :: (Maybe Bool)+  , {-|+  Client supports the preselect property on a completion item.+  -}+  _preselectSupport :: (Maybe Bool)+  , {-|+  Client supports the tag property on a completion item. Clients supporting+  tags have to handle unknown tags gracefully. Clients especially need to+  preserve unknown tags when sending a completion item back to the server in+  a resolve call.++  @since 3.15.0+  -}+  _tagSupport :: (Maybe Language.LSP.Protocol.Internal.Types.CompletionItemTagOptions.CompletionItemTagOptions)+  , {-|+  Client support insert replace edit to control different behavior if a+  completion item is inserted in the text or should replace text.++  @since 3.16.0+  -}+  _insertReplaceSupport :: (Maybe Bool)+  , {-|+  Indicates which properties a client can resolve lazily on a completion+  item. Before version 3.16.0 only the predefined properties `documentation`+  and `details` could be resolved lazily.++  @since 3.16.0+  -}+  _resolveSupport :: (Maybe Language.LSP.Protocol.Internal.Types.ClientCompletionItemResolveOptions.ClientCompletionItemResolveOptions)+  , {-|+  The client supports the `insertTextMode` property on+  a completion item to override the whitespace handling mode+  as defined by the client (see `insertTextMode`).++  @since 3.16.0+  -}+  _insertTextModeSupport :: (Maybe Language.LSP.Protocol.Internal.Types.ClientCompletionItemInsertTextModeOptions.ClientCompletionItemInsertTextModeOptions)+  , {-|+  The client has support for completion item label+  details (see also `CompletionItemLabelDetails`).++  @since 3.17.0+  -}+  _labelDetailsSupport :: (Maybe Bool)+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON ClientCompletionItemOptions)++instance Aeson.ToJSON ClientCompletionItemOptions where+  toJSON (ClientCompletionItemOptions arg0 arg1 arg2 arg3 arg4 arg5 arg6 arg7 arg8 arg9) = Aeson.object $ concat $  ["snippetSupport" Language.LSP.Protocol.Types.Common..=? arg0+    ,"commitCharactersSupport" Language.LSP.Protocol.Types.Common..=? arg1+    ,"documentationFormat" Language.LSP.Protocol.Types.Common..=? arg2+    ,"deprecatedSupport" Language.LSP.Protocol.Types.Common..=? arg3+    ,"preselectSupport" Language.LSP.Protocol.Types.Common..=? arg4+    ,"tagSupport" Language.LSP.Protocol.Types.Common..=? arg5+    ,"insertReplaceSupport" Language.LSP.Protocol.Types.Common..=? arg6+    ,"resolveSupport" Language.LSP.Protocol.Types.Common..=? arg7+    ,"insertTextModeSupport" Language.LSP.Protocol.Types.Common..=? arg8+    ,"labelDetailsSupport" Language.LSP.Protocol.Types.Common..=? arg9]++instance Aeson.FromJSON ClientCompletionItemOptions where+  parseJSON = Aeson.withObject "ClientCompletionItemOptions" $ \arg -> ClientCompletionItemOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "snippetSupport" <*> arg Language.LSP.Protocol.Types.Common..:!? "commitCharactersSupport" <*> arg Language.LSP.Protocol.Types.Common..:!? "documentationFormat" <*> arg Language.LSP.Protocol.Types.Common..:!? "deprecatedSupport" <*> arg Language.LSP.Protocol.Types.Common..:!? "preselectSupport" <*> arg Language.LSP.Protocol.Types.Common..:!? "tagSupport" <*> arg Language.LSP.Protocol.Types.Common..:!? "insertReplaceSupport" <*> arg Language.LSP.Protocol.Types.Common..:!? "resolveSupport" <*> arg Language.LSP.Protocol.Types.Common..:!? "insertTextModeSupport" <*> arg Language.LSP.Protocol.Types.Common..:!? "labelDetailsSupport"
+ generated/Language/LSP/Protocol/Internal/Types/ClientCompletionItemOptionsKind.hs view
@@ -0,0 +1,46 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.ClientCompletionItemOptionsKind where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Language.LSP.Protocol.Internal.Types.CompletionItemKind+import qualified Language.LSP.Protocol.Types.Common++{-|+@since 3.18.0+@proposed+-}+data ClientCompletionItemOptionsKind = ClientCompletionItemOptionsKind +  { {-|+  The completion item kind values the client supports. When this+  property exists the client also guarantees that it will+  handle values outside its set gracefully and falls back+  to a default value when unknown.++  If this property is not present the client only supports+  the completion items kinds from `Text` to `Reference` as defined in+  the initial version of the protocol.+  -}+  _valueSet :: (Maybe [Language.LSP.Protocol.Internal.Types.CompletionItemKind.CompletionItemKind])+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON ClientCompletionItemOptionsKind)++instance Aeson.ToJSON ClientCompletionItemOptionsKind where+  toJSON (ClientCompletionItemOptionsKind arg0) = Aeson.object $ concat $  ["valueSet" Language.LSP.Protocol.Types.Common..=? arg0]++instance Aeson.FromJSON ClientCompletionItemOptionsKind where+  parseJSON = Aeson.withObject "ClientCompletionItemOptionsKind" $ \arg -> ClientCompletionItemOptionsKind <$> arg Language.LSP.Protocol.Types.Common..:!? "valueSet"
+ generated/Language/LSP/Protocol/Internal/Types/ClientCompletionItemResolveOptions.hs view
@@ -0,0 +1,39 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.ClientCompletionItemResolveOptions where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Data.Text+import qualified Language.LSP.Protocol.Types.Common++{-|+@since 3.18.0+@proposed+-}+data ClientCompletionItemResolveOptions = ClientCompletionItemResolveOptions +  { {-|+  The properties that a client can resolve lazily.+  -}+  _properties :: [Data.Text.Text]+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON ClientCompletionItemResolveOptions)++instance Aeson.ToJSON ClientCompletionItemResolveOptions where+  toJSON (ClientCompletionItemResolveOptions arg0) = Aeson.object $ concat $  [["properties" Aeson..= arg0]]++instance Aeson.FromJSON ClientCompletionItemResolveOptions where+  parseJSON = Aeson.withObject "ClientCompletionItemResolveOptions" $ \arg -> ClientCompletionItemResolveOptions <$> arg Aeson..: "properties"
+ generated/Language/LSP/Protocol/Internal/Types/ClientDiagnosticsTagOptions.hs view
@@ -0,0 +1,39 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.ClientDiagnosticsTagOptions where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Language.LSP.Protocol.Internal.Types.DiagnosticTag+import qualified Language.LSP.Protocol.Types.Common++{-|+@since 3.18.0+@proposed+-}+data ClientDiagnosticsTagOptions = ClientDiagnosticsTagOptions +  { {-|+  The tags supported by the client.+  -}+  _valueSet :: [Language.LSP.Protocol.Internal.Types.DiagnosticTag.DiagnosticTag]+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON ClientDiagnosticsTagOptions)++instance Aeson.ToJSON ClientDiagnosticsTagOptions where+  toJSON (ClientDiagnosticsTagOptions arg0) = Aeson.object $ concat $  [["valueSet" Aeson..= arg0]]++instance Aeson.FromJSON ClientDiagnosticsTagOptions where+  parseJSON = Aeson.withObject "ClientDiagnosticsTagOptions" $ \arg -> ClientDiagnosticsTagOptions <$> arg Aeson..: "valueSet"
+ generated/Language/LSP/Protocol/Internal/Types/ClientFoldingRangeKindOptions.hs view
@@ -0,0 +1,42 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.ClientFoldingRangeKindOptions where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Language.LSP.Protocol.Internal.Types.FoldingRangeKind+import qualified Language.LSP.Protocol.Types.Common++{-|+@since 3.18.0+@proposed+-}+data ClientFoldingRangeKindOptions = ClientFoldingRangeKindOptions +  { {-|+  The folding range kind values the client supports. When this+  property exists the client also guarantees that it will+  handle values outside its set gracefully and falls back+  to a default value when unknown.+  -}+  _valueSet :: (Maybe [Language.LSP.Protocol.Internal.Types.FoldingRangeKind.FoldingRangeKind])+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON ClientFoldingRangeKindOptions)++instance Aeson.ToJSON ClientFoldingRangeKindOptions where+  toJSON (ClientFoldingRangeKindOptions arg0) = Aeson.object $ concat $  ["valueSet" Language.LSP.Protocol.Types.Common..=? arg0]++instance Aeson.FromJSON ClientFoldingRangeKindOptions where+  parseJSON = Aeson.withObject "ClientFoldingRangeKindOptions" $ \arg -> ClientFoldingRangeKindOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "valueSet"
+ generated/Language/LSP/Protocol/Internal/Types/ClientFoldingRangeOptions.hs view
@@ -0,0 +1,41 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.ClientFoldingRangeOptions where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Language.LSP.Protocol.Types.Common++{-|+@since 3.18.0+@proposed+-}+data ClientFoldingRangeOptions = ClientFoldingRangeOptions +  { {-|+  If set, the client signals that it supports setting collapsedText on+  folding ranges to display custom labels instead of the default text.++  @since 3.17.0+  -}+  _collapsedText :: (Maybe Bool)+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON ClientFoldingRangeOptions)++instance Aeson.ToJSON ClientFoldingRangeOptions where+  toJSON (ClientFoldingRangeOptions arg0) = Aeson.object $ concat $  ["collapsedText" Language.LSP.Protocol.Types.Common..=? arg0]++instance Aeson.FromJSON ClientFoldingRangeOptions where+  parseJSON = Aeson.withObject "ClientFoldingRangeOptions" $ \arg -> ClientFoldingRangeOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "collapsedText"
+ generated/Language/LSP/Protocol/Internal/Types/ClientInfo.hs view
@@ -0,0 +1,47 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.ClientInfo where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Data.Text+import qualified Language.LSP.Protocol.Types.Common++{-|+Information about the client++@since 3.15.0+@since 3.18.0 ClientInfo type name added.+@proposed+-}+data ClientInfo = ClientInfo +  { {-|+  The name of the client as defined by the client.+  -}+  _name :: Data.Text.Text+  , {-|+  The client's version as defined by the client.+  -}+  _version :: (Maybe Data.Text.Text)+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON ClientInfo)++instance Aeson.ToJSON ClientInfo where+  toJSON (ClientInfo arg0 arg1) = Aeson.object $ concat $  [["name" Aeson..= arg0]+    ,"version" Language.LSP.Protocol.Types.Common..=? arg1]++instance Aeson.FromJSON ClientInfo where+  parseJSON = Aeson.withObject "ClientInfo" $ \arg -> ClientInfo <$> arg Aeson..: "name" <*> arg Language.LSP.Protocol.Types.Common..:!? "version"
+ generated/Language/LSP/Protocol/Internal/Types/ClientInlayHintResolveOptions.hs view
@@ -0,0 +1,39 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.ClientInlayHintResolveOptions where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Data.Text+import qualified Language.LSP.Protocol.Types.Common++{-|+@since 3.18.0+@proposed+-}+data ClientInlayHintResolveOptions = ClientInlayHintResolveOptions +  { {-|+  The properties that a client can resolve lazily.+  -}+  _properties :: [Data.Text.Text]+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON ClientInlayHintResolveOptions)++instance Aeson.ToJSON ClientInlayHintResolveOptions where+  toJSON (ClientInlayHintResolveOptions arg0) = Aeson.object $ concat $  [["properties" Aeson..= arg0]]++instance Aeson.FromJSON ClientInlayHintResolveOptions where+  parseJSON = Aeson.withObject "ClientInlayHintResolveOptions" $ \arg -> ClientInlayHintResolveOptions <$> arg Aeson..: "properties"
+ generated/Language/LSP/Protocol/Internal/Types/ClientSemanticTokensRequestFullDelta.hs view
@@ -0,0 +1,39 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.ClientSemanticTokensRequestFullDelta where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Language.LSP.Protocol.Types.Common++{-|+@since 3.18.0+@proposed+-}+data ClientSemanticTokensRequestFullDelta = ClientSemanticTokensRequestFullDelta +  { {-|+  The client will send the `textDocument/semanticTokens/full/delta` request if+  the server provides a corresponding handler.+  -}+  _delta :: (Maybe Bool)+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON ClientSemanticTokensRequestFullDelta)++instance Aeson.ToJSON ClientSemanticTokensRequestFullDelta where+  toJSON (ClientSemanticTokensRequestFullDelta arg0) = Aeson.object $ concat $  ["delta" Language.LSP.Protocol.Types.Common..=? arg0]++instance Aeson.FromJSON ClientSemanticTokensRequestFullDelta where+  parseJSON = Aeson.withObject "ClientSemanticTokensRequestFullDelta" $ \arg -> ClientSemanticTokensRequestFullDelta <$> arg Language.LSP.Protocol.Types.Common..:!? "delta"
+ generated/Language/LSP/Protocol/Internal/Types/ClientSemanticTokensRequestOptions.hs view
@@ -0,0 +1,47 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.ClientSemanticTokensRequestOptions where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row as Row+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Language.LSP.Protocol.Internal.Types.ClientSemanticTokensRequestFullDelta+import qualified Language.LSP.Protocol.Types.Common++{-|+@since 3.18.0+@proposed+-}+data ClientSemanticTokensRequestOptions = ClientSemanticTokensRequestOptions +  { {-|+  The client will send the `textDocument/semanticTokens/range` request if+  the server provides a corresponding handler.+  -}+  _range :: (Maybe (Bool Language.LSP.Protocol.Types.Common.|? (Row.Rec Row.Empty)))+  , {-|+  The client will send the `textDocument/semanticTokens/full` request if+  the server provides a corresponding handler.+  -}+  _full :: (Maybe (Bool Language.LSP.Protocol.Types.Common.|? Language.LSP.Protocol.Internal.Types.ClientSemanticTokensRequestFullDelta.ClientSemanticTokensRequestFullDelta))+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON ClientSemanticTokensRequestOptions)++instance Aeson.ToJSON ClientSemanticTokensRequestOptions where+  toJSON (ClientSemanticTokensRequestOptions arg0 arg1) = Aeson.object $ concat $  ["range" Language.LSP.Protocol.Types.Common..=? arg0+    ,"full" Language.LSP.Protocol.Types.Common..=? arg1]++instance Aeson.FromJSON ClientSemanticTokensRequestOptions where+  parseJSON = Aeson.withObject "ClientSemanticTokensRequestOptions" $ \arg -> ClientSemanticTokensRequestOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "range" <*> arg Language.LSP.Protocol.Types.Common..:!? "full"
+ generated/Language/LSP/Protocol/Internal/Types/ClientShowMessageActionItemOptions.hs view
@@ -0,0 +1,40 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.ClientShowMessageActionItemOptions where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Language.LSP.Protocol.Types.Common++{-|+@since 3.18.0+@proposed+-}+data ClientShowMessageActionItemOptions = ClientShowMessageActionItemOptions +  { {-|+  Whether the client supports additional attributes which+  are preserved and send back to the server in the+  request's response.+  -}+  _additionalPropertiesSupport :: (Maybe Bool)+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON ClientShowMessageActionItemOptions)++instance Aeson.ToJSON ClientShowMessageActionItemOptions where+  toJSON (ClientShowMessageActionItemOptions arg0) = Aeson.object $ concat $  ["additionalPropertiesSupport" Language.LSP.Protocol.Types.Common..=? arg0]++instance Aeson.FromJSON ClientShowMessageActionItemOptions where+  parseJSON = Aeson.withObject "ClientShowMessageActionItemOptions" $ \arg -> ClientShowMessageActionItemOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "additionalPropertiesSupport"
+ generated/Language/LSP/Protocol/Internal/Types/ClientSignatureInformationOptions.hs view
@@ -0,0 +1,54 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.ClientSignatureInformationOptions where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Language.LSP.Protocol.Internal.Types.ClientSignatureParameterInformationOptions+import qualified Language.LSP.Protocol.Internal.Types.MarkupKind+import qualified Language.LSP.Protocol.Types.Common++{-|+@since 3.18.0+@proposed+-}+data ClientSignatureInformationOptions = ClientSignatureInformationOptions +  { {-|+  Client supports the following content formats for the documentation+  property. The order describes the preferred format of the client.+  -}+  _documentationFormat :: (Maybe [Language.LSP.Protocol.Internal.Types.MarkupKind.MarkupKind])+  , {-|+  Client capabilities specific to parameter information.+  -}+  _parameterInformation :: (Maybe Language.LSP.Protocol.Internal.Types.ClientSignatureParameterInformationOptions.ClientSignatureParameterInformationOptions)+  , {-|+  The client supports the `activeParameter` property on `SignatureInformation`+  literal.++  @since 3.16.0+  -}+  _activeParameterSupport :: (Maybe Bool)+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON ClientSignatureInformationOptions)++instance Aeson.ToJSON ClientSignatureInformationOptions where+  toJSON (ClientSignatureInformationOptions arg0 arg1 arg2) = Aeson.object $ concat $  ["documentationFormat" Language.LSP.Protocol.Types.Common..=? arg0+    ,"parameterInformation" Language.LSP.Protocol.Types.Common..=? arg1+    ,"activeParameterSupport" Language.LSP.Protocol.Types.Common..=? arg2]++instance Aeson.FromJSON ClientSignatureInformationOptions where+  parseJSON = Aeson.withObject "ClientSignatureInformationOptions" $ \arg -> ClientSignatureInformationOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "documentationFormat" <*> arg Language.LSP.Protocol.Types.Common..:!? "parameterInformation" <*> arg Language.LSP.Protocol.Types.Common..:!? "activeParameterSupport"
+ generated/Language/LSP/Protocol/Internal/Types/ClientSignatureParameterInformationOptions.hs view
@@ -0,0 +1,41 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.ClientSignatureParameterInformationOptions where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Language.LSP.Protocol.Types.Common++{-|+@since 3.18.0+@proposed+-}+data ClientSignatureParameterInformationOptions = ClientSignatureParameterInformationOptions +  { {-|+  The client supports processing label offsets instead of a+  simple label string.++  @since 3.14.0+  -}+  _labelOffsetSupport :: (Maybe Bool)+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON ClientSignatureParameterInformationOptions)++instance Aeson.ToJSON ClientSignatureParameterInformationOptions where+  toJSON (ClientSignatureParameterInformationOptions arg0) = Aeson.object $ concat $  ["labelOffsetSupport" Language.LSP.Protocol.Types.Common..=? arg0]++instance Aeson.FromJSON ClientSignatureParameterInformationOptions where+  parseJSON = Aeson.withObject "ClientSignatureParameterInformationOptions" $ \arg -> ClientSignatureParameterInformationOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "labelOffsetSupport"
+ generated/Language/LSP/Protocol/Internal/Types/ClientSymbolKindOptions.hs view
@@ -0,0 +1,46 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.ClientSymbolKindOptions where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Language.LSP.Protocol.Internal.Types.SymbolKind+import qualified Language.LSP.Protocol.Types.Common++{-|+@since 3.18.0+@proposed+-}+data ClientSymbolKindOptions = ClientSymbolKindOptions +  { {-|+  The symbol kind values the client supports. When this+  property exists the client also guarantees that it will+  handle values outside its set gracefully and falls back+  to a default value when unknown.++  If this property is not present the client only supports+  the symbol kinds from `File` to `Array` as defined in+  the initial version of the protocol.+  -}+  _valueSet :: (Maybe [Language.LSP.Protocol.Internal.Types.SymbolKind.SymbolKind])+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON ClientSymbolKindOptions)++instance Aeson.ToJSON ClientSymbolKindOptions where+  toJSON (ClientSymbolKindOptions arg0) = Aeson.object $ concat $  ["valueSet" Language.LSP.Protocol.Types.Common..=? arg0]++instance Aeson.FromJSON ClientSymbolKindOptions where+  parseJSON = Aeson.withObject "ClientSymbolKindOptions" $ \arg -> ClientSymbolKindOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "valueSet"
+ generated/Language/LSP/Protocol/Internal/Types/ClientSymbolResolveOptions.hs view
@@ -0,0 +1,40 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.ClientSymbolResolveOptions where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Data.Text+import qualified Language.LSP.Protocol.Types.Common++{-|+@since 3.18.0+@proposed+-}+data ClientSymbolResolveOptions = ClientSymbolResolveOptions +  { {-|+  The properties that a client can resolve lazily. Usually+  `location.range`+  -}+  _properties :: [Data.Text.Text]+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON ClientSymbolResolveOptions)++instance Aeson.ToJSON ClientSymbolResolveOptions where+  toJSON (ClientSymbolResolveOptions arg0) = Aeson.object $ concat $  [["properties" Aeson..= arg0]]++instance Aeson.FromJSON ClientSymbolResolveOptions where+  parseJSON = Aeson.withObject "ClientSymbolResolveOptions" $ \arg -> ClientSymbolResolveOptions <$> arg Aeson..: "properties"
+ generated/Language/LSP/Protocol/Internal/Types/ClientSymbolTagOptions.hs view
@@ -0,0 +1,39 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.ClientSymbolTagOptions where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Language.LSP.Protocol.Internal.Types.SymbolTag+import qualified Language.LSP.Protocol.Types.Common++{-|+@since 3.18.0+@proposed+-}+data ClientSymbolTagOptions = ClientSymbolTagOptions +  { {-|+  The tags supported by the client.+  -}+  _valueSet :: [Language.LSP.Protocol.Internal.Types.SymbolTag.SymbolTag]+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON ClientSymbolTagOptions)++instance Aeson.ToJSON ClientSymbolTagOptions where+  toJSON (ClientSymbolTagOptions arg0) = Aeson.object $ concat $  [["valueSet" Aeson..= arg0]]++instance Aeson.FromJSON ClientSymbolTagOptions where+  parseJSON = Aeson.withObject "ClientSymbolTagOptions" $ \arg -> ClientSymbolTagOptions <$> arg Aeson..: "valueSet"
generated/Language/LSP/Protocol/Internal/Types/CodeAction.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -12,10 +14,10 @@ import Prettyprinter import qualified Data.Aeson import qualified Data.Aeson as Aeson-import qualified Data.Row as Row import qualified Data.Row.Aeson as Aeson import qualified Data.Row.Hashable as Hashable import qualified Data.Text+import qualified Language.LSP.Protocol.Internal.Types.CodeActionDisabled import qualified Language.LSP.Protocol.Internal.Types.CodeActionKind import qualified Language.LSP.Protocol.Internal.Types.Command import qualified Language.LSP.Protocol.Internal.Types.Diagnostic@@ -70,7 +72,7 @@    @since 3.16.0   -}-  _disabled :: (Maybe (Row.Rec ("reason" Row..== Data.Text.Text Row..+ Row.Empty)))+  _disabled :: (Maybe Language.LSP.Protocol.Internal.Types.CodeActionDisabled.CodeActionDisabled)   , {-|   The workspace edit this code action performs.   -}@@ -104,4 +106,4 @@     ,"data" Language.LSP.Protocol.Types.Common..=? arg7]  instance Aeson.FromJSON CodeAction where-  parseJSON = Aeson.withObject "CodeAction" $ \arg -> CodeAction <$> arg Aeson..: "title" <*> arg Aeson..:! "kind" <*> arg Aeson..:! "diagnostics" <*> arg Aeson..:! "isPreferred" <*> arg Aeson..:! "disabled" <*> arg Aeson..:! "edit" <*> arg Aeson..:! "command" <*> arg Aeson..:! "data"+  parseJSON = Aeson.withObject "CodeAction" $ \arg -> CodeAction <$> arg Aeson..: "title" <*> arg Language.LSP.Protocol.Types.Common..:!? "kind" <*> arg Language.LSP.Protocol.Types.Common..:!? "diagnostics" <*> arg Language.LSP.Protocol.Types.Common..:!? "isPreferred" <*> arg Language.LSP.Protocol.Types.Common..:!? "disabled" <*> arg Language.LSP.Protocol.Types.Common..:!? "edit" <*> arg Language.LSP.Protocol.Types.Common..:!? "command" <*> arg Language.LSP.Protocol.Types.Common..:!? "data"
generated/Language/LSP/Protocol/Internal/Types/CodeActionClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -11,11 +13,10 @@ import Language.LSP.Protocol.Utils.Misc import Prettyprinter import qualified Data.Aeson as Aeson-import qualified Data.Row as Row import qualified Data.Row.Aeson as Aeson import qualified Data.Row.Hashable as Hashable-import qualified Data.Text-import qualified Language.LSP.Protocol.Internal.Types.CodeActionKind+import qualified Language.LSP.Protocol.Internal.Types.ClientCodeActionLiteralOptions+import qualified Language.LSP.Protocol.Internal.Types.ClientCodeActionResolveOptions import qualified Language.LSP.Protocol.Types.Common  {-|@@ -33,7 +34,7 @@    @since 3.8.0   -}-  _codeActionLiteralSupport :: (Maybe (Row.Rec ("codeActionKind" Row..== (Row.Rec ("valueSet" Row..== [Language.LSP.Protocol.Internal.Types.CodeActionKind.CodeActionKind] Row..+ Row.Empty)) Row..+ Row.Empty)))+  _codeActionLiteralSupport :: (Maybe Language.LSP.Protocol.Internal.Types.ClientCodeActionLiteralOptions.ClientCodeActionLiteralOptions)   , {-|   Whether code action supports the `isPreferred` property. @@ -60,7 +61,7 @@    @since 3.16.0   -}-  _resolveSupport :: (Maybe (Row.Rec ("properties" Row..== [Data.Text.Text] Row..+ Row.Empty)))+  _resolveSupport :: (Maybe Language.LSP.Protocol.Internal.Types.ClientCodeActionResolveOptions.ClientCodeActionResolveOptions)   , {-|   Whether the client honors the change annotations in   text edits and resource operations returned via the@@ -86,4 +87,4 @@     ,"honorsChangeAnnotations" Language.LSP.Protocol.Types.Common..=? arg6]  instance Aeson.FromJSON CodeActionClientCapabilities where-  parseJSON = Aeson.withObject "CodeActionClientCapabilities" $ \arg -> CodeActionClientCapabilities <$> arg Aeson..:! "dynamicRegistration" <*> arg Aeson..:! "codeActionLiteralSupport" <*> arg Aeson..:! "isPreferredSupport" <*> arg Aeson..:! "disabledSupport" <*> arg Aeson..:! "dataSupport" <*> arg Aeson..:! "resolveSupport" <*> arg Aeson..:! "honorsChangeAnnotations"+  parseJSON = Aeson.withObject "CodeActionClientCapabilities" $ \arg -> CodeActionClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "dynamicRegistration" <*> arg Language.LSP.Protocol.Types.Common..:!? "codeActionLiteralSupport" <*> arg Language.LSP.Protocol.Types.Common..:!? "isPreferredSupport" <*> arg Language.LSP.Protocol.Types.Common..:!? "disabledSupport" <*> arg Language.LSP.Protocol.Types.Common..:!? "dataSupport" <*> arg Language.LSP.Protocol.Types.Common..:!? "resolveSupport" <*> arg Language.LSP.Protocol.Types.Common..:!? "honorsChangeAnnotations"
generated/Language/LSP/Protocol/Internal/Types/CodeActionContext.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -55,4 +57,4 @@     ,"triggerKind" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON CodeActionContext where-  parseJSON = Aeson.withObject "CodeActionContext" $ \arg -> CodeActionContext <$> arg Aeson..: "diagnostics" <*> arg Aeson..:! "only" <*> arg Aeson..:! "triggerKind"+  parseJSON = Aeson.withObject "CodeActionContext" $ \arg -> CodeActionContext <$> arg Aeson..: "diagnostics" <*> arg Language.LSP.Protocol.Types.Common..:!? "only" <*> arg Language.LSP.Protocol.Types.Common..:!? "triggerKind"
+ generated/Language/LSP/Protocol/Internal/Types/CodeActionDisabled.hs view
@@ -0,0 +1,43 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.CodeActionDisabled where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Data.Text+import qualified Language.LSP.Protocol.Types.Common++{-|+Captures why the code action is currently disabled.++@since 3.18.0+@proposed+-}+data CodeActionDisabled = CodeActionDisabled +  { {-|+  Human readable description of why the code action is currently disabled.++  This is displayed in the code actions UI.+  -}+  _reason :: Data.Text.Text+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON CodeActionDisabled)++instance Aeson.ToJSON CodeActionDisabled where+  toJSON (CodeActionDisabled arg0) = Aeson.object $ concat $  [["reason" Aeson..= arg0]]++instance Aeson.FromJSON CodeActionDisabled where+  parseJSON = Aeson.withObject "CodeActionDisabled" $ \arg -> CodeActionDisabled <$> arg Aeson..: "reason"
generated/Language/LSP/Protocol/Internal/Types/CodeActionKind.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -89,12 +91,19 @@   @since 3.15.0   -}   CodeActionKind_SourceFixAll+  | {-|+  Base kind for all code actions applying to the entire notebook's scope. CodeActionKinds using+  this should always begin with `notebook.`++  @since 3.18.0+  -}+  CodeActionKind_Notebook   | CodeActionKind_Custom Data.Text.Text   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)   deriving ( Aeson.ToJSON   , Aeson.FromJSON-  , Data.String.IsString ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum CodeActionKind Data.Text.Text)+  , Data.String.IsString ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum CodeActionKind)   deriving Pretty via (ViaJSON CodeActionKind)  instance Language.LSP.Protocol.Types.LspEnum.LspEnum CodeActionKind where@@ -106,7 +115,8 @@     ,CodeActionKind_RefactorRewrite     ,CodeActionKind_Source     ,CodeActionKind_SourceOrganizeImports-    ,CodeActionKind_SourceFixAll]+    ,CodeActionKind_SourceFixAll+    ,CodeActionKind_Notebook]   type EnumBaseType CodeActionKind = Data.Text.Text   toEnumBaseType CodeActionKind_Empty = ""   toEnumBaseType CodeActionKind_QuickFix = "quickfix"@@ -117,6 +127,7 @@   toEnumBaseType CodeActionKind_Source = "source"   toEnumBaseType CodeActionKind_SourceOrganizeImports = "source.organizeImports"   toEnumBaseType CodeActionKind_SourceFixAll = "source.fixAll"+  toEnumBaseType CodeActionKind_Notebook = "notebook"   toEnumBaseType (CodeActionKind_Custom arg) = arg  instance Language.LSP.Protocol.Types.LspEnum.LspOpenEnum CodeActionKind where@@ -129,6 +140,7 @@   fromOpenEnumBaseType "source" = CodeActionKind_Source   fromOpenEnumBaseType "source.organizeImports" = CodeActionKind_SourceOrganizeImports   fromOpenEnumBaseType "source.fixAll" = CodeActionKind_SourceFixAll+  fromOpenEnumBaseType "notebook" = CodeActionKind_Notebook   fromOpenEnumBaseType arg = CodeActionKind_Custom arg
generated/Language/LSP/Protocol/Internal/Types/CodeActionOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -49,4 +51,4 @@     ,"resolveProvider" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON CodeActionOptions where-  parseJSON = Aeson.withObject "CodeActionOptions" $ \arg -> CodeActionOptions <$> arg Aeson..:! "workDoneProgress" <*> arg Aeson..:! "codeActionKinds" <*> arg Aeson..:! "resolveProvider"+  parseJSON = Aeson.withObject "CodeActionOptions" $ \arg -> CodeActionOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress" <*> arg Language.LSP.Protocol.Types.Common..:!? "codeActionKinds" <*> arg Language.LSP.Protocol.Types.Common..:!? "resolveProvider"
generated/Language/LSP/Protocol/Internal/Types/CodeActionParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -57,4 +59,4 @@     ,["context" Aeson..= arg4]]  instance Aeson.FromJSON CodeActionParams where-  parseJSON = Aeson.withObject "CodeActionParams" $ \arg -> CodeActionParams <$> arg Aeson..:! "workDoneToken" <*> arg Aeson..:! "partialResultToken" <*> arg Aeson..: "textDocument" <*> arg Aeson..: "range" <*> arg Aeson..: "context"+  parseJSON = Aeson.withObject "CodeActionParams" $ \arg -> CodeActionParams <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken" <*> arg Language.LSP.Protocol.Types.Common..:!? "partialResultToken" <*> arg Aeson..: "textDocument" <*> arg Aeson..: "range" <*> arg Aeson..: "context"
generated/Language/LSP/Protocol/Internal/Types/CodeActionRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -56,4 +58,4 @@     ,"resolveProvider" Language.LSP.Protocol.Types.Common..=? arg3]  instance Aeson.FromJSON CodeActionRegistrationOptions where-  parseJSON = Aeson.withObject "CodeActionRegistrationOptions" $ \arg -> CodeActionRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Aeson..:! "workDoneProgress" <*> arg Aeson..:! "codeActionKinds" <*> arg Aeson..:! "resolveProvider"+  parseJSON = Aeson.withObject "CodeActionRegistrationOptions" $ \arg -> CodeActionRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress" <*> arg Language.LSP.Protocol.Types.Common..:!? "codeActionKinds" <*> arg Language.LSP.Protocol.Types.Common..:!? "resolveProvider"
generated/Language/LSP/Protocol/Internal/Types/CodeActionTriggerKind.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -38,7 +40,7 @@   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)   deriving ( Aeson.ToJSON-  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum CodeActionTriggerKind Language.LSP.Protocol.Types.Common.UInt)+  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum CodeActionTriggerKind)   deriving Pretty via (ViaJSON CodeActionTriggerKind)  instance Language.LSP.Protocol.Types.LspEnum.LspEnum CodeActionTriggerKind where
generated/Language/LSP/Protocol/Internal/Types/CodeDescription.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/CodeLens.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -36,7 +38,7 @@   _command :: (Maybe Language.LSP.Protocol.Internal.Types.Command.Command)   , {-|   A data entry field that is preserved on a code lens item between-  a `CodeLensRequest` and a `CodeLensResolveRequest`+  a `CodeLensRequest`   -}   _data_ :: (Maybe Data.Aeson.Value)   }@@ -50,4 +52,4 @@     ,"data" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON CodeLens where-  parseJSON = Aeson.withObject "CodeLens" $ \arg -> CodeLens <$> arg Aeson..: "range" <*> arg Aeson..:! "command" <*> arg Aeson..:! "data"+  parseJSON = Aeson.withObject "CodeLens" $ \arg -> CodeLens <$> arg Aeson..: "range" <*> arg Language.LSP.Protocol.Types.Common..:!? "command" <*> arg Language.LSP.Protocol.Types.Common..:!? "data"
generated/Language/LSP/Protocol/Internal/Types/CodeLensClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -32,4 +34,4 @@   toJSON (CodeLensClientCapabilities arg0) = Aeson.object $ concat $  ["dynamicRegistration" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON CodeLensClientCapabilities where-  parseJSON = Aeson.withObject "CodeLensClientCapabilities" $ \arg -> CodeLensClientCapabilities <$> arg Aeson..:! "dynamicRegistration"+  parseJSON = Aeson.withObject "CodeLensClientCapabilities" $ \arg -> CodeLensClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "dynamicRegistration"
generated/Language/LSP/Protocol/Internal/Types/CodeLensOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -37,4 +39,4 @@     ,"resolveProvider" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON CodeLensOptions where-  parseJSON = Aeson.withObject "CodeLensOptions" $ \arg -> CodeLensOptions <$> arg Aeson..:! "workDoneProgress" <*> arg Aeson..:! "resolveProvider"+  parseJSON = Aeson.withObject "CodeLensOptions" $ \arg -> CodeLensOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress" <*> arg Language.LSP.Protocol.Types.Common..:!? "resolveProvider"
generated/Language/LSP/Protocol/Internal/Types/CodeLensParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -45,4 +47,4 @@     ,["textDocument" Aeson..= arg2]]  instance Aeson.FromJSON CodeLensParams where-  parseJSON = Aeson.withObject "CodeLensParams" $ \arg -> CodeLensParams <$> arg Aeson..:! "workDoneToken" <*> arg Aeson..:! "partialResultToken" <*> arg Aeson..: "textDocument"+  parseJSON = Aeson.withObject "CodeLensParams" $ \arg -> CodeLensParams <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken" <*> arg Language.LSP.Protocol.Types.Common..:!? "partialResultToken" <*> arg Aeson..: "textDocument"
generated/Language/LSP/Protocol/Internal/Types/CodeLensRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -44,4 +46,4 @@     ,"resolveProvider" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON CodeLensRegistrationOptions where-  parseJSON = Aeson.withObject "CodeLensRegistrationOptions" $ \arg -> CodeLensRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Aeson..:! "workDoneProgress" <*> arg Aeson..:! "resolveProvider"+  parseJSON = Aeson.withObject "CodeLensRegistrationOptions" $ \arg -> CodeLensRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress" <*> arg Language.LSP.Protocol.Types.Common..:!? "resolveProvider"
generated/Language/LSP/Protocol/Internal/Types/CodeLensWorkspaceClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -38,4 +40,4 @@   toJSON (CodeLensWorkspaceClientCapabilities arg0) = Aeson.object $ concat $  ["refreshSupport" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON CodeLensWorkspaceClientCapabilities where-  parseJSON = Aeson.withObject "CodeLensWorkspaceClientCapabilities" $ \arg -> CodeLensWorkspaceClientCapabilities <$> arg Aeson..:! "refreshSupport"+  parseJSON = Aeson.withObject "CodeLensWorkspaceClientCapabilities" $ \arg -> CodeLensWorkspaceClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "refreshSupport"
generated/Language/LSP/Protocol/Internal/Types/Color.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/ColorInformation.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/ColorPresentation.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -49,4 +51,4 @@     ,"additionalTextEdits" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON ColorPresentation where-  parseJSON = Aeson.withObject "ColorPresentation" $ \arg -> ColorPresentation <$> arg Aeson..: "label" <*> arg Aeson..:! "textEdit" <*> arg Aeson..:! "additionalTextEdits"+  parseJSON = Aeson.withObject "ColorPresentation" $ \arg -> ColorPresentation <$> arg Aeson..: "label" <*> arg Language.LSP.Protocol.Types.Common..:!? "textEdit" <*> arg Language.LSP.Protocol.Types.Common..:!? "additionalTextEdits"
generated/Language/LSP/Protocol/Internal/Types/ColorPresentationParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -57,4 +59,4 @@     ,["range" Aeson..= arg4]]  instance Aeson.FromJSON ColorPresentationParams where-  parseJSON = Aeson.withObject "ColorPresentationParams" $ \arg -> ColorPresentationParams <$> arg Aeson..:! "workDoneToken" <*> arg Aeson..:! "partialResultToken" <*> arg Aeson..: "textDocument" <*> arg Aeson..: "color" <*> arg Aeson..: "range"+  parseJSON = Aeson.withObject "ColorPresentationParams" $ \arg -> ColorPresentationParams <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken" <*> arg Language.LSP.Protocol.Types.Common..:!? "partialResultToken" <*> arg Aeson..: "textDocument" <*> arg Aeson..: "color" <*> arg Aeson..: "range"
generated/Language/LSP/Protocol/Internal/Types/Command.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -48,4 +50,4 @@     ,"arguments" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON Command where-  parseJSON = Aeson.withObject "Command" $ \arg -> Command <$> arg Aeson..: "title" <*> arg Aeson..: "command" <*> arg Aeson..:! "arguments"+  parseJSON = Aeson.withObject "Command" $ \arg -> Command <$> arg Aeson..: "title" <*> arg Aeson..: "command" <*> arg Language.LSP.Protocol.Types.Common..:!? "arguments"
generated/Language/LSP/Protocol/Internal/Types/CompletionClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -11,14 +13,12 @@ import Language.LSP.Protocol.Utils.Misc import Prettyprinter import qualified Data.Aeson as Aeson-import qualified Data.Row as Row import qualified Data.Row.Aeson as Aeson import qualified Data.Row.Hashable as Hashable-import qualified Data.Text-import qualified Language.LSP.Protocol.Internal.Types.CompletionItemKind-import qualified Language.LSP.Protocol.Internal.Types.CompletionItemTag+import qualified Language.LSP.Protocol.Internal.Types.ClientCompletionItemOptions+import qualified Language.LSP.Protocol.Internal.Types.ClientCompletionItemOptionsKind+import qualified Language.LSP.Protocol.Internal.Types.CompletionListCapabilities import qualified Language.LSP.Protocol.Internal.Types.InsertTextMode-import qualified Language.LSP.Protocol.Internal.Types.MarkupKind import qualified Language.LSP.Protocol.Types.Common  {-|@@ -33,11 +33,11 @@   The client supports the following `CompletionItem` specific   capabilities.   -}-  _completionItem :: (Maybe (Row.Rec ("snippetSupport" Row..== (Maybe Bool) Row..+ ("commitCharactersSupport" Row..== (Maybe Bool) Row..+ ("documentationFormat" Row..== (Maybe [Language.LSP.Protocol.Internal.Types.MarkupKind.MarkupKind]) Row..+ ("deprecatedSupport" Row..== (Maybe Bool) Row..+ ("preselectSupport" Row..== (Maybe Bool) Row..+ ("tagSupport" Row..== (Maybe (Row.Rec ("valueSet" Row..== [Language.LSP.Protocol.Internal.Types.CompletionItemTag.CompletionItemTag] Row..+ Row.Empty))) Row..+ ("insertReplaceSupport" Row..== (Maybe Bool) Row..+ ("resolveSupport" Row..== (Maybe (Row.Rec ("properties" Row..== [Data.Text.Text] Row..+ Row.Empty))) Row..+ ("insertTextModeSupport" Row..== (Maybe (Row.Rec ("valueSet" Row..== [Language.LSP.Protocol.Internal.Types.InsertTextMode.InsertTextMode] Row..+ Row.Empty))) Row..+ ("labelDetailsSupport" Row..== (Maybe Bool) Row..+ Row.Empty))))))))))))+  _completionItem :: (Maybe Language.LSP.Protocol.Internal.Types.ClientCompletionItemOptions.ClientCompletionItemOptions)   , {-|    -}-  _completionItemKind :: (Maybe (Row.Rec ("valueSet" Row..== (Maybe [Language.LSP.Protocol.Internal.Types.CompletionItemKind.CompletionItemKind]) Row..+ Row.Empty)))+  _completionItemKind :: (Maybe Language.LSP.Protocol.Internal.Types.ClientCompletionItemOptionsKind.ClientCompletionItemOptionsKind)   , {-|   Defines how the client handles whitespace and indentation   when accepting a completion item that uses multi line@@ -57,7 +57,7 @@    @since 3.17.0   -}-  _completionList :: (Maybe (Row.Rec ("itemDefaults" Row..== (Maybe [Data.Text.Text]) Row..+ Row.Empty)))+  _completionList :: (Maybe Language.LSP.Protocol.Internal.Types.CompletionListCapabilities.CompletionListCapabilities)   }   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)@@ -72,4 +72,4 @@     ,"completionList" Language.LSP.Protocol.Types.Common..=? arg5]  instance Aeson.FromJSON CompletionClientCapabilities where-  parseJSON = Aeson.withObject "CompletionClientCapabilities" $ \arg -> CompletionClientCapabilities <$> arg Aeson..:! "dynamicRegistration" <*> arg Aeson..:! "completionItem" <*> arg Aeson..:! "completionItemKind" <*> arg Aeson..:! "insertTextMode" <*> arg Aeson..:! "contextSupport" <*> arg Aeson..:! "completionList"+  parseJSON = Aeson.withObject "CompletionClientCapabilities" $ \arg -> CompletionClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "dynamicRegistration" <*> arg Language.LSP.Protocol.Types.Common..:!? "completionItem" <*> arg Language.LSP.Protocol.Types.Common..:!? "completionItemKind" <*> arg Language.LSP.Protocol.Types.Common..:!? "insertTextMode" <*> arg Language.LSP.Protocol.Types.Common..:!? "contextSupport" <*> arg Language.LSP.Protocol.Types.Common..:!? "completionList"
generated/Language/LSP/Protocol/Internal/Types/CompletionContext.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -40,4 +42,4 @@     ,"triggerCharacter" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON CompletionContext where-  parseJSON = Aeson.withObject "CompletionContext" $ \arg -> CompletionContext <$> arg Aeson..: "triggerKind" <*> arg Aeson..:! "triggerCharacter"+  parseJSON = Aeson.withObject "CompletionContext" $ \arg -> CompletionContext <$> arg Aeson..: "triggerKind" <*> arg Language.LSP.Protocol.Types.Common..:!? "triggerCharacter"
generated/Language/LSP/Protocol/Internal/Types/CompletionItem.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -213,4 +215,4 @@     ,"data" Language.LSP.Protocol.Types.Common..=? arg18]  instance Aeson.FromJSON CompletionItem where-  parseJSON = Aeson.withObject "CompletionItem" $ \arg -> CompletionItem <$> arg Aeson..: "label" <*> arg Aeson..:! "labelDetails" <*> arg Aeson..:! "kind" <*> arg Aeson..:! "tags" <*> arg Aeson..:! "detail" <*> arg Aeson..:! "documentation" <*> arg Aeson..:! "deprecated" <*> arg Aeson..:! "preselect" <*> arg Aeson..:! "sortText" <*> arg Aeson..:! "filterText" <*> arg Aeson..:! "insertText" <*> arg Aeson..:! "insertTextFormat" <*> arg Aeson..:! "insertTextMode" <*> arg Aeson..:! "textEdit" <*> arg Aeson..:! "textEditText" <*> arg Aeson..:! "additionalTextEdits" <*> arg Aeson..:! "commitCharacters" <*> arg Aeson..:! "command" <*> arg Aeson..:! "data"+  parseJSON = Aeson.withObject "CompletionItem" $ \arg -> CompletionItem <$> arg Aeson..: "label" <*> arg Language.LSP.Protocol.Types.Common..:!? "labelDetails" <*> arg Language.LSP.Protocol.Types.Common..:!? "kind" <*> arg Language.LSP.Protocol.Types.Common..:!? "tags" <*> arg Language.LSP.Protocol.Types.Common..:!? "detail" <*> arg Language.LSP.Protocol.Types.Common..:!? "documentation" <*> arg Language.LSP.Protocol.Types.Common..:!? "deprecated" <*> arg Language.LSP.Protocol.Types.Common..:!? "preselect" <*> arg Language.LSP.Protocol.Types.Common..:!? "sortText" <*> arg Language.LSP.Protocol.Types.Common..:!? "filterText" <*> arg Language.LSP.Protocol.Types.Common..:!? "insertText" <*> arg Language.LSP.Protocol.Types.Common..:!? "insertTextFormat" <*> arg Language.LSP.Protocol.Types.Common..:!? "insertTextMode" <*> arg Language.LSP.Protocol.Types.Common..:!? "textEdit" <*> arg Language.LSP.Protocol.Types.Common..:!? "textEditText" <*> arg Language.LSP.Protocol.Types.Common..:!? "additionalTextEdits" <*> arg Language.LSP.Protocol.Types.Common..:!? "commitCharacters" <*> arg Language.LSP.Protocol.Types.Common..:!? "command" <*> arg Language.LSP.Protocol.Types.Common..:!? "data"
+ generated/Language/LSP/Protocol/Internal/Types/CompletionItemDefaults.hs view
@@ -0,0 +1,85 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.CompletionItemDefaults where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Data.Text+import qualified Language.LSP.Protocol.Internal.Types.EditRangeWithInsertReplace+import qualified Language.LSP.Protocol.Internal.Types.InsertTextFormat+import qualified Language.LSP.Protocol.Internal.Types.InsertTextMode+import qualified Language.LSP.Protocol.Internal.Types.Range+import qualified Language.LSP.Protocol.Types.Common++{-|+In many cases the items of an actual completion result share the same+value for properties like `commitCharacters` or the range of a text+edit. A completion list can therefore define item defaults which will+be used if a completion item itself doesn't specify the value.++If a completion list specifies a default value and a completion item+also specifies a corresponding value the one from the item is used.++Servers are only allowed to return default values if the client+signals support for this via the `completionList.itemDefaults`+capability.++@since 3.17.0+-}+data CompletionItemDefaults = CompletionItemDefaults +  { {-|+  A default commit character set.++  @since 3.17.0+  -}+  _commitCharacters :: (Maybe [Data.Text.Text])+  , {-|+  A default edit range.++  @since 3.17.0+  -}+  _editRange :: (Maybe (Language.LSP.Protocol.Internal.Types.Range.Range Language.LSP.Protocol.Types.Common.|? Language.LSP.Protocol.Internal.Types.EditRangeWithInsertReplace.EditRangeWithInsertReplace))+  , {-|+  A default insert text format.++  @since 3.17.0+  -}+  _insertTextFormat :: (Maybe Language.LSP.Protocol.Internal.Types.InsertTextFormat.InsertTextFormat)+  , {-|+  A default insert text mode.++  @since 3.17.0+  -}+  _insertTextMode :: (Maybe Language.LSP.Protocol.Internal.Types.InsertTextMode.InsertTextMode)+  , {-|+  A default data value.++  @since 3.17.0+  -}+  _data_ :: (Maybe Data.Aeson.Value)+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON CompletionItemDefaults)++instance Aeson.ToJSON CompletionItemDefaults where+  toJSON (CompletionItemDefaults arg0 arg1 arg2 arg3 arg4) = Aeson.object $ concat $  ["commitCharacters" Language.LSP.Protocol.Types.Common..=? arg0+    ,"editRange" Language.LSP.Protocol.Types.Common..=? arg1+    ,"insertTextFormat" Language.LSP.Protocol.Types.Common..=? arg2+    ,"insertTextMode" Language.LSP.Protocol.Types.Common..=? arg3+    ,"data" Language.LSP.Protocol.Types.Common..=? arg4]++instance Aeson.FromJSON CompletionItemDefaults where+  parseJSON = Aeson.withObject "CompletionItemDefaults" $ \arg -> CompletionItemDefaults <$> arg Language.LSP.Protocol.Types.Common..:!? "commitCharacters" <*> arg Language.LSP.Protocol.Types.Common..:!? "editRange" <*> arg Language.LSP.Protocol.Types.Common..:!? "insertTextFormat" <*> arg Language.LSP.Protocol.Types.Common..:!? "insertTextMode" <*> arg Language.LSP.Protocol.Types.Common..:!? "data"
generated/Language/LSP/Protocol/Internal/Types/CompletionItemKind.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -125,7 +127,7 @@   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)   deriving ( Aeson.ToJSON-  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum CompletionItemKind Language.LSP.Protocol.Types.Common.UInt)+  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum CompletionItemKind)   deriving Pretty via (ViaJSON CompletionItemKind)  instance Language.LSP.Protocol.Types.LspEnum.LspEnum CompletionItemKind where
generated/Language/LSP/Protocol/Internal/Types/CompletionItemLabelDetails.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -42,4 +44,4 @@     ,"description" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON CompletionItemLabelDetails where-  parseJSON = Aeson.withObject "CompletionItemLabelDetails" $ \arg -> CompletionItemLabelDetails <$> arg Aeson..:! "detail" <*> arg Aeson..:! "description"+  parseJSON = Aeson.withObject "CompletionItemLabelDetails" $ \arg -> CompletionItemLabelDetails <$> arg Language.LSP.Protocol.Types.Common..:!? "detail" <*> arg Language.LSP.Protocol.Types.Common..:!? "description"
generated/Language/LSP/Protocol/Internal/Types/CompletionItemTag.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -32,7 +34,7 @@   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)   deriving ( Aeson.ToJSON-  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum CompletionItemTag Language.LSP.Protocol.Types.Common.UInt)+  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum CompletionItemTag)   deriving Pretty via (ViaJSON CompletionItemTag)  instance Language.LSP.Protocol.Types.LspEnum.LspEnum CompletionItemTag where
+ generated/Language/LSP/Protocol/Internal/Types/CompletionItemTagOptions.hs view
@@ -0,0 +1,39 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.CompletionItemTagOptions where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Language.LSP.Protocol.Internal.Types.CompletionItemTag+import qualified Language.LSP.Protocol.Types.Common++{-|+@since 3.18.0+@proposed+-}+data CompletionItemTagOptions = CompletionItemTagOptions +  { {-|+  The tags supported by the client.+  -}+  _valueSet :: [Language.LSP.Protocol.Internal.Types.CompletionItemTag.CompletionItemTag]+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON CompletionItemTagOptions)++instance Aeson.ToJSON CompletionItemTagOptions where+  toJSON (CompletionItemTagOptions arg0) = Aeson.object $ concat $  [["valueSet" Aeson..= arg0]]++instance Aeson.FromJSON CompletionItemTagOptions where+  parseJSON = Aeson.withObject "CompletionItemTagOptions" $ \arg -> CompletionItemTagOptions <$> arg Aeson..: "valueSet"
generated/Language/LSP/Protocol/Internal/Types/CompletionList.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -10,16 +12,11 @@ import GHC.Generics import Language.LSP.Protocol.Utils.Misc import Prettyprinter-import qualified Data.Aeson import qualified Data.Aeson as Aeson-import qualified Data.Row as Row import qualified Data.Row.Aeson as Aeson import qualified Data.Row.Hashable as Hashable-import qualified Data.Text import qualified Language.LSP.Protocol.Internal.Types.CompletionItem-import qualified Language.LSP.Protocol.Internal.Types.InsertTextFormat-import qualified Language.LSP.Protocol.Internal.Types.InsertTextMode-import qualified Language.LSP.Protocol.Internal.Types.Range+import qualified Language.LSP.Protocol.Internal.Types.CompletionItemDefaults import qualified Language.LSP.Protocol.Types.Common  {-|@@ -49,7 +46,7 @@    @since 3.17.0   -}-  _itemDefaults :: (Maybe (Row.Rec ("commitCharacters" Row..== (Maybe [Data.Text.Text]) Row..+ ("editRange" Row..== (Maybe (Language.LSP.Protocol.Internal.Types.Range.Range Language.LSP.Protocol.Types.Common.|? (Row.Rec ("insert" Row..== Language.LSP.Protocol.Internal.Types.Range.Range Row..+ ("replace" Row..== Language.LSP.Protocol.Internal.Types.Range.Range Row..+ Row.Empty))))) Row..+ ("insertTextFormat" Row..== (Maybe Language.LSP.Protocol.Internal.Types.InsertTextFormat.InsertTextFormat) Row..+ ("insertTextMode" Row..== (Maybe Language.LSP.Protocol.Internal.Types.InsertTextMode.InsertTextMode) Row..+ ("data" Row..== (Maybe Data.Aeson.Value) Row..+ Row.Empty)))))))+  _itemDefaults :: (Maybe Language.LSP.Protocol.Internal.Types.CompletionItemDefaults.CompletionItemDefaults)   , {-|   The completion items.   -}@@ -65,4 +62,4 @@     ,["items" Aeson..= arg2]]  instance Aeson.FromJSON CompletionList where-  parseJSON = Aeson.withObject "CompletionList" $ \arg -> CompletionList <$> arg Aeson..: "isIncomplete" <*> arg Aeson..:! "itemDefaults" <*> arg Aeson..: "items"+  parseJSON = Aeson.withObject "CompletionList" $ \arg -> CompletionList <$> arg Aeson..: "isIncomplete" <*> arg Language.LSP.Protocol.Types.Common..:!? "itemDefaults" <*> arg Aeson..: "items"
+ generated/Language/LSP/Protocol/Internal/Types/CompletionListCapabilities.hs view
@@ -0,0 +1,48 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.CompletionListCapabilities where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Data.Text+import qualified Language.LSP.Protocol.Types.Common++{-|+The client supports the following `CompletionList` specific+capabilities.++@since 3.17.0+-}+data CompletionListCapabilities = CompletionListCapabilities +  { {-|+  The client supports the following itemDefaults on+  a completion list.++  The value lists the supported property names of the+  `CompletionList.itemDefaults` object. If omitted+  no properties are supported.++  @since 3.17.0+  -}+  _itemDefaults :: (Maybe [Data.Text.Text])+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON CompletionListCapabilities)++instance Aeson.ToJSON CompletionListCapabilities where+  toJSON (CompletionListCapabilities arg0) = Aeson.object $ concat $  ["itemDefaults" Language.LSP.Protocol.Types.Common..=? arg0]++instance Aeson.FromJSON CompletionListCapabilities where+  parseJSON = Aeson.withObject "CompletionListCapabilities" $ \arg -> CompletionListCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "itemDefaults"
generated/Language/LSP/Protocol/Internal/Types/CompletionOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -11,10 +13,10 @@ import Language.LSP.Protocol.Utils.Misc import Prettyprinter import qualified Data.Aeson as Aeson-import qualified Data.Row as Row import qualified Data.Row.Aeson as Aeson import qualified Data.Row.Hashable as Hashable import qualified Data.Text+import qualified Language.LSP.Protocol.Internal.Types.ServerCompletionItemOptions import qualified Language.LSP.Protocol.Types.Common  {-|@@ -58,7 +60,7 @@    @since 3.17.0   -}-  _completionItem :: (Maybe (Row.Rec ("labelDetailsSupport" Row..== (Maybe Bool) Row..+ Row.Empty)))+  _completionItem :: (Maybe Language.LSP.Protocol.Internal.Types.ServerCompletionItemOptions.ServerCompletionItemOptions)   }   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)@@ -72,4 +74,4 @@     ,"completionItem" Language.LSP.Protocol.Types.Common..=? arg4]  instance Aeson.FromJSON CompletionOptions where-  parseJSON = Aeson.withObject "CompletionOptions" $ \arg -> CompletionOptions <$> arg Aeson..:! "workDoneProgress" <*> arg Aeson..:! "triggerCharacters" <*> arg Aeson..:! "allCommitCharacters" <*> arg Aeson..:! "resolveProvider" <*> arg Aeson..:! "completionItem"+  parseJSON = Aeson.withObject "CompletionOptions" $ \arg -> CompletionOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress" <*> arg Language.LSP.Protocol.Types.Common..:!? "triggerCharacters" <*> arg Language.LSP.Protocol.Types.Common..:!? "allCommitCharacters" <*> arg Language.LSP.Protocol.Types.Common..:!? "resolveProvider" <*> arg Language.LSP.Protocol.Types.Common..:!? "completionItem"
generated/Language/LSP/Protocol/Internal/Types/CompletionParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -58,4 +60,4 @@     ,"context" Language.LSP.Protocol.Types.Common..=? arg4]  instance Aeson.FromJSON CompletionParams where-  parseJSON = Aeson.withObject "CompletionParams" $ \arg -> CompletionParams <$> arg Aeson..: "textDocument" <*> arg Aeson..: "position" <*> arg Aeson..:! "workDoneToken" <*> arg Aeson..:! "partialResultToken" <*> arg Aeson..:! "context"+  parseJSON = Aeson.withObject "CompletionParams" $ \arg -> CompletionParams <$> arg Aeson..: "textDocument" <*> arg Aeson..: "position" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken" <*> arg Language.LSP.Protocol.Types.Common..:!? "partialResultToken" <*> arg Language.LSP.Protocol.Types.Common..:!? "context"
generated/Language/LSP/Protocol/Internal/Types/CompletionRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -11,11 +13,11 @@ import Language.LSP.Protocol.Utils.Misc import Prettyprinter import qualified Data.Aeson as Aeson-import qualified Data.Row as Row import qualified Data.Row.Aeson as Aeson import qualified Data.Row.Hashable as Hashable import qualified Data.Text import qualified Language.LSP.Protocol.Internal.Types.DocumentSelector+import qualified Language.LSP.Protocol.Internal.Types.ServerCompletionItemOptions import qualified Language.LSP.Protocol.Types.Common  {-|@@ -64,7 +66,7 @@    @since 3.17.0   -}-  _completionItem :: (Maybe (Row.Rec ("labelDetailsSupport" Row..== (Maybe Bool) Row..+ Row.Empty)))+  _completionItem :: (Maybe Language.LSP.Protocol.Internal.Types.ServerCompletionItemOptions.ServerCompletionItemOptions)   }   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)@@ -79,4 +81,4 @@     ,"completionItem" Language.LSP.Protocol.Types.Common..=? arg5]  instance Aeson.FromJSON CompletionRegistrationOptions where-  parseJSON = Aeson.withObject "CompletionRegistrationOptions" $ \arg -> CompletionRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Aeson..:! "workDoneProgress" <*> arg Aeson..:! "triggerCharacters" <*> arg Aeson..:! "allCommitCharacters" <*> arg Aeson..:! "resolveProvider" <*> arg Aeson..:! "completionItem"+  parseJSON = Aeson.withObject "CompletionRegistrationOptions" $ \arg -> CompletionRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress" <*> arg Language.LSP.Protocol.Types.Common..:!? "triggerCharacters" <*> arg Language.LSP.Protocol.Types.Common..:!? "allCommitCharacters" <*> arg Language.LSP.Protocol.Types.Common..:!? "resolveProvider" <*> arg Language.LSP.Protocol.Types.Common..:!? "completionItem"
generated/Language/LSP/Protocol/Internal/Types/CompletionTriggerKind.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -39,7 +41,7 @@   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)   deriving ( Aeson.ToJSON-  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum CompletionTriggerKind Language.LSP.Protocol.Types.Common.UInt)+  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum CompletionTriggerKind)   deriving Pretty via (ViaJSON CompletionTriggerKind)  instance Language.LSP.Protocol.Types.LspEnum.LspEnum CompletionTriggerKind where
generated/Language/LSP/Protocol/Internal/Types/ConfigurationItem.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -15,6 +17,7 @@ import qualified Data.Row.Hashable as Hashable import qualified Data.Text import qualified Language.LSP.Protocol.Types.Common+import qualified Language.LSP.Protocol.Types.Uri  {-| @@ -23,7 +26,7 @@   { {-|   The scope to get the configuration section for.   -}-  _scopeUri :: (Maybe Data.Text.Text)+  _scopeUri :: (Maybe Language.LSP.Protocol.Types.Uri.Uri)   , {-|   The configuration section asked for.   -}@@ -38,4 +41,4 @@     ,"section" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON ConfigurationItem where-  parseJSON = Aeson.withObject "ConfigurationItem" $ \arg -> ConfigurationItem <$> arg Aeson..:! "scopeUri" <*> arg Aeson..:! "section"+  parseJSON = Aeson.withObject "ConfigurationItem" $ \arg -> ConfigurationItem <$> arg Language.LSP.Protocol.Types.Common..:!? "scopeUri" <*> arg Language.LSP.Protocol.Types.Common..:!? "section"
generated/Language/LSP/Protocol/Internal/Types/ConfigurationParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/CreateFile.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -53,4 +55,4 @@     ,"options" Language.LSP.Protocol.Types.Common..=? arg3]  instance Aeson.FromJSON CreateFile where-  parseJSON = Aeson.withObject "CreateFile" $ \arg -> CreateFile <$> arg Aeson..:! "annotationId" <*> arg Aeson..: "kind" <*> arg Aeson..: "uri" <*> arg Aeson..:! "options"+  parseJSON = Aeson.withObject "CreateFile" $ \arg -> CreateFile <$> arg Language.LSP.Protocol.Types.Common..:!? "annotationId" <*> arg Aeson..: "kind" <*> arg Aeson..: "uri" <*> arg Language.LSP.Protocol.Types.Common..:!? "options"
generated/Language/LSP/Protocol/Internal/Types/CreateFileOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -37,4 +39,4 @@     ,"ignoreIfExists" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON CreateFileOptions where-  parseJSON = Aeson.withObject "CreateFileOptions" $ \arg -> CreateFileOptions <$> arg Aeson..:! "overwrite" <*> arg Aeson..:! "ignoreIfExists"+  parseJSON = Aeson.withObject "CreateFileOptions" $ \arg -> CreateFileOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "overwrite" <*> arg Language.LSP.Protocol.Types.Common..:!? "ignoreIfExists"
generated/Language/LSP/Protocol/Internal/Types/CreateFilesParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/Declaration.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/DeclarationClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -39,4 +41,4 @@     ,"linkSupport" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON DeclarationClientCapabilities where-  parseJSON = Aeson.withObject "DeclarationClientCapabilities" $ \arg -> DeclarationClientCapabilities <$> arg Aeson..:! "dynamicRegistration" <*> arg Aeson..:! "linkSupport"+  parseJSON = Aeson.withObject "DeclarationClientCapabilities" $ \arg -> DeclarationClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "dynamicRegistration" <*> arg Language.LSP.Protocol.Types.Common..:!? "linkSupport"
generated/Language/LSP/Protocol/Internal/Types/DeclarationLink.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/DeclarationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -32,4 +34,4 @@   toJSON (DeclarationOptions arg0) = Aeson.object $ concat $  ["workDoneProgress" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON DeclarationOptions where-  parseJSON = Aeson.withObject "DeclarationOptions" $ \arg -> DeclarationOptions <$> arg Aeson..:! "workDoneProgress"+  parseJSON = Aeson.withObject "DeclarationOptions" $ \arg -> DeclarationOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress"
generated/Language/LSP/Protocol/Internal/Types/DeclarationParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -51,4 +53,4 @@     ,"partialResultToken" Language.LSP.Protocol.Types.Common..=? arg3]  instance Aeson.FromJSON DeclarationParams where-  parseJSON = Aeson.withObject "DeclarationParams" $ \arg -> DeclarationParams <$> arg Aeson..: "textDocument" <*> arg Aeson..: "position" <*> arg Aeson..:! "workDoneToken" <*> arg Aeson..:! "partialResultToken"+  parseJSON = Aeson.withObject "DeclarationParams" $ \arg -> DeclarationParams <$> arg Aeson..: "textDocument" <*> arg Aeson..: "position" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken" <*> arg Language.LSP.Protocol.Types.Common..:!? "partialResultToken"
generated/Language/LSP/Protocol/Internal/Types/DeclarationRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -46,4 +48,4 @@     ,"id" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON DeclarationRegistrationOptions where-  parseJSON = Aeson.withObject "DeclarationRegistrationOptions" $ \arg -> DeclarationRegistrationOptions <$> arg Aeson..:! "workDoneProgress" <*> arg Aeson..: "documentSelector" <*> arg Aeson..:! "id"+  parseJSON = Aeson.withObject "DeclarationRegistrationOptions" $ \arg -> DeclarationRegistrationOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress" <*> arg Aeson..: "documentSelector" <*> arg Language.LSP.Protocol.Types.Common..:!? "id"
generated/Language/LSP/Protocol/Internal/Types/Definition.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/DefinitionClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -39,4 +41,4 @@     ,"linkSupport" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON DefinitionClientCapabilities where-  parseJSON = Aeson.withObject "DefinitionClientCapabilities" $ \arg -> DefinitionClientCapabilities <$> arg Aeson..:! "dynamicRegistration" <*> arg Aeson..:! "linkSupport"+  parseJSON = Aeson.withObject "DefinitionClientCapabilities" $ \arg -> DefinitionClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "dynamicRegistration" <*> arg Language.LSP.Protocol.Types.Common..:!? "linkSupport"
generated/Language/LSP/Protocol/Internal/Types/DefinitionLink.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/DefinitionOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -32,4 +34,4 @@   toJSON (DefinitionOptions arg0) = Aeson.object $ concat $  ["workDoneProgress" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON DefinitionOptions where-  parseJSON = Aeson.withObject "DefinitionOptions" $ \arg -> DefinitionOptions <$> arg Aeson..:! "workDoneProgress"+  parseJSON = Aeson.withObject "DefinitionOptions" $ \arg -> DefinitionOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress"
generated/Language/LSP/Protocol/Internal/Types/DefinitionParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -51,4 +53,4 @@     ,"partialResultToken" Language.LSP.Protocol.Types.Common..=? arg3]  instance Aeson.FromJSON DefinitionParams where-  parseJSON = Aeson.withObject "DefinitionParams" $ \arg -> DefinitionParams <$> arg Aeson..: "textDocument" <*> arg Aeson..: "position" <*> arg Aeson..:! "workDoneToken" <*> arg Aeson..:! "partialResultToken"+  parseJSON = Aeson.withObject "DefinitionParams" $ \arg -> DefinitionParams <$> arg Aeson..: "textDocument" <*> arg Aeson..: "position" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken" <*> arg Language.LSP.Protocol.Types.Common..:!? "partialResultToken"
generated/Language/LSP/Protocol/Internal/Types/DefinitionRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -39,4 +41,4 @@     ,"workDoneProgress" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON DefinitionRegistrationOptions where-  parseJSON = Aeson.withObject "DefinitionRegistrationOptions" $ \arg -> DefinitionRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Aeson..:! "workDoneProgress"+  parseJSON = Aeson.withObject "DefinitionRegistrationOptions" $ \arg -> DefinitionRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress"
generated/Language/LSP/Protocol/Internal/Types/DeleteFile.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -53,4 +55,4 @@     ,"options" Language.LSP.Protocol.Types.Common..=? arg3]  instance Aeson.FromJSON DeleteFile where-  parseJSON = Aeson.withObject "DeleteFile" $ \arg -> DeleteFile <$> arg Aeson..:! "annotationId" <*> arg Aeson..: "kind" <*> arg Aeson..: "uri" <*> arg Aeson..:! "options"+  parseJSON = Aeson.withObject "DeleteFile" $ \arg -> DeleteFile <$> arg Language.LSP.Protocol.Types.Common..:!? "annotationId" <*> arg Aeson..: "kind" <*> arg Aeson..: "uri" <*> arg Language.LSP.Protocol.Types.Common..:!? "options"
generated/Language/LSP/Protocol/Internal/Types/DeleteFileOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -37,4 +39,4 @@     ,"ignoreIfNotExists" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON DeleteFileOptions where-  parseJSON = Aeson.withObject "DeleteFileOptions" $ \arg -> DeleteFileOptions <$> arg Aeson..:! "recursive" <*> arg Aeson..:! "ignoreIfNotExists"+  parseJSON = Aeson.withObject "DeleteFileOptions" $ \arg -> DeleteFileOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "recursive" <*> arg Language.LSP.Protocol.Types.Common..:!? "ignoreIfNotExists"
generated/Language/LSP/Protocol/Internal/Types/DeleteFilesParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/Diagnostic.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -92,4 +94,4 @@     ,"data" Language.LSP.Protocol.Types.Common..=? arg8]  instance Aeson.FromJSON Diagnostic where-  parseJSON = Aeson.withObject "Diagnostic" $ \arg -> Diagnostic <$> arg Aeson..: "range" <*> arg Aeson..:! "severity" <*> arg Aeson..:! "code" <*> arg Aeson..:! "codeDescription" <*> arg Aeson..:! "source" <*> arg Aeson..: "message" <*> arg Aeson..:! "tags" <*> arg Aeson..:! "relatedInformation" <*> arg Aeson..:! "data"+  parseJSON = Aeson.withObject "Diagnostic" $ \arg -> Diagnostic <$> arg Aeson..: "range" <*> arg Language.LSP.Protocol.Types.Common..:!? "severity" <*> arg Language.LSP.Protocol.Types.Common..:!? "code" <*> arg Language.LSP.Protocol.Types.Common..:!? "codeDescription" <*> arg Language.LSP.Protocol.Types.Common..:!? "source" <*> arg Aeson..: "message" <*> arg Language.LSP.Protocol.Types.Common..:!? "tags" <*> arg Language.LSP.Protocol.Types.Common..:!? "relatedInformation" <*> arg Language.LSP.Protocol.Types.Common..:!? "data"
generated/Language/LSP/Protocol/Internal/Types/DiagnosticClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -41,4 +43,4 @@     ,"relatedDocumentSupport" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON DiagnosticClientCapabilities where-  parseJSON = Aeson.withObject "DiagnosticClientCapabilities" $ \arg -> DiagnosticClientCapabilities <$> arg Aeson..:! "dynamicRegistration" <*> arg Aeson..:! "relatedDocumentSupport"+  parseJSON = Aeson.withObject "DiagnosticClientCapabilities" $ \arg -> DiagnosticClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "dynamicRegistration" <*> arg Language.LSP.Protocol.Types.Common..:!? "relatedDocumentSupport"
generated/Language/LSP/Protocol/Internal/Types/DiagnosticOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -54,4 +56,4 @@     ,["workspaceDiagnostics" Aeson..= arg3]]  instance Aeson.FromJSON DiagnosticOptions where-  parseJSON = Aeson.withObject "DiagnosticOptions" $ \arg -> DiagnosticOptions <$> arg Aeson..:! "workDoneProgress" <*> arg Aeson..:! "identifier" <*> arg Aeson..: "interFileDependencies" <*> arg Aeson..: "workspaceDiagnostics"+  parseJSON = Aeson.withObject "DiagnosticOptions" $ \arg -> DiagnosticOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress" <*> arg Language.LSP.Protocol.Types.Common..:!? "identifier" <*> arg Aeson..: "interFileDependencies" <*> arg Aeson..: "workspaceDiagnostics"
generated/Language/LSP/Protocol/Internal/Types/DiagnosticRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -67,4 +69,4 @@     ,"id" Language.LSP.Protocol.Types.Common..=? arg5]  instance Aeson.FromJSON DiagnosticRegistrationOptions where-  parseJSON = Aeson.withObject "DiagnosticRegistrationOptions" $ \arg -> DiagnosticRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Aeson..:! "workDoneProgress" <*> arg Aeson..:! "identifier" <*> arg Aeson..: "interFileDependencies" <*> arg Aeson..: "workspaceDiagnostics" <*> arg Aeson..:! "id"+  parseJSON = Aeson.withObject "DiagnosticRegistrationOptions" $ \arg -> DiagnosticRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress" <*> arg Language.LSP.Protocol.Types.Common..:!? "identifier" <*> arg Aeson..: "interFileDependencies" <*> arg Aeson..: "workspaceDiagnostics" <*> arg Language.LSP.Protocol.Types.Common..:!? "id"
generated/Language/LSP/Protocol/Internal/Types/DiagnosticRelatedInformation.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/DiagnosticServerCancellationData.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/DiagnosticSeverity.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -41,7 +43,7 @@   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)   deriving ( Aeson.ToJSON-  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum DiagnosticSeverity Language.LSP.Protocol.Types.Common.UInt)+  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum DiagnosticSeverity)   deriving Pretty via (ViaJSON DiagnosticSeverity)  instance Language.LSP.Protocol.Types.LspEnum.LspEnum DiagnosticSeverity where
generated/Language/LSP/Protocol/Internal/Types/DiagnosticTag.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -40,7 +42,7 @@   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)   deriving ( Aeson.ToJSON-  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum DiagnosticTag Language.LSP.Protocol.Types.Common.UInt)+  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum DiagnosticTag)   deriving Pretty via (ViaJSON DiagnosticTag)  instance Language.LSP.Protocol.Types.LspEnum.LspEnum DiagnosticTag where
generated/Language/LSP/Protocol/Internal/Types/DiagnosticWorkspaceClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -40,4 +42,4 @@   toJSON (DiagnosticWorkspaceClientCapabilities arg0) = Aeson.object $ concat $  ["refreshSupport" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON DiagnosticWorkspaceClientCapabilities where-  parseJSON = Aeson.withObject "DiagnosticWorkspaceClientCapabilities" $ \arg -> DiagnosticWorkspaceClientCapabilities <$> arg Aeson..:! "refreshSupport"+  parseJSON = Aeson.withObject "DiagnosticWorkspaceClientCapabilities" $ \arg -> DiagnosticWorkspaceClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "refreshSupport"
generated/Language/LSP/Protocol/Internal/Types/DidChangeConfigurationClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -32,4 +34,4 @@   toJSON (DidChangeConfigurationClientCapabilities arg0) = Aeson.object $ concat $  ["dynamicRegistration" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON DidChangeConfigurationClientCapabilities where-  parseJSON = Aeson.withObject "DidChangeConfigurationClientCapabilities" $ \arg -> DidChangeConfigurationClientCapabilities <$> arg Aeson..:! "dynamicRegistration"+  parseJSON = Aeson.withObject "DidChangeConfigurationClientCapabilities" $ \arg -> DidChangeConfigurationClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "dynamicRegistration"
generated/Language/LSP/Protocol/Internal/Types/DidChangeConfigurationParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/DidChangeConfigurationRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -33,4 +35,4 @@   toJSON (DidChangeConfigurationRegistrationOptions arg0) = Aeson.object $ concat $  ["section" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON DidChangeConfigurationRegistrationOptions where-  parseJSON = Aeson.withObject "DidChangeConfigurationRegistrationOptions" $ \arg -> DidChangeConfigurationRegistrationOptions <$> arg Aeson..:! "section"+  parseJSON = Aeson.withObject "DidChangeConfigurationRegistrationOptions" $ \arg -> DidChangeConfigurationRegistrationOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "section"
generated/Language/LSP/Protocol/Internal/Types/DidChangeNotebookDocumentParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/DidChangeTextDocumentParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/DidChangeWatchedFilesClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -42,4 +44,4 @@     ,"relativePatternSupport" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON DidChangeWatchedFilesClientCapabilities where-  parseJSON = Aeson.withObject "DidChangeWatchedFilesClientCapabilities" $ \arg -> DidChangeWatchedFilesClientCapabilities <$> arg Aeson..:! "dynamicRegistration" <*> arg Aeson..:! "relativePatternSupport"+  parseJSON = Aeson.withObject "DidChangeWatchedFilesClientCapabilities" $ \arg -> DidChangeWatchedFilesClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "dynamicRegistration" <*> arg Language.LSP.Protocol.Types.Common..:!? "relativePatternSupport"
generated/Language/LSP/Protocol/Internal/Types/DidChangeWatchedFilesParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/DidChangeWatchedFilesRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/DidChangeWorkspaceFoldersParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/DidCloseNotebookDocumentParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/DidCloseTextDocumentParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/DidOpenNotebookDocumentParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/DidOpenTextDocumentParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/DidSaveNotebookDocumentParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/DidSaveTextDocumentParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -40,4 +42,4 @@     ,"text" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON DidSaveTextDocumentParams where-  parseJSON = Aeson.withObject "DidSaveTextDocumentParams" $ \arg -> DidSaveTextDocumentParams <$> arg Aeson..: "textDocument" <*> arg Aeson..:! "text"+  parseJSON = Aeson.withObject "DidSaveTextDocumentParams" $ \arg -> DidSaveTextDocumentParams <$> arg Aeson..: "textDocument" <*> arg Language.LSP.Protocol.Types.Common..:!? "text"
generated/Language/LSP/Protocol/Internal/Types/DocumentColorClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -34,4 +36,4 @@   toJSON (DocumentColorClientCapabilities arg0) = Aeson.object $ concat $  ["dynamicRegistration" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON DocumentColorClientCapabilities where-  parseJSON = Aeson.withObject "DocumentColorClientCapabilities" $ \arg -> DocumentColorClientCapabilities <$> arg Aeson..:! "dynamicRegistration"+  parseJSON = Aeson.withObject "DocumentColorClientCapabilities" $ \arg -> DocumentColorClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "dynamicRegistration"
generated/Language/LSP/Protocol/Internal/Types/DocumentColorOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -32,4 +34,4 @@   toJSON (DocumentColorOptions arg0) = Aeson.object $ concat $  ["workDoneProgress" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON DocumentColorOptions where-  parseJSON = Aeson.withObject "DocumentColorOptions" $ \arg -> DocumentColorOptions <$> arg Aeson..:! "workDoneProgress"+  parseJSON = Aeson.withObject "DocumentColorOptions" $ \arg -> DocumentColorOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress"
generated/Language/LSP/Protocol/Internal/Types/DocumentColorParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -45,4 +47,4 @@     ,["textDocument" Aeson..= arg2]]  instance Aeson.FromJSON DocumentColorParams where-  parseJSON = Aeson.withObject "DocumentColorParams" $ \arg -> DocumentColorParams <$> arg Aeson..:! "workDoneToken" <*> arg Aeson..:! "partialResultToken" <*> arg Aeson..: "textDocument"+  parseJSON = Aeson.withObject "DocumentColorParams" $ \arg -> DocumentColorParams <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken" <*> arg Language.LSP.Protocol.Types.Common..:!? "partialResultToken" <*> arg Aeson..: "textDocument"
generated/Language/LSP/Protocol/Internal/Types/DocumentColorRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -46,4 +48,4 @@     ,"id" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON DocumentColorRegistrationOptions where-  parseJSON = Aeson.withObject "DocumentColorRegistrationOptions" $ \arg -> DocumentColorRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Aeson..:! "workDoneProgress" <*> arg Aeson..:! "id"+  parseJSON = Aeson.withObject "DocumentColorRegistrationOptions" $ \arg -> DocumentColorRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress" <*> arg Language.LSP.Protocol.Types.Common..:!? "id"
generated/Language/LSP/Protocol/Internal/Types/DocumentDiagnosticParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -58,4 +60,4 @@     ,"previousResultId" Language.LSP.Protocol.Types.Common..=? arg4]  instance Aeson.FromJSON DocumentDiagnosticParams where-  parseJSON = Aeson.withObject "DocumentDiagnosticParams" $ \arg -> DocumentDiagnosticParams <$> arg Aeson..:! "workDoneToken" <*> arg Aeson..:! "partialResultToken" <*> arg Aeson..: "textDocument" <*> arg Aeson..:! "identifier" <*> arg Aeson..:! "previousResultId"+  parseJSON = Aeson.withObject "DocumentDiagnosticParams" $ \arg -> DocumentDiagnosticParams <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken" <*> arg Language.LSP.Protocol.Types.Common..:!? "partialResultToken" <*> arg Aeson..: "textDocument" <*> arg Language.LSP.Protocol.Types.Common..:!? "identifier" <*> arg Language.LSP.Protocol.Types.Common..:!? "previousResultId"
generated/Language/LSP/Protocol/Internal/Types/DocumentDiagnosticReport.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/DocumentDiagnosticReportKind.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -37,7 +39,7 @@   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)   deriving ( Aeson.ToJSON-  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum DocumentDiagnosticReportKind Data.Text.Text)+  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum DocumentDiagnosticReportKind)   deriving Pretty via (ViaJSON DocumentDiagnosticReportKind)  instance Language.LSP.Protocol.Types.LspEnum.LspEnum DocumentDiagnosticReportKind where
generated/Language/LSP/Protocol/Internal/Types/DocumentDiagnosticReportPartialResult.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/DocumentFilter.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/DocumentFormattingClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -32,4 +34,4 @@   toJSON (DocumentFormattingClientCapabilities arg0) = Aeson.object $ concat $  ["dynamicRegistration" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON DocumentFormattingClientCapabilities where-  parseJSON = Aeson.withObject "DocumentFormattingClientCapabilities" $ \arg -> DocumentFormattingClientCapabilities <$> arg Aeson..:! "dynamicRegistration"+  parseJSON = Aeson.withObject "DocumentFormattingClientCapabilities" $ \arg -> DocumentFormattingClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "dynamicRegistration"
generated/Language/LSP/Protocol/Internal/Types/DocumentFormattingOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -32,4 +34,4 @@   toJSON (DocumentFormattingOptions arg0) = Aeson.object $ concat $  ["workDoneProgress" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON DocumentFormattingOptions where-  parseJSON = Aeson.withObject "DocumentFormattingOptions" $ \arg -> DocumentFormattingOptions <$> arg Aeson..:! "workDoneProgress"+  parseJSON = Aeson.withObject "DocumentFormattingOptions" $ \arg -> DocumentFormattingOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress"
generated/Language/LSP/Protocol/Internal/Types/DocumentFormattingParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -45,4 +47,4 @@     ,["options" Aeson..= arg2]]  instance Aeson.FromJSON DocumentFormattingParams where-  parseJSON = Aeson.withObject "DocumentFormattingParams" $ \arg -> DocumentFormattingParams <$> arg Aeson..:! "workDoneToken" <*> arg Aeson..: "textDocument" <*> arg Aeson..: "options"+  parseJSON = Aeson.withObject "DocumentFormattingParams" $ \arg -> DocumentFormattingParams <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken" <*> arg Aeson..: "textDocument" <*> arg Aeson..: "options"
generated/Language/LSP/Protocol/Internal/Types/DocumentFormattingRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -39,4 +41,4 @@     ,"workDoneProgress" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON DocumentFormattingRegistrationOptions where-  parseJSON = Aeson.withObject "DocumentFormattingRegistrationOptions" $ \arg -> DocumentFormattingRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Aeson..:! "workDoneProgress"+  parseJSON = Aeson.withObject "DocumentFormattingRegistrationOptions" $ \arg -> DocumentFormattingRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress"
generated/Language/LSP/Protocol/Internal/Types/DocumentHighlight.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -41,4 +43,4 @@     ,"kind" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON DocumentHighlight where-  parseJSON = Aeson.withObject "DocumentHighlight" $ \arg -> DocumentHighlight <$> arg Aeson..: "range" <*> arg Aeson..:! "kind"+  parseJSON = Aeson.withObject "DocumentHighlight" $ \arg -> DocumentHighlight <$> arg Aeson..: "range" <*> arg Language.LSP.Protocol.Types.Common..:!? "kind"
generated/Language/LSP/Protocol/Internal/Types/DocumentHighlightClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -32,4 +34,4 @@   toJSON (DocumentHighlightClientCapabilities arg0) = Aeson.object $ concat $  ["dynamicRegistration" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON DocumentHighlightClientCapabilities where-  parseJSON = Aeson.withObject "DocumentHighlightClientCapabilities" $ \arg -> DocumentHighlightClientCapabilities <$> arg Aeson..:! "dynamicRegistration"+  parseJSON = Aeson.withObject "DocumentHighlightClientCapabilities" $ \arg -> DocumentHighlightClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "dynamicRegistration"
generated/Language/LSP/Protocol/Internal/Types/DocumentHighlightKind.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -37,7 +39,7 @@   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)   deriving ( Aeson.ToJSON-  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum DocumentHighlightKind Language.LSP.Protocol.Types.Common.UInt)+  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum DocumentHighlightKind)   deriving Pretty via (ViaJSON DocumentHighlightKind)  instance Language.LSP.Protocol.Types.LspEnum.LspEnum DocumentHighlightKind where
generated/Language/LSP/Protocol/Internal/Types/DocumentHighlightOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -32,4 +34,4 @@   toJSON (DocumentHighlightOptions arg0) = Aeson.object $ concat $  ["workDoneProgress" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON DocumentHighlightOptions where-  parseJSON = Aeson.withObject "DocumentHighlightOptions" $ \arg -> DocumentHighlightOptions <$> arg Aeson..:! "workDoneProgress"+  parseJSON = Aeson.withObject "DocumentHighlightOptions" $ \arg -> DocumentHighlightOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress"
generated/Language/LSP/Protocol/Internal/Types/DocumentHighlightParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -51,4 +53,4 @@     ,"partialResultToken" Language.LSP.Protocol.Types.Common..=? arg3]  instance Aeson.FromJSON DocumentHighlightParams where-  parseJSON = Aeson.withObject "DocumentHighlightParams" $ \arg -> DocumentHighlightParams <$> arg Aeson..: "textDocument" <*> arg Aeson..: "position" <*> arg Aeson..:! "workDoneToken" <*> arg Aeson..:! "partialResultToken"+  parseJSON = Aeson.withObject "DocumentHighlightParams" $ \arg -> DocumentHighlightParams <$> arg Aeson..: "textDocument" <*> arg Aeson..: "position" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken" <*> arg Language.LSP.Protocol.Types.Common..:!? "partialResultToken"
generated/Language/LSP/Protocol/Internal/Types/DocumentHighlightRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -39,4 +41,4 @@     ,"workDoneProgress" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON DocumentHighlightRegistrationOptions where-  parseJSON = Aeson.withObject "DocumentHighlightRegistrationOptions" $ \arg -> DocumentHighlightRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Aeson..:! "workDoneProgress"+  parseJSON = Aeson.withObject "DocumentHighlightRegistrationOptions" $ \arg -> DocumentHighlightRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress"
generated/Language/LSP/Protocol/Internal/Types/DocumentLink.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -17,6 +19,7 @@ import qualified Data.Text import qualified Language.LSP.Protocol.Internal.Types.Range import qualified Language.LSP.Protocol.Types.Common+import qualified Language.LSP.Protocol.Types.Uri  {-| A document link is a range in a text document that links to an internal or external resource, like another@@ -30,7 +33,7 @@   , {-|   The uri this link points to. If missing a resolve request is sent later.   -}-  _target :: (Maybe Data.Text.Text)+  _target :: (Maybe Language.LSP.Protocol.Types.Uri.Uri)   , {-|   The tooltip text when you hover over this link. @@ -58,4 +61,4 @@     ,"data" Language.LSP.Protocol.Types.Common..=? arg3]  instance Aeson.FromJSON DocumentLink where-  parseJSON = Aeson.withObject "DocumentLink" $ \arg -> DocumentLink <$> arg Aeson..: "range" <*> arg Aeson..:! "target" <*> arg Aeson..:! "tooltip" <*> arg Aeson..:! "data"+  parseJSON = Aeson.withObject "DocumentLink" $ \arg -> DocumentLink <$> arg Aeson..: "range" <*> arg Language.LSP.Protocol.Types.Common..:!? "target" <*> arg Language.LSP.Protocol.Types.Common..:!? "tooltip" <*> arg Language.LSP.Protocol.Types.Common..:!? "data"
generated/Language/LSP/Protocol/Internal/Types/DocumentLinkClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -39,4 +41,4 @@     ,"tooltipSupport" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON DocumentLinkClientCapabilities where-  parseJSON = Aeson.withObject "DocumentLinkClientCapabilities" $ \arg -> DocumentLinkClientCapabilities <$> arg Aeson..:! "dynamicRegistration" <*> arg Aeson..:! "tooltipSupport"+  parseJSON = Aeson.withObject "DocumentLinkClientCapabilities" $ \arg -> DocumentLinkClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "dynamicRegistration" <*> arg Language.LSP.Protocol.Types.Common..:!? "tooltipSupport"
generated/Language/LSP/Protocol/Internal/Types/DocumentLinkOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -37,4 +39,4 @@     ,"resolveProvider" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON DocumentLinkOptions where-  parseJSON = Aeson.withObject "DocumentLinkOptions" $ \arg -> DocumentLinkOptions <$> arg Aeson..:! "workDoneProgress" <*> arg Aeson..:! "resolveProvider"+  parseJSON = Aeson.withObject "DocumentLinkOptions" $ \arg -> DocumentLinkOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress" <*> arg Language.LSP.Protocol.Types.Common..:!? "resolveProvider"
generated/Language/LSP/Protocol/Internal/Types/DocumentLinkParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -45,4 +47,4 @@     ,["textDocument" Aeson..= arg2]]  instance Aeson.FromJSON DocumentLinkParams where-  parseJSON = Aeson.withObject "DocumentLinkParams" $ \arg -> DocumentLinkParams <$> arg Aeson..:! "workDoneToken" <*> arg Aeson..:! "partialResultToken" <*> arg Aeson..: "textDocument"+  parseJSON = Aeson.withObject "DocumentLinkParams" $ \arg -> DocumentLinkParams <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken" <*> arg Language.LSP.Protocol.Types.Common..:!? "partialResultToken" <*> arg Aeson..: "textDocument"
generated/Language/LSP/Protocol/Internal/Types/DocumentLinkRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -44,4 +46,4 @@     ,"resolveProvider" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON DocumentLinkRegistrationOptions where-  parseJSON = Aeson.withObject "DocumentLinkRegistrationOptions" $ \arg -> DocumentLinkRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Aeson..:! "workDoneProgress" <*> arg Aeson..:! "resolveProvider"+  parseJSON = Aeson.withObject "DocumentLinkRegistrationOptions" $ \arg -> DocumentLinkRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress" <*> arg Language.LSP.Protocol.Types.Common..:!? "resolveProvider"
generated/Language/LSP/Protocol/Internal/Types/DocumentOnTypeFormattingClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -32,4 +34,4 @@   toJSON (DocumentOnTypeFormattingClientCapabilities arg0) = Aeson.object $ concat $  ["dynamicRegistration" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON DocumentOnTypeFormattingClientCapabilities where-  parseJSON = Aeson.withObject "DocumentOnTypeFormattingClientCapabilities" $ \arg -> DocumentOnTypeFormattingClientCapabilities <$> arg Aeson..:! "dynamicRegistration"+  parseJSON = Aeson.withObject "DocumentOnTypeFormattingClientCapabilities" $ \arg -> DocumentOnTypeFormattingClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "dynamicRegistration"
generated/Language/LSP/Protocol/Internal/Types/DocumentOnTypeFormattingOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -38,4 +40,4 @@     ,"moreTriggerCharacter" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON DocumentOnTypeFormattingOptions where-  parseJSON = Aeson.withObject "DocumentOnTypeFormattingOptions" $ \arg -> DocumentOnTypeFormattingOptions <$> arg Aeson..: "firstTriggerCharacter" <*> arg Aeson..:! "moreTriggerCharacter"+  parseJSON = Aeson.withObject "DocumentOnTypeFormattingOptions" $ \arg -> DocumentOnTypeFormattingOptions <$> arg Aeson..: "firstTriggerCharacter" <*> arg Language.LSP.Protocol.Types.Common..:!? "moreTriggerCharacter"
generated/Language/LSP/Protocol/Internal/Types/DocumentOnTypeFormattingParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/DocumentOnTypeFormattingRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -45,4 +47,4 @@     ,"moreTriggerCharacter" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON DocumentOnTypeFormattingRegistrationOptions where-  parseJSON = Aeson.withObject "DocumentOnTypeFormattingRegistrationOptions" $ \arg -> DocumentOnTypeFormattingRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Aeson..: "firstTriggerCharacter" <*> arg Aeson..:! "moreTriggerCharacter"+  parseJSON = Aeson.withObject "DocumentOnTypeFormattingRegistrationOptions" $ \arg -> DocumentOnTypeFormattingRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Aeson..: "firstTriggerCharacter" <*> arg Language.LSP.Protocol.Types.Common..:!? "moreTriggerCharacter"
generated/Language/LSP/Protocol/Internal/Types/DocumentRangeFormattingClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -32,4 +34,4 @@   toJSON (DocumentRangeFormattingClientCapabilities arg0) = Aeson.object $ concat $  ["dynamicRegistration" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON DocumentRangeFormattingClientCapabilities where-  parseJSON = Aeson.withObject "DocumentRangeFormattingClientCapabilities" $ \arg -> DocumentRangeFormattingClientCapabilities <$> arg Aeson..:! "dynamicRegistration"+  parseJSON = Aeson.withObject "DocumentRangeFormattingClientCapabilities" $ \arg -> DocumentRangeFormattingClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "dynamicRegistration"
generated/Language/LSP/Protocol/Internal/Types/DocumentRangeFormattingOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -32,4 +34,4 @@   toJSON (DocumentRangeFormattingOptions arg0) = Aeson.object $ concat $  ["workDoneProgress" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON DocumentRangeFormattingOptions where-  parseJSON = Aeson.withObject "DocumentRangeFormattingOptions" $ \arg -> DocumentRangeFormattingOptions <$> arg Aeson..:! "workDoneProgress"+  parseJSON = Aeson.withObject "DocumentRangeFormattingOptions" $ \arg -> DocumentRangeFormattingOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress"
generated/Language/LSP/Protocol/Internal/Types/DocumentRangeFormattingParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -51,4 +53,4 @@     ,["options" Aeson..= arg3]]  instance Aeson.FromJSON DocumentRangeFormattingParams where-  parseJSON = Aeson.withObject "DocumentRangeFormattingParams" $ \arg -> DocumentRangeFormattingParams <$> arg Aeson..:! "workDoneToken" <*> arg Aeson..: "textDocument" <*> arg Aeson..: "range" <*> arg Aeson..: "options"+  parseJSON = Aeson.withObject "DocumentRangeFormattingParams" $ \arg -> DocumentRangeFormattingParams <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken" <*> arg Aeson..: "textDocument" <*> arg Aeson..: "range" <*> arg Aeson..: "options"
generated/Language/LSP/Protocol/Internal/Types/DocumentRangeFormattingRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -39,4 +41,4 @@     ,"workDoneProgress" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON DocumentRangeFormattingRegistrationOptions where-  parseJSON = Aeson.withObject "DocumentRangeFormattingRegistrationOptions" $ \arg -> DocumentRangeFormattingRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Aeson..:! "workDoneProgress"+  parseJSON = Aeson.withObject "DocumentRangeFormattingRegistrationOptions" $ \arg -> DocumentRangeFormattingRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress"
generated/Language/LSP/Protocol/Internal/Types/DocumentSelector.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/DocumentSymbol.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -82,4 +84,4 @@     ,"children" Language.LSP.Protocol.Types.Common..=? arg7]  instance Aeson.FromJSON DocumentSymbol where-  parseJSON = Aeson.withObject "DocumentSymbol" $ \arg -> DocumentSymbol <$> arg Aeson..: "name" <*> arg Aeson..:! "detail" <*> arg Aeson..: "kind" <*> arg Aeson..:! "tags" <*> arg Aeson..:! "deprecated" <*> arg Aeson..: "range" <*> arg Aeson..: "selectionRange" <*> arg Aeson..:! "children"+  parseJSON = Aeson.withObject "DocumentSymbol" $ \arg -> DocumentSymbol <$> arg Aeson..: "name" <*> arg Language.LSP.Protocol.Types.Common..:!? "detail" <*> arg Aeson..: "kind" <*> arg Language.LSP.Protocol.Types.Common..:!? "tags" <*> arg Language.LSP.Protocol.Types.Common..:!? "deprecated" <*> arg Aeson..: "range" <*> arg Aeson..: "selectionRange" <*> arg Language.LSP.Protocol.Types.Common..:!? "children"
generated/Language/LSP/Protocol/Internal/Types/DocumentSymbolClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -11,11 +13,10 @@ import Language.LSP.Protocol.Utils.Misc import Prettyprinter import qualified Data.Aeson as Aeson-import qualified Data.Row as Row import qualified Data.Row.Aeson as Aeson import qualified Data.Row.Hashable as Hashable-import qualified Language.LSP.Protocol.Internal.Types.SymbolKind-import qualified Language.LSP.Protocol.Internal.Types.SymbolTag+import qualified Language.LSP.Protocol.Internal.Types.ClientSymbolKindOptions+import qualified Language.LSP.Protocol.Internal.Types.ClientSymbolTagOptions import qualified Language.LSP.Protocol.Types.Common  {-|@@ -30,7 +31,7 @@   Specific capabilities for the `SymbolKind` in the   `textDocument/documentSymbol` request.   -}-  _symbolKind :: (Maybe (Row.Rec ("valueSet" Row..== (Maybe [Language.LSP.Protocol.Internal.Types.SymbolKind.SymbolKind]) Row..+ Row.Empty)))+  _symbolKind :: (Maybe Language.LSP.Protocol.Internal.Types.ClientSymbolKindOptions.ClientSymbolKindOptions)   , {-|   The client supports hierarchical document symbols.   -}@@ -42,7 +43,7 @@    @since 3.16.0   -}-  _tagSupport :: (Maybe (Row.Rec ("valueSet" Row..== [Language.LSP.Protocol.Internal.Types.SymbolTag.SymbolTag] Row..+ Row.Empty)))+  _tagSupport :: (Maybe Language.LSP.Protocol.Internal.Types.ClientSymbolTagOptions.ClientSymbolTagOptions)   , {-|   The client supports an additional label presented in the UI when   registering a document symbol provider.@@ -63,4 +64,4 @@     ,"labelSupport" Language.LSP.Protocol.Types.Common..=? arg4]  instance Aeson.FromJSON DocumentSymbolClientCapabilities where-  parseJSON = Aeson.withObject "DocumentSymbolClientCapabilities" $ \arg -> DocumentSymbolClientCapabilities <$> arg Aeson..:! "dynamicRegistration" <*> arg Aeson..:! "symbolKind" <*> arg Aeson..:! "hierarchicalDocumentSymbolSupport" <*> arg Aeson..:! "tagSupport" <*> arg Aeson..:! "labelSupport"+  parseJSON = Aeson.withObject "DocumentSymbolClientCapabilities" $ \arg -> DocumentSymbolClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "dynamicRegistration" <*> arg Language.LSP.Protocol.Types.Common..:!? "symbolKind" <*> arg Language.LSP.Protocol.Types.Common..:!? "hierarchicalDocumentSymbolSupport" <*> arg Language.LSP.Protocol.Types.Common..:!? "tagSupport" <*> arg Language.LSP.Protocol.Types.Common..:!? "labelSupport"
generated/Language/LSP/Protocol/Internal/Types/DocumentSymbolOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -41,4 +43,4 @@     ,"label" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON DocumentSymbolOptions where-  parseJSON = Aeson.withObject "DocumentSymbolOptions" $ \arg -> DocumentSymbolOptions <$> arg Aeson..:! "workDoneProgress" <*> arg Aeson..:! "label"+  parseJSON = Aeson.withObject "DocumentSymbolOptions" $ \arg -> DocumentSymbolOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress" <*> arg Language.LSP.Protocol.Types.Common..:!? "label"
generated/Language/LSP/Protocol/Internal/Types/DocumentSymbolParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -45,4 +47,4 @@     ,["textDocument" Aeson..= arg2]]  instance Aeson.FromJSON DocumentSymbolParams where-  parseJSON = Aeson.withObject "DocumentSymbolParams" $ \arg -> DocumentSymbolParams <$> arg Aeson..:! "workDoneToken" <*> arg Aeson..:! "partialResultToken" <*> arg Aeson..: "textDocument"+  parseJSON = Aeson.withObject "DocumentSymbolParams" $ \arg -> DocumentSymbolParams <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken" <*> arg Language.LSP.Protocol.Types.Common..:!? "partialResultToken" <*> arg Aeson..: "textDocument"
generated/Language/LSP/Protocol/Internal/Types/DocumentSymbolRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -48,4 +50,4 @@     ,"label" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON DocumentSymbolRegistrationOptions where-  parseJSON = Aeson.withObject "DocumentSymbolRegistrationOptions" $ \arg -> DocumentSymbolRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Aeson..:! "workDoneProgress" <*> arg Aeson..:! "label"+  parseJSON = Aeson.withObject "DocumentSymbolRegistrationOptions" $ \arg -> DocumentSymbolRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress" <*> arg Language.LSP.Protocol.Types.Common..:!? "label"
+ generated/Language/LSP/Protocol/Internal/Types/EditRangeWithInsertReplace.hs view
@@ -0,0 +1,46 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.EditRangeWithInsertReplace where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Language.LSP.Protocol.Internal.Types.Range+import qualified Language.LSP.Protocol.Types.Common++{-|+Edit range variant that includes ranges for insert and replace operations.++@since 3.18.0+@proposed+-}+data EditRangeWithInsertReplace = EditRangeWithInsertReplace +  { {-|++  -}+  _insert :: Language.LSP.Protocol.Internal.Types.Range.Range+  , {-|++  -}+  _replace :: Language.LSP.Protocol.Internal.Types.Range.Range+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON EditRangeWithInsertReplace)++instance Aeson.ToJSON EditRangeWithInsertReplace where+  toJSON (EditRangeWithInsertReplace arg0 arg1) = Aeson.object $ concat $  [["insert" Aeson..= arg0]+    ,["replace" Aeson..= arg1]]++instance Aeson.FromJSON EditRangeWithInsertReplace where+  parseJSON = Aeson.withObject "EditRangeWithInsertReplace" $ \arg -> EditRangeWithInsertReplace <$> arg Aeson..: "insert" <*> arg Aeson..: "replace"
generated/Language/LSP/Protocol/Internal/Types/ErrorCodes.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -55,7 +57,7 @@   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)   deriving ( Aeson.ToJSON-  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum ErrorCodes Language.LSP.Protocol.Types.Common.Int32)+  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum ErrorCodes)   deriving Pretty via (ViaJSON ErrorCodes)  instance Language.LSP.Protocol.Types.LspEnum.LspEnum ErrorCodes where
generated/Language/LSP/Protocol/Internal/Types/ExecuteCommandClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -32,4 +34,4 @@   toJSON (ExecuteCommandClientCapabilities arg0) = Aeson.object $ concat $  ["dynamicRegistration" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON ExecuteCommandClientCapabilities where-  parseJSON = Aeson.withObject "ExecuteCommandClientCapabilities" $ \arg -> ExecuteCommandClientCapabilities <$> arg Aeson..:! "dynamicRegistration"+  parseJSON = Aeson.withObject "ExecuteCommandClientCapabilities" $ \arg -> ExecuteCommandClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "dynamicRegistration"
generated/Language/LSP/Protocol/Internal/Types/ExecuteCommandOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -38,4 +40,4 @@     ,["commands" Aeson..= arg1]]  instance Aeson.FromJSON ExecuteCommandOptions where-  parseJSON = Aeson.withObject "ExecuteCommandOptions" $ \arg -> ExecuteCommandOptions <$> arg Aeson..:! "workDoneProgress" <*> arg Aeson..: "commands"+  parseJSON = Aeson.withObject "ExecuteCommandOptions" $ \arg -> ExecuteCommandOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress" <*> arg Aeson..: "commands"
generated/Language/LSP/Protocol/Internal/Types/ExecuteCommandParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -45,4 +47,4 @@     ,"arguments" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON ExecuteCommandParams where-  parseJSON = Aeson.withObject "ExecuteCommandParams" $ \arg -> ExecuteCommandParams <$> arg Aeson..:! "workDoneToken" <*> arg Aeson..: "command" <*> arg Aeson..:! "arguments"+  parseJSON = Aeson.withObject "ExecuteCommandParams" $ \arg -> ExecuteCommandParams <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken" <*> arg Aeson..: "command" <*> arg Language.LSP.Protocol.Types.Common..:!? "arguments"
generated/Language/LSP/Protocol/Internal/Types/ExecuteCommandRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -38,4 +40,4 @@     ,["commands" Aeson..= arg1]]  instance Aeson.FromJSON ExecuteCommandRegistrationOptions where-  parseJSON = Aeson.withObject "ExecuteCommandRegistrationOptions" $ \arg -> ExecuteCommandRegistrationOptions <$> arg Aeson..:! "workDoneProgress" <*> arg Aeson..: "commands"+  parseJSON = Aeson.withObject "ExecuteCommandRegistrationOptions" $ \arg -> ExecuteCommandRegistrationOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress" <*> arg Aeson..: "commands"
generated/Language/LSP/Protocol/Internal/Types/ExecutionSummary.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -40,4 +42,4 @@     ,"success" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON ExecutionSummary where-  parseJSON = Aeson.withObject "ExecutionSummary" $ \arg -> ExecutionSummary <$> arg Aeson..: "executionOrder" <*> arg Aeson..:! "success"+  parseJSON = Aeson.withObject "ExecutionSummary" $ \arg -> ExecutionSummary <$> arg Aeson..: "executionOrder" <*> arg Language.LSP.Protocol.Types.Common..:!? "success"
generated/Language/LSP/Protocol/Internal/Types/FailureHandlingKind.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -46,7 +48,7 @@   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)   deriving ( Aeson.ToJSON-  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum FailureHandlingKind Data.Text.Text)+  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum FailureHandlingKind)   deriving Pretty via (ViaJSON FailureHandlingKind)  instance Language.LSP.Protocol.Types.LspEnum.LspEnum FailureHandlingKind where
generated/Language/LSP/Protocol/Internal/Types/FileChangeType.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -37,7 +39,7 @@   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)   deriving ( Aeson.ToJSON-  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum FileChangeType Language.LSP.Protocol.Types.Common.UInt)+  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum FileChangeType)   deriving Pretty via (ViaJSON FileChangeType)  instance Language.LSP.Protocol.Types.LspEnum.LspEnum FileChangeType where
generated/Language/LSP/Protocol/Internal/Types/FileCreate.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/FileDelete.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/FileEvent.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/FileOperationClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -67,4 +69,4 @@     ,"willDelete" Language.LSP.Protocol.Types.Common..=? arg6]  instance Aeson.FromJSON FileOperationClientCapabilities where-  parseJSON = Aeson.withObject "FileOperationClientCapabilities" $ \arg -> FileOperationClientCapabilities <$> arg Aeson..:! "dynamicRegistration" <*> arg Aeson..:! "didCreate" <*> arg Aeson..:! "willCreate" <*> arg Aeson..:! "didRename" <*> arg Aeson..:! "willRename" <*> arg Aeson..:! "didDelete" <*> arg Aeson..:! "willDelete"+  parseJSON = Aeson.withObject "FileOperationClientCapabilities" $ \arg -> FileOperationClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "dynamicRegistration" <*> arg Language.LSP.Protocol.Types.Common..:!? "didCreate" <*> arg Language.LSP.Protocol.Types.Common..:!? "willCreate" <*> arg Language.LSP.Protocol.Types.Common..:!? "didRename" <*> arg Language.LSP.Protocol.Types.Common..:!? "willRename" <*> arg Language.LSP.Protocol.Types.Common..:!? "didDelete" <*> arg Language.LSP.Protocol.Types.Common..:!? "willDelete"
generated/Language/LSP/Protocol/Internal/Types/FileOperationFilter.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -42,4 +44,4 @@     ,["pattern" Aeson..= arg1]]  instance Aeson.FromJSON FileOperationFilter where-  parseJSON = Aeson.withObject "FileOperationFilter" $ \arg -> FileOperationFilter <$> arg Aeson..:! "scheme" <*> arg Aeson..: "pattern"+  parseJSON = Aeson.withObject "FileOperationFilter" $ \arg -> FileOperationFilter <$> arg Language.LSP.Protocol.Types.Common..:!? "scheme" <*> arg Aeson..: "pattern"
generated/Language/LSP/Protocol/Internal/Types/FileOperationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -60,4 +62,4 @@     ,"willDelete" Language.LSP.Protocol.Types.Common..=? arg5]  instance Aeson.FromJSON FileOperationOptions where-  parseJSON = Aeson.withObject "FileOperationOptions" $ \arg -> FileOperationOptions <$> arg Aeson..:! "didCreate" <*> arg Aeson..:! "willCreate" <*> arg Aeson..:! "didRename" <*> arg Aeson..:! "willRename" <*> arg Aeson..:! "didDelete" <*> arg Aeson..:! "willDelete"+  parseJSON = Aeson.withObject "FileOperationOptions" $ \arg -> FileOperationOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "didCreate" <*> arg Language.LSP.Protocol.Types.Common..:!? "willCreate" <*> arg Language.LSP.Protocol.Types.Common..:!? "didRename" <*> arg Language.LSP.Protocol.Types.Common..:!? "willRename" <*> arg Language.LSP.Protocol.Types.Common..:!? "didDelete" <*> arg Language.LSP.Protocol.Types.Common..:!? "willDelete"
generated/Language/LSP/Protocol/Internal/Types/FileOperationPattern.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -56,4 +58,4 @@     ,"options" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON FileOperationPattern where-  parseJSON = Aeson.withObject "FileOperationPattern" $ \arg -> FileOperationPattern <$> arg Aeson..: "glob" <*> arg Aeson..:! "matches" <*> arg Aeson..:! "options"+  parseJSON = Aeson.withObject "FileOperationPattern" $ \arg -> FileOperationPattern <$> arg Aeson..: "glob" <*> arg Language.LSP.Protocol.Types.Common..:!? "matches" <*> arg Language.LSP.Protocol.Types.Common..:!? "options"
generated/Language/LSP/Protocol/Internal/Types/FileOperationPatternKind.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -36,7 +38,7 @@   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)   deriving ( Aeson.ToJSON-  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum FileOperationPatternKind Data.Text.Text)+  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum FileOperationPatternKind)   deriving Pretty via (ViaJSON FileOperationPatternKind)  instance Language.LSP.Protocol.Types.LspEnum.LspEnum FileOperationPatternKind where
generated/Language/LSP/Protocol/Internal/Types/FileOperationPatternOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -34,4 +36,4 @@   toJSON (FileOperationPatternOptions arg0) = Aeson.object $ concat $  ["ignoreCase" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON FileOperationPatternOptions where-  parseJSON = Aeson.withObject "FileOperationPatternOptions" $ \arg -> FileOperationPatternOptions <$> arg Aeson..:! "ignoreCase"+  parseJSON = Aeson.withObject "FileOperationPatternOptions" $ \arg -> FileOperationPatternOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "ignoreCase"
generated/Language/LSP/Protocol/Internal/Types/FileOperationRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/FileRename.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/FileSystemWatcher.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -43,4 +45,4 @@     ,"kind" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON FileSystemWatcher where-  parseJSON = Aeson.withObject "FileSystemWatcher" $ \arg -> FileSystemWatcher <$> arg Aeson..: "globPattern" <*> arg Aeson..:! "kind"+  parseJSON = Aeson.withObject "FileSystemWatcher" $ \arg -> FileSystemWatcher <$> arg Aeson..: "globPattern" <*> arg Language.LSP.Protocol.Types.Common..:!? "kind"
generated/Language/LSP/Protocol/Internal/Types/FoldingRange.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -41,7 +43,7 @@   -}   _endCharacter :: (Maybe Language.LSP.Protocol.Types.Common.UInt)   , {-|-  Describes the kind of the folding range such as `comment' or 'region'. The kind+  Describes the kind of the folding range such as 'comment' or 'region'. The kind   is used to categorize folding ranges and used by commands like 'Fold all comments'.   See `FoldingRangeKind` for an enumeration of standardized kinds.   -}@@ -68,4 +70,4 @@     ,"collapsedText" Language.LSP.Protocol.Types.Common..=? arg5]  instance Aeson.FromJSON FoldingRange where-  parseJSON = Aeson.withObject "FoldingRange" $ \arg -> FoldingRange <$> arg Aeson..: "startLine" <*> arg Aeson..:! "startCharacter" <*> arg Aeson..: "endLine" <*> arg Aeson..:! "endCharacter" <*> arg Aeson..:! "kind" <*> arg Aeson..:! "collapsedText"+  parseJSON = Aeson.withObject "FoldingRange" $ \arg -> FoldingRange <$> arg Aeson..: "startLine" <*> arg Language.LSP.Protocol.Types.Common..:!? "startCharacter" <*> arg Aeson..: "endLine" <*> arg Language.LSP.Protocol.Types.Common..:!? "endCharacter" <*> arg Language.LSP.Protocol.Types.Common..:!? "kind" <*> arg Language.LSP.Protocol.Types.Common..:!? "collapsedText"
generated/Language/LSP/Protocol/Internal/Types/FoldingRangeClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -11,10 +13,10 @@ import Language.LSP.Protocol.Utils.Misc import Prettyprinter import qualified Data.Aeson as Aeson-import qualified Data.Row as Row import qualified Data.Row.Aeson as Aeson import qualified Data.Row.Hashable as Hashable-import qualified Language.LSP.Protocol.Internal.Types.FoldingRangeKind+import qualified Language.LSP.Protocol.Internal.Types.ClientFoldingRangeKindOptions+import qualified Language.LSP.Protocol.Internal.Types.ClientFoldingRangeOptions import qualified Language.LSP.Protocol.Types.Common  {-|@@ -45,13 +47,13 @@    @since 3.17.0   -}-  _foldingRangeKind :: (Maybe (Row.Rec ("valueSet" Row..== (Maybe [Language.LSP.Protocol.Internal.Types.FoldingRangeKind.FoldingRangeKind]) Row..+ Row.Empty)))+  _foldingRangeKind :: (Maybe Language.LSP.Protocol.Internal.Types.ClientFoldingRangeKindOptions.ClientFoldingRangeKindOptions)   , {-|   Specific options for the folding range.    @since 3.17.0   -}-  _foldingRange :: (Maybe (Row.Rec ("collapsedText" Row..== (Maybe Bool) Row..+ Row.Empty)))+  _foldingRange :: (Maybe Language.LSP.Protocol.Internal.Types.ClientFoldingRangeOptions.ClientFoldingRangeOptions)   }   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)@@ -65,4 +67,4 @@     ,"foldingRange" Language.LSP.Protocol.Types.Common..=? arg4]  instance Aeson.FromJSON FoldingRangeClientCapabilities where-  parseJSON = Aeson.withObject "FoldingRangeClientCapabilities" $ \arg -> FoldingRangeClientCapabilities <$> arg Aeson..:! "dynamicRegistration" <*> arg Aeson..:! "rangeLimit" <*> arg Aeson..:! "lineFoldingOnly" <*> arg Aeson..:! "foldingRangeKind" <*> arg Aeson..:! "foldingRange"+  parseJSON = Aeson.withObject "FoldingRangeClientCapabilities" $ \arg -> FoldingRangeClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "dynamicRegistration" <*> arg Language.LSP.Protocol.Types.Common..:!? "rangeLimit" <*> arg Language.LSP.Protocol.Types.Common..:!? "lineFoldingOnly" <*> arg Language.LSP.Protocol.Types.Common..:!? "foldingRangeKind" <*> arg Language.LSP.Protocol.Types.Common..:!? "foldingRange"
generated/Language/LSP/Protocol/Internal/Types/FoldingRangeKind.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -39,7 +41,7 @@   deriving anyclass (NFData, Hashable)   deriving ( Aeson.ToJSON   , Aeson.FromJSON-  , Data.String.IsString ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum FoldingRangeKind Data.Text.Text)+  , Data.String.IsString ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum FoldingRangeKind)   deriving Pretty via (ViaJSON FoldingRangeKind)  instance Language.LSP.Protocol.Types.LspEnum.LspEnum FoldingRangeKind where
generated/Language/LSP/Protocol/Internal/Types/FoldingRangeOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -32,4 +34,4 @@   toJSON (FoldingRangeOptions arg0) = Aeson.object $ concat $  ["workDoneProgress" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON FoldingRangeOptions where-  parseJSON = Aeson.withObject "FoldingRangeOptions" $ \arg -> FoldingRangeOptions <$> arg Aeson..:! "workDoneProgress"+  parseJSON = Aeson.withObject "FoldingRangeOptions" $ \arg -> FoldingRangeOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress"
generated/Language/LSP/Protocol/Internal/Types/FoldingRangeParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -45,4 +47,4 @@     ,["textDocument" Aeson..= arg2]]  instance Aeson.FromJSON FoldingRangeParams where-  parseJSON = Aeson.withObject "FoldingRangeParams" $ \arg -> FoldingRangeParams <$> arg Aeson..:! "workDoneToken" <*> arg Aeson..:! "partialResultToken" <*> arg Aeson..: "textDocument"+  parseJSON = Aeson.withObject "FoldingRangeParams" $ \arg -> FoldingRangeParams <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken" <*> arg Language.LSP.Protocol.Types.Common..:!? "partialResultToken" <*> arg Aeson..: "textDocument"
generated/Language/LSP/Protocol/Internal/Types/FoldingRangeRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -46,4 +48,4 @@     ,"id" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON FoldingRangeRegistrationOptions where-  parseJSON = Aeson.withObject "FoldingRangeRegistrationOptions" $ \arg -> FoldingRangeRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Aeson..:! "workDoneProgress" <*> arg Aeson..:! "id"+  parseJSON = Aeson.withObject "FoldingRangeRegistrationOptions" $ \arg -> FoldingRangeRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress" <*> arg Language.LSP.Protocol.Types.Common..:!? "id"
generated/Language/LSP/Protocol/Internal/Types/FormattingOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -58,4 +60,4 @@     ,"trimFinalNewlines" Language.LSP.Protocol.Types.Common..=? arg4]  instance Aeson.FromJSON FormattingOptions where-  parseJSON = Aeson.withObject "FormattingOptions" $ \arg -> FormattingOptions <$> arg Aeson..: "tabSize" <*> arg Aeson..: "insertSpaces" <*> arg Aeson..:! "trimTrailingWhitespace" <*> arg Aeson..:! "insertFinalNewline" <*> arg Aeson..:! "trimFinalNewlines"+  parseJSON = Aeson.withObject "FormattingOptions" $ \arg -> FormattingOptions <$> arg Aeson..: "tabSize" <*> arg Aeson..: "insertSpaces" <*> arg Language.LSP.Protocol.Types.Common..:!? "trimTrailingWhitespace" <*> arg Language.LSP.Protocol.Types.Common..:!? "insertFinalNewline" <*> arg Language.LSP.Protocol.Types.Common..:!? "trimFinalNewlines"
generated/Language/LSP/Protocol/Internal/Types/FullDocumentDiagnosticReport.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -49,4 +51,4 @@     ,["items" Aeson..= arg2]]  instance Aeson.FromJSON FullDocumentDiagnosticReport where-  parseJSON = Aeson.withObject "FullDocumentDiagnosticReport" $ \arg -> FullDocumentDiagnosticReport <$> arg Aeson..: "kind" <*> arg Aeson..:! "resultId" <*> arg Aeson..: "items"+  parseJSON = Aeson.withObject "FullDocumentDiagnosticReport" $ \arg -> FullDocumentDiagnosticReport <$> arg Aeson..: "kind" <*> arg Language.LSP.Protocol.Types.Common..:!? "resultId" <*> arg Aeson..: "items"
generated/Language/LSP/Protocol/Internal/Types/GeneralClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -11,13 +13,12 @@ import Language.LSP.Protocol.Utils.Misc import Prettyprinter import qualified Data.Aeson as Aeson-import qualified Data.Row as Row import qualified Data.Row.Aeson as Aeson import qualified Data.Row.Hashable as Hashable-import qualified Data.Text import qualified Language.LSP.Protocol.Internal.Types.MarkdownClientCapabilities import qualified Language.LSP.Protocol.Internal.Types.PositionEncodingKind import qualified Language.LSP.Protocol.Internal.Types.RegularExpressionsClientCapabilities+import qualified Language.LSP.Protocol.Internal.Types.StaleRequestSupportOptions import qualified Language.LSP.Protocol.Types.Common  {-|@@ -34,7 +35,7 @@    @since 3.17.0   -}-  _staleRequestSupport :: (Maybe (Row.Rec ("cancel" Row..== Bool Row..+ ("retryOnContentModified" Row..== [Data.Text.Text] Row..+ Row.Empty))))+  _staleRequestSupport :: (Maybe Language.LSP.Protocol.Internal.Types.StaleRequestSupportOptions.StaleRequestSupportOptions)   , {-|   Client capabilities specific to regular expressions. @@ -80,4 +81,4 @@     ,"positionEncodings" Language.LSP.Protocol.Types.Common..=? arg3]  instance Aeson.FromJSON GeneralClientCapabilities where-  parseJSON = Aeson.withObject "GeneralClientCapabilities" $ \arg -> GeneralClientCapabilities <$> arg Aeson..:! "staleRequestSupport" <*> arg Aeson..:! "regularExpressions" <*> arg Aeson..:! "markdown" <*> arg Aeson..:! "positionEncodings"+  parseJSON = Aeson.withObject "GeneralClientCapabilities" $ \arg -> GeneralClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "staleRequestSupport" <*> arg Language.LSP.Protocol.Types.Common..:!? "regularExpressions" <*> arg Language.LSP.Protocol.Types.Common..:!? "markdown" <*> arg Language.LSP.Protocol.Types.Common..:!? "positionEncodings"
generated/Language/LSP/Protocol/Internal/Types/GlobPattern.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/Hover.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -41,4 +43,4 @@     ,"range" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON Hover where-  parseJSON = Aeson.withObject "Hover" $ \arg -> Hover <$> arg Aeson..: "contents" <*> arg Aeson..:! "range"+  parseJSON = Aeson.withObject "Hover" $ \arg -> Hover <$> arg Aeson..: "contents" <*> arg Language.LSP.Protocol.Types.Common..:!? "range"
generated/Language/LSP/Protocol/Internal/Types/HoverClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -39,4 +41,4 @@     ,"contentFormat" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON HoverClientCapabilities where-  parseJSON = Aeson.withObject "HoverClientCapabilities" $ \arg -> HoverClientCapabilities <$> arg Aeson..:! "dynamicRegistration" <*> arg Aeson..:! "contentFormat"+  parseJSON = Aeson.withObject "HoverClientCapabilities" $ \arg -> HoverClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "dynamicRegistration" <*> arg Language.LSP.Protocol.Types.Common..:!? "contentFormat"
generated/Language/LSP/Protocol/Internal/Types/HoverOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -32,4 +34,4 @@   toJSON (HoverOptions arg0) = Aeson.object $ concat $  ["workDoneProgress" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON HoverOptions where-  parseJSON = Aeson.withObject "HoverOptions" $ \arg -> HoverOptions <$> arg Aeson..:! "workDoneProgress"+  parseJSON = Aeson.withObject "HoverOptions" $ \arg -> HoverOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress"
generated/Language/LSP/Protocol/Internal/Types/HoverParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -45,4 +47,4 @@     ,"workDoneToken" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON HoverParams where-  parseJSON = Aeson.withObject "HoverParams" $ \arg -> HoverParams <$> arg Aeson..: "textDocument" <*> arg Aeson..: "position" <*> arg Aeson..:! "workDoneToken"+  parseJSON = Aeson.withObject "HoverParams" $ \arg -> HoverParams <$> arg Aeson..: "textDocument" <*> arg Aeson..: "position" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken"
generated/Language/LSP/Protocol/Internal/Types/HoverRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -39,4 +41,4 @@     ,"workDoneProgress" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON HoverRegistrationOptions where-  parseJSON = Aeson.withObject "HoverRegistrationOptions" $ \arg -> HoverRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Aeson..:! "workDoneProgress"+  parseJSON = Aeson.withObject "HoverRegistrationOptions" $ \arg -> HoverRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress"
generated/Language/LSP/Protocol/Internal/Types/ImplementationClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -41,4 +43,4 @@     ,"linkSupport" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON ImplementationClientCapabilities where-  parseJSON = Aeson.withObject "ImplementationClientCapabilities" $ \arg -> ImplementationClientCapabilities <$> arg Aeson..:! "dynamicRegistration" <*> arg Aeson..:! "linkSupport"+  parseJSON = Aeson.withObject "ImplementationClientCapabilities" $ \arg -> ImplementationClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "dynamicRegistration" <*> arg Language.LSP.Protocol.Types.Common..:!? "linkSupport"
generated/Language/LSP/Protocol/Internal/Types/ImplementationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -32,4 +34,4 @@   toJSON (ImplementationOptions arg0) = Aeson.object $ concat $  ["workDoneProgress" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON ImplementationOptions where-  parseJSON = Aeson.withObject "ImplementationOptions" $ \arg -> ImplementationOptions <$> arg Aeson..:! "workDoneProgress"+  parseJSON = Aeson.withObject "ImplementationOptions" $ \arg -> ImplementationOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress"
generated/Language/LSP/Protocol/Internal/Types/ImplementationParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -51,4 +53,4 @@     ,"partialResultToken" Language.LSP.Protocol.Types.Common..=? arg3]  instance Aeson.FromJSON ImplementationParams where-  parseJSON = Aeson.withObject "ImplementationParams" $ \arg -> ImplementationParams <$> arg Aeson..: "textDocument" <*> arg Aeson..: "position" <*> arg Aeson..:! "workDoneToken" <*> arg Aeson..:! "partialResultToken"+  parseJSON = Aeson.withObject "ImplementationParams" $ \arg -> ImplementationParams <$> arg Aeson..: "textDocument" <*> arg Aeson..: "position" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken" <*> arg Language.LSP.Protocol.Types.Common..:!? "partialResultToken"
generated/Language/LSP/Protocol/Internal/Types/ImplementationRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -46,4 +48,4 @@     ,"id" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON ImplementationRegistrationOptions where-  parseJSON = Aeson.withObject "ImplementationRegistrationOptions" $ \arg -> ImplementationRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Aeson..:! "workDoneProgress" <*> arg Aeson..:! "id"+  parseJSON = Aeson.withObject "ImplementationRegistrationOptions" $ \arg -> ImplementationRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress" <*> arg Language.LSP.Protocol.Types.Common..:!? "id"
generated/Language/LSP/Protocol/Internal/Types/InitializeError.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/InitializeParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -12,13 +14,13 @@ import Prettyprinter import qualified Data.Aeson import qualified Data.Aeson as Aeson-import qualified Data.Row as Row import qualified Data.Row.Aeson as Aeson import qualified Data.Row.Hashable as Hashable import qualified Data.Text import qualified Language.LSP.Protocol.Internal.Types.ClientCapabilities+import qualified Language.LSP.Protocol.Internal.Types.ClientInfo import qualified Language.LSP.Protocol.Internal.Types.ProgressToken-import qualified Language.LSP.Protocol.Internal.Types.TraceValues+import qualified Language.LSP.Protocol.Internal.Types.TraceValue import qualified Language.LSP.Protocol.Internal.Types.WorkspaceFolder import qualified Language.LSP.Protocol.Types.Common import qualified Language.LSP.Protocol.Types.Uri@@ -44,7 +46,7 @@    @since 3.15.0   -}-  _clientInfo :: (Maybe (Row.Rec ("name" Row..== Data.Text.Text Row..+ ("version" Row..== (Maybe Data.Text.Text) Row..+ Row.Empty))))+  _clientInfo :: (Maybe Language.LSP.Protocol.Internal.Types.ClientInfo.ClientInfo)   , {-|   The locale the client is currently showing the user interface   in. This must not necessarily be the locale of the operating@@ -82,7 +84,7 @@   , {-|   The initial trace setting. If omitted trace is disabled ('off').   -}-  _trace :: (Maybe Language.LSP.Protocol.Internal.Types.TraceValues.TraceValues)+  _trace :: (Maybe Language.LSP.Protocol.Internal.Types.TraceValue.TraceValue)   , {-|   The workspace folders configured in the client when the server starts. @@ -111,4 +113,4 @@     ,"workspaceFolders" Language.LSP.Protocol.Types.Common..=? arg9]  instance Aeson.FromJSON InitializeParams where-  parseJSON = Aeson.withObject "InitializeParams" $ \arg -> InitializeParams <$> arg Aeson..:! "workDoneToken" <*> arg Aeson..: "processId" <*> arg Aeson..:! "clientInfo" <*> arg Aeson..:! "locale" <*> arg Aeson..:! "rootPath" <*> arg Aeson..: "rootUri" <*> arg Aeson..: "capabilities" <*> arg Aeson..:! "initializationOptions" <*> arg Aeson..:! "trace" <*> arg Aeson..:! "workspaceFolders"+  parseJSON = Aeson.withObject "InitializeParams" $ \arg -> InitializeParams <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken" <*> arg Aeson..: "processId" <*> arg Language.LSP.Protocol.Types.Common..:!? "clientInfo" <*> arg Language.LSP.Protocol.Types.Common..:!? "locale" <*> arg Language.LSP.Protocol.Types.Common..:!? "rootPath" <*> arg Aeson..: "rootUri" <*> arg Aeson..: "capabilities" <*> arg Language.LSP.Protocol.Types.Common..:!? "initializationOptions" <*> arg Language.LSP.Protocol.Types.Common..:!? "trace" <*> arg Language.LSP.Protocol.Types.Common..:!? "workspaceFolders"
generated/Language/LSP/Protocol/Internal/Types/InitializeResult.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -11,11 +13,10 @@ import Language.LSP.Protocol.Utils.Misc import Prettyprinter import qualified Data.Aeson as Aeson-import qualified Data.Row as Row import qualified Data.Row.Aeson as Aeson import qualified Data.Row.Hashable as Hashable-import qualified Data.Text import qualified Language.LSP.Protocol.Internal.Types.ServerCapabilities+import qualified Language.LSP.Protocol.Internal.Types.ServerInfo import qualified Language.LSP.Protocol.Types.Common  {-|@@ -31,7 +32,7 @@    @since 3.15.0   -}-  _serverInfo :: (Maybe (Row.Rec ("name" Row..== Data.Text.Text Row..+ ("version" Row..== (Maybe Data.Text.Text) Row..+ Row.Empty))))+  _serverInfo :: (Maybe Language.LSP.Protocol.Internal.Types.ServerInfo.ServerInfo)   }   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)@@ -42,4 +43,4 @@     ,"serverInfo" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON InitializeResult where-  parseJSON = Aeson.withObject "InitializeResult" $ \arg -> InitializeResult <$> arg Aeson..: "capabilities" <*> arg Aeson..:! "serverInfo"+  parseJSON = Aeson.withObject "InitializeResult" $ \arg -> InitializeResult <$> arg Aeson..: "capabilities" <*> arg Language.LSP.Protocol.Types.Common..:!? "serverInfo"
generated/Language/LSP/Protocol/Internal/Types/InitializedParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/InlayHint.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -30,6 +32,9 @@ data InlayHint = InlayHint    { {-|   The position of this hint.++  If multiple hints have the same position, they will be shown in the order+  they appear in the response.   -}   _position :: Language.LSP.Protocol.Internal.Types.Position.Position   , {-|@@ -93,4 +98,4 @@     ,"data" Language.LSP.Protocol.Types.Common..=? arg7]  instance Aeson.FromJSON InlayHint where-  parseJSON = Aeson.withObject "InlayHint" $ \arg -> InlayHint <$> arg Aeson..: "position" <*> arg Aeson..: "label" <*> arg Aeson..:! "kind" <*> arg Aeson..:! "textEdits" <*> arg Aeson..:! "tooltip" <*> arg Aeson..:! "paddingLeft" <*> arg Aeson..:! "paddingRight" <*> arg Aeson..:! "data"+  parseJSON = Aeson.withObject "InlayHint" $ \arg -> InlayHint <$> arg Aeson..: "position" <*> arg Aeson..: "label" <*> arg Language.LSP.Protocol.Types.Common..:!? "kind" <*> arg Language.LSP.Protocol.Types.Common..:!? "textEdits" <*> arg Language.LSP.Protocol.Types.Common..:!? "tooltip" <*> arg Language.LSP.Protocol.Types.Common..:!? "paddingLeft" <*> arg Language.LSP.Protocol.Types.Common..:!? "paddingRight" <*> arg Language.LSP.Protocol.Types.Common..:!? "data"
generated/Language/LSP/Protocol/Internal/Types/InlayHintClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -11,10 +13,9 @@ import Language.LSP.Protocol.Utils.Misc import Prettyprinter import qualified Data.Aeson as Aeson-import qualified Data.Row as Row import qualified Data.Row.Aeson as Aeson import qualified Data.Row.Hashable as Hashable-import qualified Data.Text+import qualified Language.LSP.Protocol.Internal.Types.ClientInlayHintResolveOptions import qualified Language.LSP.Protocol.Types.Common  {-|@@ -31,7 +32,7 @@   Indicates which properties a client can resolve lazily on an inlay   hint.   -}-  _resolveSupport :: (Maybe (Row.Rec ("properties" Row..== [Data.Text.Text] Row..+ Row.Empty)))+  _resolveSupport :: (Maybe Language.LSP.Protocol.Internal.Types.ClientInlayHintResolveOptions.ClientInlayHintResolveOptions)   }   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)@@ -42,4 +43,4 @@     ,"resolveSupport" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON InlayHintClientCapabilities where-  parseJSON = Aeson.withObject "InlayHintClientCapabilities" $ \arg -> InlayHintClientCapabilities <$> arg Aeson..:! "dynamicRegistration" <*> arg Aeson..:! "resolveSupport"+  parseJSON = Aeson.withObject "InlayHintClientCapabilities" $ \arg -> InlayHintClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "dynamicRegistration" <*> arg Language.LSP.Protocol.Types.Common..:!? "resolveSupport"
generated/Language/LSP/Protocol/Internal/Types/InlayHintKind.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -35,7 +37,7 @@   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)   deriving ( Aeson.ToJSON-  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum InlayHintKind Language.LSP.Protocol.Types.Common.UInt)+  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum InlayHintKind)   deriving Pretty via (ViaJSON InlayHintKind)  instance Language.LSP.Protocol.Types.LspEnum.LspEnum InlayHintKind where
generated/Language/LSP/Protocol/Internal/Types/InlayHintLabelPart.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -69,4 +71,4 @@     ,"command" Language.LSP.Protocol.Types.Common..=? arg3]  instance Aeson.FromJSON InlayHintLabelPart where-  parseJSON = Aeson.withObject "InlayHintLabelPart" $ \arg -> InlayHintLabelPart <$> arg Aeson..: "value" <*> arg Aeson..:! "tooltip" <*> arg Aeson..:! "location" <*> arg Aeson..:! "command"+  parseJSON = Aeson.withObject "InlayHintLabelPart" $ \arg -> InlayHintLabelPart <$> arg Aeson..: "value" <*> arg Language.LSP.Protocol.Types.Common..:!? "tooltip" <*> arg Language.LSP.Protocol.Types.Common..:!? "location" <*> arg Language.LSP.Protocol.Types.Common..:!? "command"
generated/Language/LSP/Protocol/Internal/Types/InlayHintOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -40,4 +42,4 @@     ,"resolveProvider" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON InlayHintOptions where-  parseJSON = Aeson.withObject "InlayHintOptions" $ \arg -> InlayHintOptions <$> arg Aeson..:! "workDoneProgress" <*> arg Aeson..:! "resolveProvider"+  parseJSON = Aeson.withObject "InlayHintOptions" $ \arg -> InlayHintOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress" <*> arg Language.LSP.Protocol.Types.Common..:!? "resolveProvider"
generated/Language/LSP/Protocol/Internal/Types/InlayHintParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -47,4 +49,4 @@     ,["range" Aeson..= arg2]]  instance Aeson.FromJSON InlayHintParams where-  parseJSON = Aeson.withObject "InlayHintParams" $ \arg -> InlayHintParams <$> arg Aeson..:! "workDoneToken" <*> arg Aeson..: "textDocument" <*> arg Aeson..: "range"+  parseJSON = Aeson.withObject "InlayHintParams" $ \arg -> InlayHintParams <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken" <*> arg Aeson..: "textDocument" <*> arg Aeson..: "range"
generated/Language/LSP/Protocol/Internal/Types/InlayHintRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -54,4 +56,4 @@     ,"id" Language.LSP.Protocol.Types.Common..=? arg3]  instance Aeson.FromJSON InlayHintRegistrationOptions where-  parseJSON = Aeson.withObject "InlayHintRegistrationOptions" $ \arg -> InlayHintRegistrationOptions <$> arg Aeson..:! "workDoneProgress" <*> arg Aeson..:! "resolveProvider" <*> arg Aeson..: "documentSelector" <*> arg Aeson..:! "id"+  parseJSON = Aeson.withObject "InlayHintRegistrationOptions" $ \arg -> InlayHintRegistrationOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress" <*> arg Language.LSP.Protocol.Types.Common..:!? "resolveProvider" <*> arg Aeson..: "documentSelector" <*> arg Language.LSP.Protocol.Types.Common..:!? "id"
generated/Language/LSP/Protocol/Internal/Types/InlayHintWorkspaceClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -40,4 +42,4 @@   toJSON (InlayHintWorkspaceClientCapabilities arg0) = Aeson.object $ concat $  ["refreshSupport" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON InlayHintWorkspaceClientCapabilities where-  parseJSON = Aeson.withObject "InlayHintWorkspaceClientCapabilities" $ \arg -> InlayHintWorkspaceClientCapabilities <$> arg Aeson..:! "refreshSupport"+  parseJSON = Aeson.withObject "InlayHintWorkspaceClientCapabilities" $ \arg -> InlayHintWorkspaceClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "refreshSupport"
generated/Language/LSP/Protocol/Internal/Types/InlineValue.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/InlineValueClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -34,4 +36,4 @@   toJSON (InlineValueClientCapabilities arg0) = Aeson.object $ concat $  ["dynamicRegistration" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON InlineValueClientCapabilities where-  parseJSON = Aeson.withObject "InlineValueClientCapabilities" $ \arg -> InlineValueClientCapabilities <$> arg Aeson..:! "dynamicRegistration"+  parseJSON = Aeson.withObject "InlineValueClientCapabilities" $ \arg -> InlineValueClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "dynamicRegistration"
generated/Language/LSP/Protocol/Internal/Types/InlineValueContext.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/InlineValueEvaluatableExpression.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -44,4 +46,4 @@     ,"expression" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON InlineValueEvaluatableExpression where-  parseJSON = Aeson.withObject "InlineValueEvaluatableExpression" $ \arg -> InlineValueEvaluatableExpression <$> arg Aeson..: "range" <*> arg Aeson..:! "expression"+  parseJSON = Aeson.withObject "InlineValueEvaluatableExpression" $ \arg -> InlineValueEvaluatableExpression <$> arg Aeson..: "range" <*> arg Language.LSP.Protocol.Types.Common..:!? "expression"
generated/Language/LSP/Protocol/Internal/Types/InlineValueOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -34,4 +36,4 @@   toJSON (InlineValueOptions arg0) = Aeson.object $ concat $  ["workDoneProgress" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON InlineValueOptions where-  parseJSON = Aeson.withObject "InlineValueOptions" $ \arg -> InlineValueOptions <$> arg Aeson..:! "workDoneProgress"+  parseJSON = Aeson.withObject "InlineValueOptions" $ \arg -> InlineValueOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress"
generated/Language/LSP/Protocol/Internal/Types/InlineValueParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -54,4 +56,4 @@     ,["context" Aeson..= arg3]]  instance Aeson.FromJSON InlineValueParams where-  parseJSON = Aeson.withObject "InlineValueParams" $ \arg -> InlineValueParams <$> arg Aeson..:! "workDoneToken" <*> arg Aeson..: "textDocument" <*> arg Aeson..: "range" <*> arg Aeson..: "context"+  parseJSON = Aeson.withObject "InlineValueParams" $ \arg -> InlineValueParams <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken" <*> arg Aeson..: "textDocument" <*> arg Aeson..: "range" <*> arg Aeson..: "context"
generated/Language/LSP/Protocol/Internal/Types/InlineValueRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -48,4 +50,4 @@     ,"id" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON InlineValueRegistrationOptions where-  parseJSON = Aeson.withObject "InlineValueRegistrationOptions" $ \arg -> InlineValueRegistrationOptions <$> arg Aeson..:! "workDoneProgress" <*> arg Aeson..: "documentSelector" <*> arg Aeson..:! "id"+  parseJSON = Aeson.withObject "InlineValueRegistrationOptions" $ \arg -> InlineValueRegistrationOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress" <*> arg Aeson..: "documentSelector" <*> arg Language.LSP.Protocol.Types.Common..:!? "id"
generated/Language/LSP/Protocol/Internal/Types/InlineValueText.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/InlineValueVariableLookup.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -49,4 +51,4 @@     ,["caseSensitiveLookup" Aeson..= arg2]]  instance Aeson.FromJSON InlineValueVariableLookup where-  parseJSON = Aeson.withObject "InlineValueVariableLookup" $ \arg -> InlineValueVariableLookup <$> arg Aeson..: "range" <*> arg Aeson..:! "variableName" <*> arg Aeson..: "caseSensitiveLookup"+  parseJSON = Aeson.withObject "InlineValueVariableLookup" $ \arg -> InlineValueVariableLookup <$> arg Aeson..: "range" <*> arg Language.LSP.Protocol.Types.Common..:!? "variableName" <*> arg Aeson..: "caseSensitiveLookup"
generated/Language/LSP/Protocol/Internal/Types/InlineValueWorkspaceClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -40,4 +42,4 @@   toJSON (InlineValueWorkspaceClientCapabilities arg0) = Aeson.object $ concat $  ["refreshSupport" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON InlineValueWorkspaceClientCapabilities where-  parseJSON = Aeson.withObject "InlineValueWorkspaceClientCapabilities" $ \arg -> InlineValueWorkspaceClientCapabilities <$> arg Aeson..:! "refreshSupport"+  parseJSON = Aeson.withObject "InlineValueWorkspaceClientCapabilities" $ \arg -> InlineValueWorkspaceClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "refreshSupport"
generated/Language/LSP/Protocol/Internal/Types/InsertReplaceEdit.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/InsertTextFormat.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -41,7 +43,7 @@   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)   deriving ( Aeson.ToJSON-  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum InsertTextFormat Language.LSP.Protocol.Types.Common.UInt)+  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum InsertTextFormat)   deriving Pretty via (ViaJSON InsertTextFormat)  instance Language.LSP.Protocol.Types.LspEnum.LspEnum InsertTextFormat where
generated/Language/LSP/Protocol/Internal/Types/InsertTextMode.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -46,7 +48,7 @@   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)   deriving ( Aeson.ToJSON-  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum InsertTextMode Language.LSP.Protocol.Types.Common.UInt)+  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum InsertTextMode)   deriving Pretty via (ViaJSON InsertTextMode)  instance Language.LSP.Protocol.Types.LspEnum.LspEnum InsertTextMode where
generated/Language/LSP/Protocol/Internal/Types/LSPErrorCodes.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -59,7 +61,7 @@   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)   deriving ( Aeson.ToJSON-  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum LSPErrorCodes Language.LSP.Protocol.Types.Common.Int32)+  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum LSPErrorCodes)   deriving Pretty via (ViaJSON LSPErrorCodes)  instance Language.LSP.Protocol.Types.LspEnum.LspEnum LSPErrorCodes where
+ generated/Language/LSP/Protocol/Internal/Types/LanguageKind.hs view
@@ -0,0 +1,450 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.LanguageKind where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Data.Set+import qualified Data.String+import qualified Data.Text+import qualified Language.LSP.Protocol.Types.LspEnum++{-|+Predefined Language kinds+@since 3.18.0+@proposed+-}+data LanguageKind = +    {-|++  -}+  LanguageKind_ABAP+  | {-|++  -}+  LanguageKind_WindowsBat+  | {-|++  -}+  LanguageKind_BibTeX+  | {-|++  -}+  LanguageKind_Clojure+  | {-|++  -}+  LanguageKind_Coffeescript+  | {-|++  -}+  LanguageKind_C+  | {-|++  -}+  LanguageKind_CPP+  | {-|++  -}+  LanguageKind_CSharp+  | {-|++  -}+  LanguageKind_CSS+  | {-|++  -}+  LanguageKind_Diff+  | {-|++  -}+  LanguageKind_Dart+  | {-|++  -}+  LanguageKind_Dockerfile+  | {-|++  -}+  LanguageKind_Elixir+  | {-|++  -}+  LanguageKind_Erlang+  | {-|++  -}+  LanguageKind_FSharp+  | {-|++  -}+  LanguageKind_GitCommit+  | {-|++  -}+  LanguageKind_GitRebase+  | {-|++  -}+  LanguageKind_Go+  | {-|++  -}+  LanguageKind_Groovy+  | {-|++  -}+  LanguageKind_Handlebars+  | {-|++  -}+  LanguageKind_Haskell+  | {-|++  -}+  LanguageKind_HTML+  | {-|++  -}+  LanguageKind_Ini+  | {-|++  -}+  LanguageKind_Java+  | {-|++  -}+  LanguageKind_JavaScript+  | {-|++  -}+  LanguageKind_JavaScriptReact+  | {-|++  -}+  LanguageKind_JSON+  | {-|++  -}+  LanguageKind_LaTeX+  | {-|++  -}+  LanguageKind_Less+  | {-|++  -}+  LanguageKind_Lua+  | {-|++  -}+  LanguageKind_Makefile+  | {-|++  -}+  LanguageKind_Markdown+  | {-|++  -}+  LanguageKind_ObjectiveC+  | {-|++  -}+  LanguageKind_ObjectiveCPP+  | {-|++  -}+  LanguageKind_Perl+  | {-|++  -}+  LanguageKind_Perl6+  | {-|++  -}+  LanguageKind_PHP+  | {-|++  -}+  LanguageKind_Powershell+  | {-|++  -}+  LanguageKind_Pug+  | {-|++  -}+  LanguageKind_Python+  | {-|++  -}+  LanguageKind_R+  | {-|++  -}+  LanguageKind_Razor+  | {-|++  -}+  LanguageKind_Ruby+  | {-|++  -}+  LanguageKind_Rust+  | {-|++  -}+  LanguageKind_SCSS+  | {-|++  -}+  LanguageKind_SASS+  | {-|++  -}+  LanguageKind_Scala+  | {-|++  -}+  LanguageKind_ShaderLab+  | {-|++  -}+  LanguageKind_ShellScript+  | {-|++  -}+  LanguageKind_SQL+  | {-|++  -}+  LanguageKind_Swift+  | {-|++  -}+  LanguageKind_TypeScript+  | {-|++  -}+  LanguageKind_TypeScriptReact+  | {-|++  -}+  LanguageKind_TeX+  | {-|++  -}+  LanguageKind_VisualBasic+  | {-|++  -}+  LanguageKind_XML+  | {-|++  -}+  LanguageKind_XSL+  | {-|++  -}+  LanguageKind_YAML+  | LanguageKind_Custom Data.Text.Text+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving ( Aeson.ToJSON+  , Aeson.FromJSON+  , Data.String.IsString ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum LanguageKind)+  deriving Pretty via (ViaJSON LanguageKind)++instance Language.LSP.Protocol.Types.LspEnum.LspEnum LanguageKind where+  knownValues = Data.Set.fromList [LanguageKind_ABAP+    ,LanguageKind_WindowsBat+    ,LanguageKind_BibTeX+    ,LanguageKind_Clojure+    ,LanguageKind_Coffeescript+    ,LanguageKind_C+    ,LanguageKind_CPP+    ,LanguageKind_CSharp+    ,LanguageKind_CSS+    ,LanguageKind_Diff+    ,LanguageKind_Dart+    ,LanguageKind_Dockerfile+    ,LanguageKind_Elixir+    ,LanguageKind_Erlang+    ,LanguageKind_FSharp+    ,LanguageKind_GitCommit+    ,LanguageKind_GitRebase+    ,LanguageKind_Go+    ,LanguageKind_Groovy+    ,LanguageKind_Handlebars+    ,LanguageKind_Haskell+    ,LanguageKind_HTML+    ,LanguageKind_Ini+    ,LanguageKind_Java+    ,LanguageKind_JavaScript+    ,LanguageKind_JavaScriptReact+    ,LanguageKind_JSON+    ,LanguageKind_LaTeX+    ,LanguageKind_Less+    ,LanguageKind_Lua+    ,LanguageKind_Makefile+    ,LanguageKind_Markdown+    ,LanguageKind_ObjectiveC+    ,LanguageKind_ObjectiveCPP+    ,LanguageKind_Perl+    ,LanguageKind_Perl6+    ,LanguageKind_PHP+    ,LanguageKind_Powershell+    ,LanguageKind_Pug+    ,LanguageKind_Python+    ,LanguageKind_R+    ,LanguageKind_Razor+    ,LanguageKind_Ruby+    ,LanguageKind_Rust+    ,LanguageKind_SCSS+    ,LanguageKind_SASS+    ,LanguageKind_Scala+    ,LanguageKind_ShaderLab+    ,LanguageKind_ShellScript+    ,LanguageKind_SQL+    ,LanguageKind_Swift+    ,LanguageKind_TypeScript+    ,LanguageKind_TypeScriptReact+    ,LanguageKind_TeX+    ,LanguageKind_VisualBasic+    ,LanguageKind_XML+    ,LanguageKind_XSL+    ,LanguageKind_YAML]+  type EnumBaseType LanguageKind = Data.Text.Text+  toEnumBaseType LanguageKind_ABAP = "abap"+  toEnumBaseType LanguageKind_WindowsBat = "bat"+  toEnumBaseType LanguageKind_BibTeX = "bibtex"+  toEnumBaseType LanguageKind_Clojure = "clojure"+  toEnumBaseType LanguageKind_Coffeescript = "coffeescript"+  toEnumBaseType LanguageKind_C = "c"+  toEnumBaseType LanguageKind_CPP = "cpp"+  toEnumBaseType LanguageKind_CSharp = "csharp"+  toEnumBaseType LanguageKind_CSS = "css"+  toEnumBaseType LanguageKind_Diff = "diff"+  toEnumBaseType LanguageKind_Dart = "dart"+  toEnumBaseType LanguageKind_Dockerfile = "dockerfile"+  toEnumBaseType LanguageKind_Elixir = "elixir"+  toEnumBaseType LanguageKind_Erlang = "erlang"+  toEnumBaseType LanguageKind_FSharp = "fsharp"+  toEnumBaseType LanguageKind_GitCommit = "git-commit"+  toEnumBaseType LanguageKind_GitRebase = "rebase"+  toEnumBaseType LanguageKind_Go = "go"+  toEnumBaseType LanguageKind_Groovy = "groovy"+  toEnumBaseType LanguageKind_Handlebars = "handlebars"+  toEnumBaseType LanguageKind_Haskell = "haskell"+  toEnumBaseType LanguageKind_HTML = "html"+  toEnumBaseType LanguageKind_Ini = "ini"+  toEnumBaseType LanguageKind_Java = "java"+  toEnumBaseType LanguageKind_JavaScript = "javascript"+  toEnumBaseType LanguageKind_JavaScriptReact = "javascriptreact"+  toEnumBaseType LanguageKind_JSON = "json"+  toEnumBaseType LanguageKind_LaTeX = "latex"+  toEnumBaseType LanguageKind_Less = "less"+  toEnumBaseType LanguageKind_Lua = "lua"+  toEnumBaseType LanguageKind_Makefile = "makefile"+  toEnumBaseType LanguageKind_Markdown = "markdown"+  toEnumBaseType LanguageKind_ObjectiveC = "objective-c"+  toEnumBaseType LanguageKind_ObjectiveCPP = "objective-cpp"+  toEnumBaseType LanguageKind_Perl = "perl"+  toEnumBaseType LanguageKind_Perl6 = "perl6"+  toEnumBaseType LanguageKind_PHP = "php"+  toEnumBaseType LanguageKind_Powershell = "powershell"+  toEnumBaseType LanguageKind_Pug = "jade"+  toEnumBaseType LanguageKind_Python = "python"+  toEnumBaseType LanguageKind_R = "r"+  toEnumBaseType LanguageKind_Razor = "razor"+  toEnumBaseType LanguageKind_Ruby = "ruby"+  toEnumBaseType LanguageKind_Rust = "rust"+  toEnumBaseType LanguageKind_SCSS = "scss"+  toEnumBaseType LanguageKind_SASS = "sass"+  toEnumBaseType LanguageKind_Scala = "scala"+  toEnumBaseType LanguageKind_ShaderLab = "shaderlab"+  toEnumBaseType LanguageKind_ShellScript = "shellscript"+  toEnumBaseType LanguageKind_SQL = "sql"+  toEnumBaseType LanguageKind_Swift = "swift"+  toEnumBaseType LanguageKind_TypeScript = "typescript"+  toEnumBaseType LanguageKind_TypeScriptReact = "typescriptreact"+  toEnumBaseType LanguageKind_TeX = "tex"+  toEnumBaseType LanguageKind_VisualBasic = "vb"+  toEnumBaseType LanguageKind_XML = "xml"+  toEnumBaseType LanguageKind_XSL = "xsl"+  toEnumBaseType LanguageKind_YAML = "yaml"+  toEnumBaseType (LanguageKind_Custom arg) = arg++instance Language.LSP.Protocol.Types.LspEnum.LspOpenEnum LanguageKind where+  fromOpenEnumBaseType "abap" = LanguageKind_ABAP+  fromOpenEnumBaseType "bat" = LanguageKind_WindowsBat+  fromOpenEnumBaseType "bibtex" = LanguageKind_BibTeX+  fromOpenEnumBaseType "clojure" = LanguageKind_Clojure+  fromOpenEnumBaseType "coffeescript" = LanguageKind_Coffeescript+  fromOpenEnumBaseType "c" = LanguageKind_C+  fromOpenEnumBaseType "cpp" = LanguageKind_CPP+  fromOpenEnumBaseType "csharp" = LanguageKind_CSharp+  fromOpenEnumBaseType "css" = LanguageKind_CSS+  fromOpenEnumBaseType "diff" = LanguageKind_Diff+  fromOpenEnumBaseType "dart" = LanguageKind_Dart+  fromOpenEnumBaseType "dockerfile" = LanguageKind_Dockerfile+  fromOpenEnumBaseType "elixir" = LanguageKind_Elixir+  fromOpenEnumBaseType "erlang" = LanguageKind_Erlang+  fromOpenEnumBaseType "fsharp" = LanguageKind_FSharp+  fromOpenEnumBaseType "git-commit" = LanguageKind_GitCommit+  fromOpenEnumBaseType "rebase" = LanguageKind_GitRebase+  fromOpenEnumBaseType "go" = LanguageKind_Go+  fromOpenEnumBaseType "groovy" = LanguageKind_Groovy+  fromOpenEnumBaseType "handlebars" = LanguageKind_Handlebars+  fromOpenEnumBaseType "haskell" = LanguageKind_Haskell+  fromOpenEnumBaseType "html" = LanguageKind_HTML+  fromOpenEnumBaseType "ini" = LanguageKind_Ini+  fromOpenEnumBaseType "java" = LanguageKind_Java+  fromOpenEnumBaseType "javascript" = LanguageKind_JavaScript+  fromOpenEnumBaseType "javascriptreact" = LanguageKind_JavaScriptReact+  fromOpenEnumBaseType "json" = LanguageKind_JSON+  fromOpenEnumBaseType "latex" = LanguageKind_LaTeX+  fromOpenEnumBaseType "less" = LanguageKind_Less+  fromOpenEnumBaseType "lua" = LanguageKind_Lua+  fromOpenEnumBaseType "makefile" = LanguageKind_Makefile+  fromOpenEnumBaseType "markdown" = LanguageKind_Markdown+  fromOpenEnumBaseType "objective-c" = LanguageKind_ObjectiveC+  fromOpenEnumBaseType "objective-cpp" = LanguageKind_ObjectiveCPP+  fromOpenEnumBaseType "perl" = LanguageKind_Perl+  fromOpenEnumBaseType "perl6" = LanguageKind_Perl6+  fromOpenEnumBaseType "php" = LanguageKind_PHP+  fromOpenEnumBaseType "powershell" = LanguageKind_Powershell+  fromOpenEnumBaseType "jade" = LanguageKind_Pug+  fromOpenEnumBaseType "python" = LanguageKind_Python+  fromOpenEnumBaseType "r" = LanguageKind_R+  fromOpenEnumBaseType "razor" = LanguageKind_Razor+  fromOpenEnumBaseType "ruby" = LanguageKind_Ruby+  fromOpenEnumBaseType "rust" = LanguageKind_Rust+  fromOpenEnumBaseType "scss" = LanguageKind_SCSS+  fromOpenEnumBaseType "sass" = LanguageKind_SASS+  fromOpenEnumBaseType "scala" = LanguageKind_Scala+  fromOpenEnumBaseType "shaderlab" = LanguageKind_ShaderLab+  fromOpenEnumBaseType "shellscript" = LanguageKind_ShellScript+  fromOpenEnumBaseType "sql" = LanguageKind_SQL+  fromOpenEnumBaseType "swift" = LanguageKind_Swift+  fromOpenEnumBaseType "typescript" = LanguageKind_TypeScript+  fromOpenEnumBaseType "typescriptreact" = LanguageKind_TypeScriptReact+  fromOpenEnumBaseType "tex" = LanguageKind_TeX+  fromOpenEnumBaseType "vb" = LanguageKind_VisualBasic+  fromOpenEnumBaseType "xml" = LanguageKind_XML+  fromOpenEnumBaseType "xsl" = LanguageKind_XSL+  fromOpenEnumBaseType "yaml" = LanguageKind_YAML+  fromOpenEnumBaseType arg = LanguageKind_Custom arg++
generated/Language/LSP/Protocol/Internal/Types/LinkedEditingRangeClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -36,4 +38,4 @@   toJSON (LinkedEditingRangeClientCapabilities arg0) = Aeson.object $ concat $  ["dynamicRegistration" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON LinkedEditingRangeClientCapabilities where-  parseJSON = Aeson.withObject "LinkedEditingRangeClientCapabilities" $ \arg -> LinkedEditingRangeClientCapabilities <$> arg Aeson..:! "dynamicRegistration"+  parseJSON = Aeson.withObject "LinkedEditingRangeClientCapabilities" $ \arg -> LinkedEditingRangeClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "dynamicRegistration"
generated/Language/LSP/Protocol/Internal/Types/LinkedEditingRangeOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -32,4 +34,4 @@   toJSON (LinkedEditingRangeOptions arg0) = Aeson.object $ concat $  ["workDoneProgress" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON LinkedEditingRangeOptions where-  parseJSON = Aeson.withObject "LinkedEditingRangeOptions" $ \arg -> LinkedEditingRangeOptions <$> arg Aeson..:! "workDoneProgress"+  parseJSON = Aeson.withObject "LinkedEditingRangeOptions" $ \arg -> LinkedEditingRangeOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress"
generated/Language/LSP/Protocol/Internal/Types/LinkedEditingRangeParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -45,4 +47,4 @@     ,"workDoneToken" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON LinkedEditingRangeParams where-  parseJSON = Aeson.withObject "LinkedEditingRangeParams" $ \arg -> LinkedEditingRangeParams <$> arg Aeson..: "textDocument" <*> arg Aeson..: "position" <*> arg Aeson..:! "workDoneToken"+  parseJSON = Aeson.withObject "LinkedEditingRangeParams" $ \arg -> LinkedEditingRangeParams <$> arg Aeson..: "textDocument" <*> arg Aeson..: "position" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken"
generated/Language/LSP/Protocol/Internal/Types/LinkedEditingRangeRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -46,4 +48,4 @@     ,"id" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON LinkedEditingRangeRegistrationOptions where-  parseJSON = Aeson.withObject "LinkedEditingRangeRegistrationOptions" $ \arg -> LinkedEditingRangeRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Aeson..:! "workDoneProgress" <*> arg Aeson..:! "id"+  parseJSON = Aeson.withObject "LinkedEditingRangeRegistrationOptions" $ \arg -> LinkedEditingRangeRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress" <*> arg Language.LSP.Protocol.Types.Common..:!? "id"
generated/Language/LSP/Protocol/Internal/Types/LinkedEditingRanges.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -44,4 +46,4 @@     ,"wordPattern" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON LinkedEditingRanges where-  parseJSON = Aeson.withObject "LinkedEditingRanges" $ \arg -> LinkedEditingRanges <$> arg Aeson..: "ranges" <*> arg Aeson..:! "wordPattern"+  parseJSON = Aeson.withObject "LinkedEditingRanges" $ \arg -> LinkedEditingRanges <$> arg Aeson..: "ranges" <*> arg Language.LSP.Protocol.Types.Common..:!? "wordPattern"
generated/Language/LSP/Protocol/Internal/Types/Location.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/LocationLink.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -56,4 +58,4 @@     ,["targetSelectionRange" Aeson..= arg3]]  instance Aeson.FromJSON LocationLink where-  parseJSON = Aeson.withObject "LocationLink" $ \arg -> LocationLink <$> arg Aeson..:! "originSelectionRange" <*> arg Aeson..: "targetUri" <*> arg Aeson..: "targetRange" <*> arg Aeson..: "targetSelectionRange"+  parseJSON = Aeson.withObject "LocationLink" $ \arg -> LocationLink <$> arg Language.LSP.Protocol.Types.Common..:!? "originSelectionRange" <*> arg Aeson..: "targetUri" <*> arg Aeson..: "targetRange" <*> arg Aeson..: "targetSelectionRange"
+ generated/Language/LSP/Protocol/Internal/Types/LocationUriOnly.hs view
@@ -0,0 +1,41 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.LocationUriOnly where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Language.LSP.Protocol.Types.Common+import qualified Language.LSP.Protocol.Types.Uri++{-|+Location with only uri and does not include range.++@since 3.18.0+@proposed+-}+data LocationUriOnly = LocationUriOnly +  { {-|++  -}+  _uri :: Language.LSP.Protocol.Types.Uri.Uri+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON LocationUriOnly)++instance Aeson.ToJSON LocationUriOnly where+  toJSON (LocationUriOnly arg0) = Aeson.object $ concat $  [["uri" Aeson..= arg0]]++instance Aeson.FromJSON LocationUriOnly where+  parseJSON = Aeson.withObject "LocationUriOnly" $ \arg -> LocationUriOnly <$> arg Aeson..: "uri"
generated/Language/LSP/Protocol/Internal/Types/LogMessageParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/LogTraceParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -38,4 +40,4 @@     ,"verbose" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON LogTraceParams where-  parseJSON = Aeson.withObject "LogTraceParams" $ \arg -> LogTraceParams <$> arg Aeson..: "message" <*> arg Aeson..:! "verbose"+  parseJSON = Aeson.withObject "LogTraceParams" $ \arg -> LogTraceParams <$> arg Aeson..: "message" <*> arg Language.LSP.Protocol.Types.Common..:!? "verbose"
generated/Language/LSP/Protocol/Internal/Types/MarkdownClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -48,4 +50,4 @@     ,"allowedTags" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON MarkdownClientCapabilities where-  parseJSON = Aeson.withObject "MarkdownClientCapabilities" $ \arg -> MarkdownClientCapabilities <$> arg Aeson..: "parser" <*> arg Aeson..:! "version" <*> arg Aeson..:! "allowedTags"+  parseJSON = Aeson.withObject "MarkdownClientCapabilities" $ \arg -> MarkdownClientCapabilities <$> arg Aeson..: "parser" <*> arg Language.LSP.Protocol.Types.Common..:!? "version" <*> arg Language.LSP.Protocol.Types.Common..:!? "allowedTags"
generated/Language/LSP/Protocol/Internal/Types/MarkedString.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -11,10 +13,10 @@ import Language.LSP.Protocol.Utils.Misc import Prettyprinter import qualified Data.Aeson as Aeson-import qualified Data.Row as Row import qualified Data.Row.Aeson as Aeson import qualified Data.Row.Hashable as Hashable import qualified Data.Text+import qualified Language.LSP.Protocol.Internal.Types.MarkedStringWithLanguage import qualified Language.LSP.Protocol.Types.Common  {-# DEPRECATED MarkedString "use MarkupContent instead." #-}@@ -32,7 +34,7 @@ Note that markdown strings will be sanitized - that means html will be escaped. @deprecated use MarkupContent instead. -}-newtype MarkedString = MarkedString (Data.Text.Text Language.LSP.Protocol.Types.Common.|? (Row.Rec ("language" Row..== Data.Text.Text Row..+ ("value" Row..== Data.Text.Text Row..+ Row.Empty))))+newtype MarkedString = MarkedString (Data.Text.Text Language.LSP.Protocol.Types.Common.|? Language.LSP.Protocol.Internal.Types.MarkedStringWithLanguage.MarkedStringWithLanguage)   deriving newtype (Aeson.ToJSON, Aeson.FromJSON)   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)
+ generated/Language/LSP/Protocol/Internal/Types/MarkedStringWithLanguage.hs view
@@ -0,0 +1,46 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.MarkedStringWithLanguage where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Data.Text+import qualified Language.LSP.Protocol.Types.Common++{-# DEPRECATED MarkedStringWithLanguage "use MarkupContent instead." #-}+{-|+@since 3.18.0+@proposed+@deprecated use MarkupContent instead.+-}+data MarkedStringWithLanguage = MarkedStringWithLanguage +  { {-|++  -}+  _language :: Data.Text.Text+  , {-|++  -}+  _value :: Data.Text.Text+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON MarkedStringWithLanguage)++instance Aeson.ToJSON MarkedStringWithLanguage where+  toJSON (MarkedStringWithLanguage arg0 arg1) = Aeson.object $ concat $  [["language" Aeson..= arg0]+    ,["value" Aeson..= arg1]]++instance Aeson.FromJSON MarkedStringWithLanguage where+  parseJSON = Aeson.withObject "MarkedStringWithLanguage" $ \arg -> MarkedStringWithLanguage <$> arg Aeson..: "language" <*> arg Aeson..: "value"
generated/Language/LSP/Protocol/Internal/Types/MarkupContent.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/MarkupKind.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -37,7 +39,7 @@   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)   deriving ( Aeson.ToJSON-  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum MarkupKind Data.Text.Text)+  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum MarkupKind)   deriving Pretty via (ViaJSON MarkupKind)  instance Language.LSP.Protocol.Types.LspEnum.LspEnum MarkupKind where
generated/Language/LSP/Protocol/Internal/Types/MessageActionItem.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/MessageType.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -41,7 +43,7 @@   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)   deriving ( Aeson.ToJSON-  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum MessageType Language.LSP.Protocol.Types.Common.UInt)+  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum MessageType)   deriving Pretty via (ViaJSON MessageType)  instance Language.LSP.Protocol.Types.LspEnum.LspEnum MessageType where
generated/Language/LSP/Protocol/Internal/Types/Moniker.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -53,4 +55,4 @@     ,"kind" Language.LSP.Protocol.Types.Common..=? arg3]  instance Aeson.FromJSON Moniker where-  parseJSON = Aeson.withObject "Moniker" $ \arg -> Moniker <$> arg Aeson..: "scheme" <*> arg Aeson..: "identifier" <*> arg Aeson..: "unique" <*> arg Aeson..:! "kind"+  parseJSON = Aeson.withObject "Moniker" $ \arg -> Moniker <$> arg Aeson..: "scheme" <*> arg Aeson..: "identifier" <*> arg Aeson..: "unique" <*> arg Language.LSP.Protocol.Types.Common..:!? "kind"
generated/Language/LSP/Protocol/Internal/Types/MonikerClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -36,4 +38,4 @@   toJSON (MonikerClientCapabilities arg0) = Aeson.object $ concat $  ["dynamicRegistration" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON MonikerClientCapabilities where-  parseJSON = Aeson.withObject "MonikerClientCapabilities" $ \arg -> MonikerClientCapabilities <$> arg Aeson..:! "dynamicRegistration"+  parseJSON = Aeson.withObject "MonikerClientCapabilities" $ \arg -> MonikerClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "dynamicRegistration"
generated/Language/LSP/Protocol/Internal/Types/MonikerKind.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -40,7 +42,7 @@   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)   deriving ( Aeson.ToJSON-  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum MonikerKind Data.Text.Text)+  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum MonikerKind)   deriving Pretty via (ViaJSON MonikerKind)  instance Language.LSP.Protocol.Types.LspEnum.LspEnum MonikerKind where
generated/Language/LSP/Protocol/Internal/Types/MonikerOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -32,4 +34,4 @@   toJSON (MonikerOptions arg0) = Aeson.object $ concat $  ["workDoneProgress" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON MonikerOptions where-  parseJSON = Aeson.withObject "MonikerOptions" $ \arg -> MonikerOptions <$> arg Aeson..:! "workDoneProgress"+  parseJSON = Aeson.withObject "MonikerOptions" $ \arg -> MonikerOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress"
generated/Language/LSP/Protocol/Internal/Types/MonikerParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -51,4 +53,4 @@     ,"partialResultToken" Language.LSP.Protocol.Types.Common..=? arg3]  instance Aeson.FromJSON MonikerParams where-  parseJSON = Aeson.withObject "MonikerParams" $ \arg -> MonikerParams <$> arg Aeson..: "textDocument" <*> arg Aeson..: "position" <*> arg Aeson..:! "workDoneToken" <*> arg Aeson..:! "partialResultToken"+  parseJSON = Aeson.withObject "MonikerParams" $ \arg -> MonikerParams <$> arg Aeson..: "textDocument" <*> arg Aeson..: "position" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken" <*> arg Language.LSP.Protocol.Types.Common..:!? "partialResultToken"
generated/Language/LSP/Protocol/Internal/Types/MonikerRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -39,4 +41,4 @@     ,"workDoneProgress" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON MonikerRegistrationOptions where-  parseJSON = Aeson.withObject "MonikerRegistrationOptions" $ \arg -> MonikerRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Aeson..:! "workDoneProgress"+  parseJSON = Aeson.withObject "MonikerRegistrationOptions" $ \arg -> MonikerRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress"
generated/Language/LSP/Protocol/Internal/Types/NotebookCell.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -61,4 +63,4 @@     ,"executionSummary" Language.LSP.Protocol.Types.Common..=? arg3]  instance Aeson.FromJSON NotebookCell where-  parseJSON = Aeson.withObject "NotebookCell" $ \arg -> NotebookCell <$> arg Aeson..: "kind" <*> arg Aeson..: "document" <*> arg Aeson..:! "metadata" <*> arg Aeson..:! "executionSummary"+  parseJSON = Aeson.withObject "NotebookCell" $ \arg -> NotebookCell <$> arg Aeson..: "kind" <*> arg Aeson..: "document" <*> arg Language.LSP.Protocol.Types.Common..:!? "metadata" <*> arg Language.LSP.Protocol.Types.Common..:!? "executionSummary"
generated/Language/LSP/Protocol/Internal/Types/NotebookCellArrayChange.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -46,4 +48,4 @@     ,"cells" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON NotebookCellArrayChange where-  parseJSON = Aeson.withObject "NotebookCellArrayChange" $ \arg -> NotebookCellArrayChange <$> arg Aeson..: "start" <*> arg Aeson..: "deleteCount" <*> arg Aeson..:! "cells"+  parseJSON = Aeson.withObject "NotebookCellArrayChange" $ \arg -> NotebookCellArrayChange <$> arg Aeson..: "start" <*> arg Aeson..: "deleteCount" <*> arg Language.LSP.Protocol.Types.Common..:!? "cells"
generated/Language/LSP/Protocol/Internal/Types/NotebookCellKind.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -35,7 +37,7 @@   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)   deriving ( Aeson.ToJSON-  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum NotebookCellKind Language.LSP.Protocol.Types.Common.UInt)+  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum NotebookCellKind)   deriving Pretty via (ViaJSON NotebookCellKind)  instance Language.LSP.Protocol.Types.LspEnum.LspEnum NotebookCellKind where
+ generated/Language/LSP/Protocol/Internal/Types/NotebookCellLanguage.hs view
@@ -0,0 +1,39 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.NotebookCellLanguage where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Data.Text+import qualified Language.LSP.Protocol.Types.Common++{-|+@since 3.18.0+@proposed+-}+data NotebookCellLanguage = NotebookCellLanguage +  { {-|++  -}+  _language :: Data.Text.Text+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON NotebookCellLanguage)++instance Aeson.ToJSON NotebookCellLanguage where+  toJSON (NotebookCellLanguage arg0) = Aeson.object $ concat $  [["language" Aeson..= arg0]]++instance Aeson.FromJSON NotebookCellLanguage where+  parseJSON = Aeson.withObject "NotebookCellLanguage" $ \arg -> NotebookCellLanguage <$> arg Aeson..: "language"
generated/Language/LSP/Protocol/Internal/Types/NotebookCellTextDocumentFilter.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -48,4 +50,4 @@     ,"language" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON NotebookCellTextDocumentFilter where-  parseJSON = Aeson.withObject "NotebookCellTextDocumentFilter" $ \arg -> NotebookCellTextDocumentFilter <$> arg Aeson..: "notebook" <*> arg Aeson..:! "language"+  parseJSON = Aeson.withObject "NotebookCellTextDocumentFilter" $ \arg -> NotebookCellTextDocumentFilter <$> arg Aeson..: "notebook" <*> arg Language.LSP.Protocol.Types.Common..:!? "language"
generated/Language/LSP/Protocol/Internal/Types/NotebookDocument.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -62,4 +64,4 @@     ,["cells" Aeson..= arg4]]  instance Aeson.FromJSON NotebookDocument where-  parseJSON = Aeson.withObject "NotebookDocument" $ \arg -> NotebookDocument <$> arg Aeson..: "uri" <*> arg Aeson..: "notebookType" <*> arg Aeson..: "version" <*> arg Aeson..:! "metadata" <*> arg Aeson..: "cells"+  parseJSON = Aeson.withObject "NotebookDocument" $ \arg -> NotebookDocument <$> arg Aeson..: "uri" <*> arg Aeson..: "notebookType" <*> arg Aeson..: "version" <*> arg Language.LSP.Protocol.Types.Common..:!? "metadata" <*> arg Aeson..: "cells"
+ generated/Language/LSP/Protocol/Internal/Types/NotebookDocumentCellChangeStructure.hs view
@@ -0,0 +1,53 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.NotebookDocumentCellChangeStructure where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Language.LSP.Protocol.Internal.Types.NotebookCellArrayChange+import qualified Language.LSP.Protocol.Internal.Types.TextDocumentIdentifier+import qualified Language.LSP.Protocol.Internal.Types.TextDocumentItem+import qualified Language.LSP.Protocol.Types.Common++{-|+Structural changes to cells in a notebook document.++@since 3.18.0+@proposed+-}+data NotebookDocumentCellChangeStructure = NotebookDocumentCellChangeStructure +  { {-|+  The change to the cell array.+  -}+  _array :: Language.LSP.Protocol.Internal.Types.NotebookCellArrayChange.NotebookCellArrayChange+  , {-|+  Additional opened cell text documents.+  -}+  _didOpen :: (Maybe [Language.LSP.Protocol.Internal.Types.TextDocumentItem.TextDocumentItem])+  , {-|+  Additional closed cell text documents.+  -}+  _didClose :: (Maybe [Language.LSP.Protocol.Internal.Types.TextDocumentIdentifier.TextDocumentIdentifier])+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON NotebookDocumentCellChangeStructure)++instance Aeson.ToJSON NotebookDocumentCellChangeStructure where+  toJSON (NotebookDocumentCellChangeStructure arg0 arg1 arg2) = Aeson.object $ concat $  [["array" Aeson..= arg0]+    ,"didOpen" Language.LSP.Protocol.Types.Common..=? arg1+    ,"didClose" Language.LSP.Protocol.Types.Common..=? arg2]++instance Aeson.FromJSON NotebookDocumentCellChangeStructure where+  parseJSON = Aeson.withObject "NotebookDocumentCellChangeStructure" $ \arg -> NotebookDocumentCellChangeStructure <$> arg Aeson..: "array" <*> arg Language.LSP.Protocol.Types.Common..:!? "didOpen" <*> arg Language.LSP.Protocol.Types.Common..:!? "didClose"
+ generated/Language/LSP/Protocol/Internal/Types/NotebookDocumentCellChanges.hs view
@@ -0,0 +1,55 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.NotebookDocumentCellChanges where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Language.LSP.Protocol.Internal.Types.NotebookCell+import qualified Language.LSP.Protocol.Internal.Types.NotebookDocumentCellChangeStructure+import qualified Language.LSP.Protocol.Internal.Types.NotebookDocumentCellContentChanges+import qualified Language.LSP.Protocol.Types.Common++{-|+Cell changes to a notebook document.++@since 3.18.0+@proposed+-}+data NotebookDocumentCellChanges = NotebookDocumentCellChanges +  { {-|+  Changes to the cell structure to add or+  remove cells.+  -}+  _structure :: (Maybe Language.LSP.Protocol.Internal.Types.NotebookDocumentCellChangeStructure.NotebookDocumentCellChangeStructure)+  , {-|+  Changes to notebook cells properties like its+  kind, execution summary or metadata.+  -}+  _data_ :: (Maybe [Language.LSP.Protocol.Internal.Types.NotebookCell.NotebookCell])+  , {-|+  Changes to the text content of notebook cells.+  -}+  _textContent :: (Maybe [Language.LSP.Protocol.Internal.Types.NotebookDocumentCellContentChanges.NotebookDocumentCellContentChanges])+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON NotebookDocumentCellChanges)++instance Aeson.ToJSON NotebookDocumentCellChanges where+  toJSON (NotebookDocumentCellChanges arg0 arg1 arg2) = Aeson.object $ concat $  ["structure" Language.LSP.Protocol.Types.Common..=? arg0+    ,"data" Language.LSP.Protocol.Types.Common..=? arg1+    ,"textContent" Language.LSP.Protocol.Types.Common..=? arg2]++instance Aeson.FromJSON NotebookDocumentCellChanges where+  parseJSON = Aeson.withObject "NotebookDocumentCellChanges" $ \arg -> NotebookDocumentCellChanges <$> arg Language.LSP.Protocol.Types.Common..:!? "structure" <*> arg Language.LSP.Protocol.Types.Common..:!? "data" <*> arg Language.LSP.Protocol.Types.Common..:!? "textContent"
+ generated/Language/LSP/Protocol/Internal/Types/NotebookDocumentCellContentChanges.hs view
@@ -0,0 +1,47 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.NotebookDocumentCellContentChanges where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Language.LSP.Protocol.Internal.Types.TextDocumentContentChangeEvent+import qualified Language.LSP.Protocol.Internal.Types.VersionedTextDocumentIdentifier+import qualified Language.LSP.Protocol.Types.Common++{-|+Content changes to a cell in a notebook document.++@since 3.18.0+@proposed+-}+data NotebookDocumentCellContentChanges = NotebookDocumentCellContentChanges +  { {-|++  -}+  _document :: Language.LSP.Protocol.Internal.Types.VersionedTextDocumentIdentifier.VersionedTextDocumentIdentifier+  , {-|++  -}+  _changes :: [Language.LSP.Protocol.Internal.Types.TextDocumentContentChangeEvent.TextDocumentContentChangeEvent]+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON NotebookDocumentCellContentChanges)++instance Aeson.ToJSON NotebookDocumentCellContentChanges where+  toJSON (NotebookDocumentCellContentChanges arg0 arg1) = Aeson.object $ concat $  [["document" Aeson..= arg0]+    ,["changes" Aeson..= arg1]]++instance Aeson.FromJSON NotebookDocumentCellContentChanges where+  parseJSON = Aeson.withObject "NotebookDocumentCellContentChanges" $ \arg -> NotebookDocumentCellContentChanges <$> arg Aeson..: "document" <*> arg Aeson..: "changes"
generated/Language/LSP/Protocol/Internal/Types/NotebookDocumentChangeEvent.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -12,15 +14,9 @@ import Prettyprinter import qualified Data.Aeson import qualified Data.Aeson as Aeson-import qualified Data.Row as Row import qualified Data.Row.Aeson as Aeson import qualified Data.Row.Hashable as Hashable-import qualified Language.LSP.Protocol.Internal.Types.NotebookCell-import qualified Language.LSP.Protocol.Internal.Types.NotebookCellArrayChange-import qualified Language.LSP.Protocol.Internal.Types.TextDocumentContentChangeEvent-import qualified Language.LSP.Protocol.Internal.Types.TextDocumentIdentifier-import qualified Language.LSP.Protocol.Internal.Types.TextDocumentItem-import qualified Language.LSP.Protocol.Internal.Types.VersionedTextDocumentIdentifier+import qualified Language.LSP.Protocol.Internal.Types.NotebookDocumentCellChanges import qualified Language.LSP.Protocol.Types.Common  {-|@@ -38,7 +34,7 @@   , {-|   Changes to cells   -}-  _cells :: (Maybe (Row.Rec ("structure" Row..== (Maybe (Row.Rec ("array" Row..== Language.LSP.Protocol.Internal.Types.NotebookCellArrayChange.NotebookCellArrayChange Row..+ ("didOpen" Row..== (Maybe [Language.LSP.Protocol.Internal.Types.TextDocumentItem.TextDocumentItem]) Row..+ ("didClose" Row..== (Maybe [Language.LSP.Protocol.Internal.Types.TextDocumentIdentifier.TextDocumentIdentifier]) Row..+ Row.Empty))))) Row..+ ("data" Row..== (Maybe [Language.LSP.Protocol.Internal.Types.NotebookCell.NotebookCell]) Row..+ ("textContent" Row..== (Maybe [(Row.Rec ("document" Row..== Language.LSP.Protocol.Internal.Types.VersionedTextDocumentIdentifier.VersionedTextDocumentIdentifier Row..+ ("changes" Row..== [Language.LSP.Protocol.Internal.Types.TextDocumentContentChangeEvent.TextDocumentContentChangeEvent] Row..+ Row.Empty)))]) Row..+ Row.Empty)))))+  _cells :: (Maybe Language.LSP.Protocol.Internal.Types.NotebookDocumentCellChanges.NotebookDocumentCellChanges)   }   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)@@ -49,4 +45,4 @@     ,"cells" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON NotebookDocumentChangeEvent where-  parseJSON = Aeson.withObject "NotebookDocumentChangeEvent" $ \arg -> NotebookDocumentChangeEvent <$> arg Aeson..:! "metadata" <*> arg Aeson..:! "cells"+  parseJSON = Aeson.withObject "NotebookDocumentChangeEvent" $ \arg -> NotebookDocumentChangeEvent <$> arg Language.LSP.Protocol.Types.Common..:!? "metadata" <*> arg Language.LSP.Protocol.Types.Common..:!? "cells"
generated/Language/LSP/Protocol/Internal/Types/NotebookDocumentClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/NotebookDocumentFilter.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -11,10 +13,11 @@ import Language.LSP.Protocol.Utils.Misc import Prettyprinter import qualified Data.Aeson as Aeson-import qualified Data.Row as Row import qualified Data.Row.Aeson as Aeson import qualified Data.Row.Hashable as Hashable-import qualified Data.Text+import qualified Language.LSP.Protocol.Internal.Types.NotebookDocumentFilterNotebookType+import qualified Language.LSP.Protocol.Internal.Types.NotebookDocumentFilterPattern+import qualified Language.LSP.Protocol.Internal.Types.NotebookDocumentFilterScheme import qualified Language.LSP.Protocol.Types.Common  {-|@@ -24,7 +27,7 @@  @since 3.17.0 -}-newtype NotebookDocumentFilter = NotebookDocumentFilter ((Row.Rec ("notebookType" Row..== Data.Text.Text Row..+ ("scheme" Row..== (Maybe Data.Text.Text) Row..+ ("pattern" Row..== (Maybe Data.Text.Text) Row..+ Row.Empty)))) Language.LSP.Protocol.Types.Common.|? ((Row.Rec ("notebookType" Row..== (Maybe Data.Text.Text) Row..+ ("scheme" Row..== Data.Text.Text Row..+ ("pattern" Row..== (Maybe Data.Text.Text) Row..+ Row.Empty)))) Language.LSP.Protocol.Types.Common.|? (Row.Rec ("notebookType" Row..== (Maybe Data.Text.Text) Row..+ ("scheme" Row..== (Maybe Data.Text.Text) Row..+ ("pattern" Row..== Data.Text.Text Row..+ Row.Empty))))))+newtype NotebookDocumentFilter = NotebookDocumentFilter (Language.LSP.Protocol.Internal.Types.NotebookDocumentFilterNotebookType.NotebookDocumentFilterNotebookType Language.LSP.Protocol.Types.Common.|? (Language.LSP.Protocol.Internal.Types.NotebookDocumentFilterScheme.NotebookDocumentFilterScheme Language.LSP.Protocol.Types.Common.|? Language.LSP.Protocol.Internal.Types.NotebookDocumentFilterPattern.NotebookDocumentFilterPattern))   deriving newtype (Aeson.ToJSON, Aeson.FromJSON)   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)
+ generated/Language/LSP/Protocol/Internal/Types/NotebookDocumentFilterNotebookType.hs view
@@ -0,0 +1,51 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.NotebookDocumentFilterNotebookType where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Data.Text+import qualified Language.LSP.Protocol.Types.Common++{-|+A notebook document filter where `notebookType` is required field.++@since 3.18.0+@proposed+-}+data NotebookDocumentFilterNotebookType = NotebookDocumentFilterNotebookType +  { {-|+  The type of the enclosing notebook.+  -}+  _notebookType :: Data.Text.Text+  , {-|+  A Uri `Uri.scheme`, like `file` or `untitled`.+  -}+  _scheme :: (Maybe Data.Text.Text)+  , {-|+  A glob pattern.+  -}+  _pattern :: (Maybe Data.Text.Text)+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON NotebookDocumentFilterNotebookType)++instance Aeson.ToJSON NotebookDocumentFilterNotebookType where+  toJSON (NotebookDocumentFilterNotebookType arg0 arg1 arg2) = Aeson.object $ concat $  [["notebookType" Aeson..= arg0]+    ,"scheme" Language.LSP.Protocol.Types.Common..=? arg1+    ,"pattern" Language.LSP.Protocol.Types.Common..=? arg2]++instance Aeson.FromJSON NotebookDocumentFilterNotebookType where+  parseJSON = Aeson.withObject "NotebookDocumentFilterNotebookType" $ \arg -> NotebookDocumentFilterNotebookType <$> arg Aeson..: "notebookType" <*> arg Language.LSP.Protocol.Types.Common..:!? "scheme" <*> arg Language.LSP.Protocol.Types.Common..:!? "pattern"
+ generated/Language/LSP/Protocol/Internal/Types/NotebookDocumentFilterPattern.hs view
@@ -0,0 +1,51 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.NotebookDocumentFilterPattern where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Data.Text+import qualified Language.LSP.Protocol.Types.Common++{-|+A notebook document filter where `pattern` is required field.++@since 3.18.0+@proposed+-}+data NotebookDocumentFilterPattern = NotebookDocumentFilterPattern +  { {-|+  The type of the enclosing notebook.+  -}+  _notebookType :: (Maybe Data.Text.Text)+  , {-|+  A Uri `Uri.scheme`, like `file` or `untitled`.+  -}+  _scheme :: (Maybe Data.Text.Text)+  , {-|+  A glob pattern.+  -}+  _pattern :: Data.Text.Text+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON NotebookDocumentFilterPattern)++instance Aeson.ToJSON NotebookDocumentFilterPattern where+  toJSON (NotebookDocumentFilterPattern arg0 arg1 arg2) = Aeson.object $ concat $  ["notebookType" Language.LSP.Protocol.Types.Common..=? arg0+    ,"scheme" Language.LSP.Protocol.Types.Common..=? arg1+    ,["pattern" Aeson..= arg2]]++instance Aeson.FromJSON NotebookDocumentFilterPattern where+  parseJSON = Aeson.withObject "NotebookDocumentFilterPattern" $ \arg -> NotebookDocumentFilterPattern <$> arg Language.LSP.Protocol.Types.Common..:!? "notebookType" <*> arg Language.LSP.Protocol.Types.Common..:!? "scheme" <*> arg Aeson..: "pattern"
+ generated/Language/LSP/Protocol/Internal/Types/NotebookDocumentFilterScheme.hs view
@@ -0,0 +1,51 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.NotebookDocumentFilterScheme where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Data.Text+import qualified Language.LSP.Protocol.Types.Common++{-|+A notebook document filter where `scheme` is required field.++@since 3.18.0+@proposed+-}+data NotebookDocumentFilterScheme = NotebookDocumentFilterScheme +  { {-|+  The type of the enclosing notebook.+  -}+  _notebookType :: (Maybe Data.Text.Text)+  , {-|+  A Uri `Uri.scheme`, like `file` or `untitled`.+  -}+  _scheme :: Data.Text.Text+  , {-|+  A glob pattern.+  -}+  _pattern :: (Maybe Data.Text.Text)+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON NotebookDocumentFilterScheme)++instance Aeson.ToJSON NotebookDocumentFilterScheme where+  toJSON (NotebookDocumentFilterScheme arg0 arg1 arg2) = Aeson.object $ concat $  ["notebookType" Language.LSP.Protocol.Types.Common..=? arg0+    ,["scheme" Aeson..= arg1]+    ,"pattern" Language.LSP.Protocol.Types.Common..=? arg2]++instance Aeson.FromJSON NotebookDocumentFilterScheme where+  parseJSON = Aeson.withObject "NotebookDocumentFilterScheme" $ \arg -> NotebookDocumentFilterScheme <$> arg Language.LSP.Protocol.Types.Common..:!? "notebookType" <*> arg Aeson..: "scheme" <*> arg Language.LSP.Protocol.Types.Common..:!? "pattern"
+ generated/Language/LSP/Protocol/Internal/Types/NotebookDocumentFilterWithCells.hs view
@@ -0,0 +1,48 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.NotebookDocumentFilterWithCells where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Data.Text+import qualified Language.LSP.Protocol.Internal.Types.NotebookCellLanguage+import qualified Language.LSP.Protocol.Internal.Types.NotebookDocumentFilter+import qualified Language.LSP.Protocol.Types.Common++{-|+@since 3.18.0+@proposed+-}+data NotebookDocumentFilterWithCells = NotebookDocumentFilterWithCells +  { {-|+  The notebook to be synced If a string+  value is provided it matches against the+  notebook type. '*' matches every notebook.+  -}+  _notebook :: (Maybe (Data.Text.Text Language.LSP.Protocol.Types.Common.|? Language.LSP.Protocol.Internal.Types.NotebookDocumentFilter.NotebookDocumentFilter))+  , {-|+  The cells of the matching notebook to be synced.+  -}+  _cells :: [Language.LSP.Protocol.Internal.Types.NotebookCellLanguage.NotebookCellLanguage]+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON NotebookDocumentFilterWithCells)++instance Aeson.ToJSON NotebookDocumentFilterWithCells where+  toJSON (NotebookDocumentFilterWithCells arg0 arg1) = Aeson.object $ concat $  ["notebook" Language.LSP.Protocol.Types.Common..=? arg0+    ,["cells" Aeson..= arg1]]++instance Aeson.FromJSON NotebookDocumentFilterWithCells where+  parseJSON = Aeson.withObject "NotebookDocumentFilterWithCells" $ \arg -> NotebookDocumentFilterWithCells <$> arg Language.LSP.Protocol.Types.Common..:!? "notebook" <*> arg Aeson..: "cells"
+ generated/Language/LSP/Protocol/Internal/Types/NotebookDocumentFilterWithNotebook.hs view
@@ -0,0 +1,48 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.NotebookDocumentFilterWithNotebook where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Data.Text+import qualified Language.LSP.Protocol.Internal.Types.NotebookCellLanguage+import qualified Language.LSP.Protocol.Internal.Types.NotebookDocumentFilter+import qualified Language.LSP.Protocol.Types.Common++{-|+@since 3.18.0+@proposed+-}+data NotebookDocumentFilterWithNotebook = NotebookDocumentFilterWithNotebook +  { {-|+  The notebook to be synced If a string+  value is provided it matches against the+  notebook type. '*' matches every notebook.+  -}+  _notebook :: (Data.Text.Text Language.LSP.Protocol.Types.Common.|? Language.LSP.Protocol.Internal.Types.NotebookDocumentFilter.NotebookDocumentFilter)+  , {-|+  The cells of the matching notebook to be synced.+  -}+  _cells :: (Maybe [Language.LSP.Protocol.Internal.Types.NotebookCellLanguage.NotebookCellLanguage])+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON NotebookDocumentFilterWithNotebook)++instance Aeson.ToJSON NotebookDocumentFilterWithNotebook where+  toJSON (NotebookDocumentFilterWithNotebook arg0 arg1) = Aeson.object $ concat $  [["notebook" Aeson..= arg0]+    ,"cells" Language.LSP.Protocol.Types.Common..=? arg1]++instance Aeson.FromJSON NotebookDocumentFilterWithNotebook where+  parseJSON = Aeson.withObject "NotebookDocumentFilterWithNotebook" $ \arg -> NotebookDocumentFilterWithNotebook <$> arg Aeson..: "notebook" <*> arg Language.LSP.Protocol.Types.Common..:!? "cells"
generated/Language/LSP/Protocol/Internal/Types/NotebookDocumentIdentifier.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/NotebookDocumentSyncClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -42,4 +44,4 @@     ,"executionSummarySupport" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON NotebookDocumentSyncClientCapabilities where-  parseJSON = Aeson.withObject "NotebookDocumentSyncClientCapabilities" $ \arg -> NotebookDocumentSyncClientCapabilities <$> arg Aeson..:! "dynamicRegistration" <*> arg Aeson..:! "executionSummarySupport"+  parseJSON = Aeson.withObject "NotebookDocumentSyncClientCapabilities" $ \arg -> NotebookDocumentSyncClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "dynamicRegistration" <*> arg Language.LSP.Protocol.Types.Common..:!? "executionSummarySupport"
generated/Language/LSP/Protocol/Internal/Types/NotebookDocumentSyncOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -11,11 +13,10 @@ import Language.LSP.Protocol.Utils.Misc import Prettyprinter import qualified Data.Aeson as Aeson-import qualified Data.Row as Row import qualified Data.Row.Aeson as Aeson import qualified Data.Row.Hashable as Hashable-import qualified Data.Text-import qualified Language.LSP.Protocol.Internal.Types.NotebookDocumentFilter+import qualified Language.LSP.Protocol.Internal.Types.NotebookDocumentFilterWithCells+import qualified Language.LSP.Protocol.Internal.Types.NotebookDocumentFilterWithNotebook import qualified Language.LSP.Protocol.Types.Common  {-|@@ -37,7 +38,7 @@   { {-|   The notebooks to be synced   -}-  _notebookSelector :: [((Row.Rec ("notebook" Row..== (Data.Text.Text Language.LSP.Protocol.Types.Common.|? Language.LSP.Protocol.Internal.Types.NotebookDocumentFilter.NotebookDocumentFilter) Row..+ ("cells" Row..== (Maybe [(Row.Rec ("language" Row..== Data.Text.Text Row..+ Row.Empty))]) Row..+ Row.Empty))) Language.LSP.Protocol.Types.Common.|? (Row.Rec ("notebook" Row..== (Maybe (Data.Text.Text Language.LSP.Protocol.Types.Common.|? Language.LSP.Protocol.Internal.Types.NotebookDocumentFilter.NotebookDocumentFilter)) Row..+ ("cells" Row..== [(Row.Rec ("language" Row..== Data.Text.Text Row..+ Row.Empty))] Row..+ Row.Empty))))]+  _notebookSelector :: [(Language.LSP.Protocol.Internal.Types.NotebookDocumentFilterWithNotebook.NotebookDocumentFilterWithNotebook Language.LSP.Protocol.Types.Common.|? Language.LSP.Protocol.Internal.Types.NotebookDocumentFilterWithCells.NotebookDocumentFilterWithCells)]   , {-|   Whether save notification should be forwarded to   the server. Will only be honored if mode === `notebook`.@@ -53,4 +54,4 @@     ,"save" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON NotebookDocumentSyncOptions where-  parseJSON = Aeson.withObject "NotebookDocumentSyncOptions" $ \arg -> NotebookDocumentSyncOptions <$> arg Aeson..: "notebookSelector" <*> arg Aeson..:! "save"+  parseJSON = Aeson.withObject "NotebookDocumentSyncOptions" $ \arg -> NotebookDocumentSyncOptions <$> arg Aeson..: "notebookSelector" <*> arg Language.LSP.Protocol.Types.Common..:!? "save"
generated/Language/LSP/Protocol/Internal/Types/NotebookDocumentSyncRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -11,11 +13,11 @@ import Language.LSP.Protocol.Utils.Misc import Prettyprinter import qualified Data.Aeson as Aeson-import qualified Data.Row as Row import qualified Data.Row.Aeson as Aeson import qualified Data.Row.Hashable as Hashable import qualified Data.Text-import qualified Language.LSP.Protocol.Internal.Types.NotebookDocumentFilter+import qualified Language.LSP.Protocol.Internal.Types.NotebookDocumentFilterWithCells+import qualified Language.LSP.Protocol.Internal.Types.NotebookDocumentFilterWithNotebook import qualified Language.LSP.Protocol.Types.Common  {-|@@ -27,7 +29,7 @@   { {-|   The notebooks to be synced   -}-  _notebookSelector :: [((Row.Rec ("notebook" Row..== (Data.Text.Text Language.LSP.Protocol.Types.Common.|? Language.LSP.Protocol.Internal.Types.NotebookDocumentFilter.NotebookDocumentFilter) Row..+ ("cells" Row..== (Maybe [(Row.Rec ("language" Row..== Data.Text.Text Row..+ Row.Empty))]) Row..+ Row.Empty))) Language.LSP.Protocol.Types.Common.|? (Row.Rec ("notebook" Row..== (Maybe (Data.Text.Text Language.LSP.Protocol.Types.Common.|? Language.LSP.Protocol.Internal.Types.NotebookDocumentFilter.NotebookDocumentFilter)) Row..+ ("cells" Row..== [(Row.Rec ("language" Row..== Data.Text.Text Row..+ Row.Empty))] Row..+ Row.Empty))))]+  _notebookSelector :: [(Language.LSP.Protocol.Internal.Types.NotebookDocumentFilterWithNotebook.NotebookDocumentFilterWithNotebook Language.LSP.Protocol.Types.Common.|? Language.LSP.Protocol.Internal.Types.NotebookDocumentFilterWithCells.NotebookDocumentFilterWithCells)]   , {-|   Whether save notification should be forwarded to   the server. Will only be honored if mode === `notebook`.@@ -49,4 +51,4 @@     ,"id" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON NotebookDocumentSyncRegistrationOptions where-  parseJSON = Aeson.withObject "NotebookDocumentSyncRegistrationOptions" $ \arg -> NotebookDocumentSyncRegistrationOptions <$> arg Aeson..: "notebookSelector" <*> arg Aeson..:! "save" <*> arg Aeson..:! "id"+  parseJSON = Aeson.withObject "NotebookDocumentSyncRegistrationOptions" $ \arg -> NotebookDocumentSyncRegistrationOptions <$> arg Aeson..: "notebookSelector" <*> arg Language.LSP.Protocol.Types.Common..:!? "save" <*> arg Language.LSP.Protocol.Types.Common..:!? "id"
generated/Language/LSP/Protocol/Internal/Types/OptionalVersionedTextDocumentIdentifier.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/ParameterInformation.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -29,6 +31,10 @@   signature label. (see SignatureInformation.label). The offsets are based on a UTF-16   string representation as `Position` and `Range` does. +  To avoid ambiguities a server should use the [start, end] offset value instead of using+  a substring. Whether a client support this is controlled via `labelOffsetSupport` client+  capability.+   *Note*: a label of type string should be a substring of its containing signature label.   Its intended use case is to highlight the parameter label part in the `SignatureInformation.label`.   -}@@ -49,4 +55,4 @@     ,"documentation" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON ParameterInformation where-  parseJSON = Aeson.withObject "ParameterInformation" $ \arg -> ParameterInformation <$> arg Aeson..: "label" <*> arg Aeson..:! "documentation"+  parseJSON = Aeson.withObject "ParameterInformation" $ \arg -> ParameterInformation <$> arg Aeson..: "label" <*> arg Language.LSP.Protocol.Types.Common..:!? "documentation"
generated/Language/LSP/Protocol/Internal/Types/PartialResultParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -34,4 +36,4 @@   toJSON (PartialResultParams arg0) = Aeson.object $ concat $  ["partialResultToken" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON PartialResultParams where-  parseJSON = Aeson.withObject "PartialResultParams" $ \arg -> PartialResultParams <$> arg Aeson..:! "partialResultToken"+  parseJSON = Aeson.withObject "PartialResultParams" $ \arg -> PartialResultParams <$> arg Language.LSP.Protocol.Types.Common..:!? "partialResultToken"
generated/Language/LSP/Protocol/Internal/Types/Pattern.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/Position.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -23,14 +25,14 @@ offset of b is 3 since `𐐀` is represented using two code units in UTF-16. Since 3.17 clients and servers can agree on a different string encoding representation (e.g. UTF-8). The client announces it's supported encoding-via the client capability [`general.positionEncodings`](#clientCapabilities).+via the client capability [`general.positionEncodings`](https://microsoft.github.io/language-server-protocol/specifications/specification-current/#clientCapabilities). The value is an array of position encodings the client supports, with decreasing preference (e.g. the encoding at index `0` is the most preferred one). To stay backwards compatible the only mandatory encoding is UTF-16 represented via the string `utf-16`. The server can pick one of the encodings offered by the client and signals that encoding back to the client via the initialize result's property-[`capabilities.positionEncoding`](#serverCapabilities). If the string value+[`capabilities.positionEncoding`](https://microsoft.github.io/language-server-protocol/specifications/specification-current/#serverCapabilities). If the string value `utf-16` is missing from the client's capability `general.positionEncodings` servers can safely assume that the client supports UTF-16. If the server omits the position encoding in its initialize result the encoding defaults
generated/Language/LSP/Protocol/Internal/Types/PositionEncodingKind.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -25,7 +27,7 @@ -} data PositionEncodingKind =      {-|-  Character offsets count UTF-8 code units.+  Character offsets count UTF-8 code units (e.g. bytes).   -}   PositionEncodingKind_UTF8   | {-|@@ -38,7 +40,7 @@   | {-|   Character offsets count UTF-32 code units. -  Implementation note: these are the same as Unicode code points,+  Implementation note: these are the same as Unicode codepoints,   so this `PositionEncodingKind` may also be used for an   encoding-agnostic representation of character offsets.   -}@@ -48,7 +50,7 @@   deriving anyclass (NFData, Hashable)   deriving ( Aeson.ToJSON   , Aeson.FromJSON-  , Data.String.IsString ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum PositionEncodingKind Data.Text.Text)+  , Data.String.IsString ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum PositionEncodingKind)   deriving Pretty via (ViaJSON PositionEncodingKind)  instance Language.LSP.Protocol.Types.LspEnum.LspEnum PositionEncodingKind where
+ generated/Language/LSP/Protocol/Internal/Types/PrepareRenameDefaultBehavior.hs view
@@ -0,0 +1,38 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.PrepareRenameDefaultBehavior where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Language.LSP.Protocol.Types.Common++{-|+@since 3.18.0+@proposed+-}+data PrepareRenameDefaultBehavior = PrepareRenameDefaultBehavior +  { {-|++  -}+  _defaultBehavior :: Bool+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON PrepareRenameDefaultBehavior)++instance Aeson.ToJSON PrepareRenameDefaultBehavior where+  toJSON (PrepareRenameDefaultBehavior arg0) = Aeson.object $ concat $  [["defaultBehavior" Aeson..= arg0]]++instance Aeson.FromJSON PrepareRenameDefaultBehavior where+  parseJSON = Aeson.withObject "PrepareRenameDefaultBehavior" $ \arg -> PrepareRenameDefaultBehavior <$> arg Aeson..: "defaultBehavior"
generated/Language/LSP/Protocol/Internal/Types/PrepareRenameParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -45,4 +47,4 @@     ,"workDoneToken" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON PrepareRenameParams where-  parseJSON = Aeson.withObject "PrepareRenameParams" $ \arg -> PrepareRenameParams <$> arg Aeson..: "textDocument" <*> arg Aeson..: "position" <*> arg Aeson..:! "workDoneToken"+  parseJSON = Aeson.withObject "PrepareRenameParams" $ \arg -> PrepareRenameParams <$> arg Aeson..: "textDocument" <*> arg Aeson..: "position" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken"
+ generated/Language/LSP/Protocol/Internal/Types/PrepareRenamePlaceholder.hs view
@@ -0,0 +1,45 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.PrepareRenamePlaceholder where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Data.Text+import qualified Language.LSP.Protocol.Internal.Types.Range+import qualified Language.LSP.Protocol.Types.Common++{-|+@since 3.18.0+@proposed+-}+data PrepareRenamePlaceholder = PrepareRenamePlaceholder +  { {-|++  -}+  _range :: Language.LSP.Protocol.Internal.Types.Range.Range+  , {-|++  -}+  _placeholder :: Data.Text.Text+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON PrepareRenamePlaceholder)++instance Aeson.ToJSON PrepareRenamePlaceholder where+  toJSON (PrepareRenamePlaceholder arg0 arg1) = Aeson.object $ concat $  [["range" Aeson..= arg0]+    ,["placeholder" Aeson..= arg1]]++instance Aeson.FromJSON PrepareRenamePlaceholder where+  parseJSON = Aeson.withObject "PrepareRenamePlaceholder" $ \arg -> PrepareRenamePlaceholder <$> arg Aeson..: "range" <*> arg Aeson..: "placeholder"
generated/Language/LSP/Protocol/Internal/Types/PrepareRenameResult.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -11,17 +13,17 @@ import Language.LSP.Protocol.Utils.Misc import Prettyprinter import qualified Data.Aeson as Aeson-import qualified Data.Row as Row import qualified Data.Row.Aeson as Aeson import qualified Data.Row.Hashable as Hashable-import qualified Data.Text+import qualified Language.LSP.Protocol.Internal.Types.PrepareRenameDefaultBehavior+import qualified Language.LSP.Protocol.Internal.Types.PrepareRenamePlaceholder import qualified Language.LSP.Protocol.Internal.Types.Range import qualified Language.LSP.Protocol.Types.Common  {-|  -}-newtype PrepareRenameResult = PrepareRenameResult (Language.LSP.Protocol.Internal.Types.Range.Range Language.LSP.Protocol.Types.Common.|? ((Row.Rec ("range" Row..== Language.LSP.Protocol.Internal.Types.Range.Range Row..+ ("placeholder" Row..== Data.Text.Text Row..+ Row.Empty))) Language.LSP.Protocol.Types.Common.|? (Row.Rec ("defaultBehavior" Row..== Bool Row..+ Row.Empty))))+newtype PrepareRenameResult = PrepareRenameResult (Language.LSP.Protocol.Internal.Types.Range.Range Language.LSP.Protocol.Types.Common.|? (Language.LSP.Protocol.Internal.Types.PrepareRenamePlaceholder.PrepareRenamePlaceholder Language.LSP.Protocol.Types.Common.|? Language.LSP.Protocol.Internal.Types.PrepareRenameDefaultBehavior.PrepareRenameDefaultBehavior))   deriving newtype (Aeson.ToJSON, Aeson.FromJSON)   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)
generated/Language/LSP/Protocol/Internal/Types/PrepareSupportDefaultBehavior.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -30,7 +32,7 @@   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)   deriving ( Aeson.ToJSON-  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum PrepareSupportDefaultBehavior Language.LSP.Protocol.Types.Common.UInt)+  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum PrepareSupportDefaultBehavior)   deriving Pretty via (ViaJSON PrepareSupportDefaultBehavior)  instance Language.LSP.Protocol.Types.LspEnum.LspEnum PrepareSupportDefaultBehavior where
generated/Language/LSP/Protocol/Internal/Types/PreviousResultId.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/ProgressParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/ProgressToken.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/PublishDiagnosticsClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -11,10 +13,9 @@ import Language.LSP.Protocol.Utils.Misc import Prettyprinter import qualified Data.Aeson as Aeson-import qualified Data.Row as Row import qualified Data.Row.Aeson as Aeson import qualified Data.Row.Hashable as Hashable-import qualified Language.LSP.Protocol.Internal.Types.DiagnosticTag+import qualified Language.LSP.Protocol.Internal.Types.ClientDiagnosticsTagOptions import qualified Language.LSP.Protocol.Types.Common  {-|@@ -31,7 +32,7 @@    @since 3.15.0   -}-  _tagSupport :: (Maybe (Row.Rec ("valueSet" Row..== [Language.LSP.Protocol.Internal.Types.DiagnosticTag.DiagnosticTag] Row..+ Row.Empty)))+  _tagSupport :: (Maybe Language.LSP.Protocol.Internal.Types.ClientDiagnosticsTagOptions.ClientDiagnosticsTagOptions)   , {-|   Whether the client interprets the version property of the   `textDocument/publishDiagnostics` notification's parameter.@@ -66,4 +67,4 @@     ,"dataSupport" Language.LSP.Protocol.Types.Common..=? arg4]  instance Aeson.FromJSON PublishDiagnosticsClientCapabilities where-  parseJSON = Aeson.withObject "PublishDiagnosticsClientCapabilities" $ \arg -> PublishDiagnosticsClientCapabilities <$> arg Aeson..:! "relatedInformation" <*> arg Aeson..:! "tagSupport" <*> arg Aeson..:! "versionSupport" <*> arg Aeson..:! "codeDescriptionSupport" <*> arg Aeson..:! "dataSupport"+  parseJSON = Aeson.withObject "PublishDiagnosticsClientCapabilities" $ \arg -> PublishDiagnosticsClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "relatedInformation" <*> arg Language.LSP.Protocol.Types.Common..:!? "tagSupport" <*> arg Language.LSP.Protocol.Types.Common..:!? "versionSupport" <*> arg Language.LSP.Protocol.Types.Common..:!? "codeDescriptionSupport" <*> arg Language.LSP.Protocol.Types.Common..:!? "dataSupport"
generated/Language/LSP/Protocol/Internal/Types/PublishDiagnosticsParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -46,4 +48,4 @@     ,["diagnostics" Aeson..= arg2]]  instance Aeson.FromJSON PublishDiagnosticsParams where-  parseJSON = Aeson.withObject "PublishDiagnosticsParams" $ \arg -> PublishDiagnosticsParams <$> arg Aeson..: "uri" <*> arg Aeson..:! "version" <*> arg Aeson..: "diagnostics"+  parseJSON = Aeson.withObject "PublishDiagnosticsParams" $ \arg -> PublishDiagnosticsParams <$> arg Aeson..: "uri" <*> arg Language.LSP.Protocol.Types.Common..:!? "version" <*> arg Aeson..: "diagnostics"
generated/Language/LSP/Protocol/Internal/Types/Range.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/ReferenceClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -32,4 +34,4 @@   toJSON (ReferenceClientCapabilities arg0) = Aeson.object $ concat $  ["dynamicRegistration" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON ReferenceClientCapabilities where-  parseJSON = Aeson.withObject "ReferenceClientCapabilities" $ \arg -> ReferenceClientCapabilities <$> arg Aeson..:! "dynamicRegistration"+  parseJSON = Aeson.withObject "ReferenceClientCapabilities" $ \arg -> ReferenceClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "dynamicRegistration"
generated/Language/LSP/Protocol/Internal/Types/ReferenceContext.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/ReferenceOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -32,4 +34,4 @@   toJSON (ReferenceOptions arg0) = Aeson.object $ concat $  ["workDoneProgress" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON ReferenceOptions where-  parseJSON = Aeson.withObject "ReferenceOptions" $ \arg -> ReferenceOptions <$> arg Aeson..:! "workDoneProgress"+  parseJSON = Aeson.withObject "ReferenceOptions" $ \arg -> ReferenceOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress"
generated/Language/LSP/Protocol/Internal/Types/ReferenceParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -57,4 +59,4 @@     ,["context" Aeson..= arg4]]  instance Aeson.FromJSON ReferenceParams where-  parseJSON = Aeson.withObject "ReferenceParams" $ \arg -> ReferenceParams <$> arg Aeson..: "textDocument" <*> arg Aeson..: "position" <*> arg Aeson..:! "workDoneToken" <*> arg Aeson..:! "partialResultToken" <*> arg Aeson..: "context"+  parseJSON = Aeson.withObject "ReferenceParams" $ \arg -> ReferenceParams <$> arg Aeson..: "textDocument" <*> arg Aeson..: "position" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken" <*> arg Language.LSP.Protocol.Types.Common..:!? "partialResultToken" <*> arg Aeson..: "context"
generated/Language/LSP/Protocol/Internal/Types/ReferenceRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -39,4 +41,4 @@     ,"workDoneProgress" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON ReferenceRegistrationOptions where-  parseJSON = Aeson.withObject "ReferenceRegistrationOptions" $ \arg -> ReferenceRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Aeson..:! "workDoneProgress"+  parseJSON = Aeson.withObject "ReferenceRegistrationOptions" $ \arg -> ReferenceRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress"
generated/Language/LSP/Protocol/Internal/Types/Registration.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -18,7 +20,7 @@ import qualified Language.LSP.Protocol.Types.Common  {-|-General parameters to to register for an notification or to register a provider.+General parameters to register for a notification or to register a provider. -} data Registration = Registration    { {-|@@ -45,4 +47,4 @@     ,"registerOptions" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON Registration where-  parseJSON = Aeson.withObject "Registration" $ \arg -> Registration <$> arg Aeson..: "id" <*> arg Aeson..: "method" <*> arg Aeson..:! "registerOptions"+  parseJSON = Aeson.withObject "Registration" $ \arg -> Registration <$> arg Aeson..: "id" <*> arg Aeson..: "method" <*> arg Language.LSP.Protocol.Types.Common..:!? "registerOptions"
generated/Language/LSP/Protocol/Internal/Types/RegistrationParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
+ generated/Language/LSP/Protocol/Internal/Types/RegularExpressionEngineKind.hs view
@@ -0,0 +1,30 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.RegularExpressionEngineKind where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Data.Text++{-|++-}+newtype RegularExpressionEngineKind = RegularExpressionEngineKind Data.Text.Text+  deriving newtype ( Aeson.ToJSON+  , Aeson.FromJSON+  , Aeson.ToJSONKey+  , Aeson.FromJSONKey )+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON RegularExpressionEngineKind)
generated/Language/LSP/Protocol/Internal/Types/RegularExpressionsClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -14,6 +16,7 @@ import qualified Data.Row.Aeson as Aeson import qualified Data.Row.Hashable as Hashable import qualified Data.Text+import qualified Language.LSP.Protocol.Internal.Types.RegularExpressionEngineKind import qualified Language.LSP.Protocol.Types.Common  {-|@@ -25,7 +28,7 @@   { {-|   The engine's name.   -}-  _engine :: Data.Text.Text+  _engine :: Language.LSP.Protocol.Internal.Types.RegularExpressionEngineKind.RegularExpressionEngineKind   , {-|   The engine's version.   -}@@ -40,4 +43,4 @@     ,"version" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON RegularExpressionsClientCapabilities where-  parseJSON = Aeson.withObject "RegularExpressionsClientCapabilities" $ \arg -> RegularExpressionsClientCapabilities <$> arg Aeson..: "engine" <*> arg Aeson..:! "version"+  parseJSON = Aeson.withObject "RegularExpressionsClientCapabilities" $ \arg -> RegularExpressionsClientCapabilities <$> arg Aeson..: "engine" <*> arg Language.LSP.Protocol.Types.Common..:!? "version"
generated/Language/LSP/Protocol/Internal/Types/RelatedFullDocumentDiagnosticReport.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -64,4 +66,4 @@     ,"relatedDocuments" Language.LSP.Protocol.Types.Common..=? arg3]  instance Aeson.FromJSON RelatedFullDocumentDiagnosticReport where-  parseJSON = Aeson.withObject "RelatedFullDocumentDiagnosticReport" $ \arg -> RelatedFullDocumentDiagnosticReport <$> arg Aeson..: "kind" <*> arg Aeson..:! "resultId" <*> arg Aeson..: "items" <*> arg Aeson..:! "relatedDocuments"+  parseJSON = Aeson.withObject "RelatedFullDocumentDiagnosticReport" $ \arg -> RelatedFullDocumentDiagnosticReport <$> arg Aeson..: "kind" <*> arg Language.LSP.Protocol.Types.Common..:!? "resultId" <*> arg Aeson..: "items" <*> arg Language.LSP.Protocol.Types.Common..:!? "relatedDocuments"
generated/Language/LSP/Protocol/Internal/Types/RelatedUnchangedDocumentDiagnosticReport.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -60,4 +62,4 @@     ,"relatedDocuments" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON RelatedUnchangedDocumentDiagnosticReport where-  parseJSON = Aeson.withObject "RelatedUnchangedDocumentDiagnosticReport" $ \arg -> RelatedUnchangedDocumentDiagnosticReport <$> arg Aeson..: "kind" <*> arg Aeson..: "resultId" <*> arg Aeson..:! "relatedDocuments"+  parseJSON = Aeson.withObject "RelatedUnchangedDocumentDiagnosticReport" $ \arg -> RelatedUnchangedDocumentDiagnosticReport <$> arg Aeson..: "kind" <*> arg Aeson..: "resultId" <*> arg Language.LSP.Protocol.Types.Common..:!? "relatedDocuments"
generated/Language/LSP/Protocol/Internal/Types/RelativePattern.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/RenameClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -62,4 +64,4 @@     ,"honorsChangeAnnotations" Language.LSP.Protocol.Types.Common..=? arg3]  instance Aeson.FromJSON RenameClientCapabilities where-  parseJSON = Aeson.withObject "RenameClientCapabilities" $ \arg -> RenameClientCapabilities <$> arg Aeson..:! "dynamicRegistration" <*> arg Aeson..:! "prepareSupport" <*> arg Aeson..:! "prepareSupportDefaultBehavior" <*> arg Aeson..:! "honorsChangeAnnotations"+  parseJSON = Aeson.withObject "RenameClientCapabilities" $ \arg -> RenameClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "dynamicRegistration" <*> arg Language.LSP.Protocol.Types.Common..:!? "prepareSupport" <*> arg Language.LSP.Protocol.Types.Common..:!? "prepareSupportDefaultBehavior" <*> arg Language.LSP.Protocol.Types.Common..:!? "honorsChangeAnnotations"
generated/Language/LSP/Protocol/Internal/Types/RenameFile.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -58,4 +60,4 @@     ,"options" Language.LSP.Protocol.Types.Common..=? arg4]  instance Aeson.FromJSON RenameFile where-  parseJSON = Aeson.withObject "RenameFile" $ \arg -> RenameFile <$> arg Aeson..:! "annotationId" <*> arg Aeson..: "kind" <*> arg Aeson..: "oldUri" <*> arg Aeson..: "newUri" <*> arg Aeson..:! "options"+  parseJSON = Aeson.withObject "RenameFile" $ \arg -> RenameFile <$> arg Language.LSP.Protocol.Types.Common..:!? "annotationId" <*> arg Aeson..: "kind" <*> arg Aeson..: "oldUri" <*> arg Aeson..: "newUri" <*> arg Language.LSP.Protocol.Types.Common..:!? "options"
generated/Language/LSP/Protocol/Internal/Types/RenameFileOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -37,4 +39,4 @@     ,"ignoreIfExists" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON RenameFileOptions where-  parseJSON = Aeson.withObject "RenameFileOptions" $ \arg -> RenameFileOptions <$> arg Aeson..:! "overwrite" <*> arg Aeson..:! "ignoreIfExists"+  parseJSON = Aeson.withObject "RenameFileOptions" $ \arg -> RenameFileOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "overwrite" <*> arg Language.LSP.Protocol.Types.Common..:!? "ignoreIfExists"
generated/Language/LSP/Protocol/Internal/Types/RenameFilesParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/RenameOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -39,4 +41,4 @@     ,"prepareProvider" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON RenameOptions where-  parseJSON = Aeson.withObject "RenameOptions" $ \arg -> RenameOptions <$> arg Aeson..:! "workDoneProgress" <*> arg Aeson..:! "prepareProvider"+  parseJSON = Aeson.withObject "RenameOptions" $ \arg -> RenameOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress" <*> arg Language.LSP.Protocol.Types.Common..:!? "prepareProvider"
generated/Language/LSP/Protocol/Internal/Types/RenameParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -53,4 +55,4 @@     ,["newName" Aeson..= arg3]]  instance Aeson.FromJSON RenameParams where-  parseJSON = Aeson.withObject "RenameParams" $ \arg -> RenameParams <$> arg Aeson..:! "workDoneToken" <*> arg Aeson..: "textDocument" <*> arg Aeson..: "position" <*> arg Aeson..: "newName"+  parseJSON = Aeson.withObject "RenameParams" $ \arg -> RenameParams <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken" <*> arg Aeson..: "textDocument" <*> arg Aeson..: "position" <*> arg Aeson..: "newName"
generated/Language/LSP/Protocol/Internal/Types/RenameRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -46,4 +48,4 @@     ,"prepareProvider" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON RenameRegistrationOptions where-  parseJSON = Aeson.withObject "RenameRegistrationOptions" $ \arg -> RenameRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Aeson..:! "workDoneProgress" <*> arg Aeson..:! "prepareProvider"+  parseJSON = Aeson.withObject "RenameRegistrationOptions" $ \arg -> RenameRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress" <*> arg Language.LSP.Protocol.Types.Common..:!? "prepareProvider"
generated/Language/LSP/Protocol/Internal/Types/ResourceOperation.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -41,4 +43,4 @@     ,"annotationId" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON ResourceOperation where-  parseJSON = Aeson.withObject "ResourceOperation" $ \arg -> ResourceOperation <$> arg Aeson..: "kind" <*> arg Aeson..:! "annotationId"+  parseJSON = Aeson.withObject "ResourceOperation" $ \arg -> ResourceOperation <$> arg Aeson..: "kind" <*> arg Language.LSP.Protocol.Types.Common..:!? "annotationId"
generated/Language/LSP/Protocol/Internal/Types/ResourceOperationKind.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -37,7 +39,7 @@   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)   deriving ( Aeson.ToJSON-  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum ResourceOperationKind Data.Text.Text)+  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum ResourceOperationKind)   deriving Pretty via (ViaJSON ResourceOperationKind)  instance Language.LSP.Protocol.Types.LspEnum.LspEnum ResourceOperationKind where
generated/Language/LSP/Protocol/Internal/Types/SaveOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -32,4 +34,4 @@   toJSON (SaveOptions arg0) = Aeson.object $ concat $  ["includeText" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON SaveOptions where-  parseJSON = Aeson.withObject "SaveOptions" $ \arg -> SaveOptions <$> arg Aeson..:! "includeText"+  parseJSON = Aeson.withObject "SaveOptions" $ \arg -> SaveOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "includeText"
generated/Language/LSP/Protocol/Internal/Types/SelectionRange.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -39,4 +41,4 @@     ,"parent" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON SelectionRange where-  parseJSON = Aeson.withObject "SelectionRange" $ \arg -> SelectionRange <$> arg Aeson..: "range" <*> arg Aeson..:! "parent"+  parseJSON = Aeson.withObject "SelectionRange" $ \arg -> SelectionRange <$> arg Aeson..: "range" <*> arg Language.LSP.Protocol.Types.Common..:!? "parent"
generated/Language/LSP/Protocol/Internal/Types/SelectionRangeClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -34,4 +36,4 @@   toJSON (SelectionRangeClientCapabilities arg0) = Aeson.object $ concat $  ["dynamicRegistration" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON SelectionRangeClientCapabilities where-  parseJSON = Aeson.withObject "SelectionRangeClientCapabilities" $ \arg -> SelectionRangeClientCapabilities <$> arg Aeson..:! "dynamicRegistration"+  parseJSON = Aeson.withObject "SelectionRangeClientCapabilities" $ \arg -> SelectionRangeClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "dynamicRegistration"
generated/Language/LSP/Protocol/Internal/Types/SelectionRangeOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -32,4 +34,4 @@   toJSON (SelectionRangeOptions arg0) = Aeson.object $ concat $  ["workDoneProgress" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON SelectionRangeOptions where-  parseJSON = Aeson.withObject "SelectionRangeOptions" $ \arg -> SelectionRangeOptions <$> arg Aeson..:! "workDoneProgress"+  parseJSON = Aeson.withObject "SelectionRangeOptions" $ \arg -> SelectionRangeOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress"
generated/Language/LSP/Protocol/Internal/Types/SelectionRangeParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -51,4 +53,4 @@     ,["positions" Aeson..= arg3]]  instance Aeson.FromJSON SelectionRangeParams where-  parseJSON = Aeson.withObject "SelectionRangeParams" $ \arg -> SelectionRangeParams <$> arg Aeson..:! "workDoneToken" <*> arg Aeson..:! "partialResultToken" <*> arg Aeson..: "textDocument" <*> arg Aeson..: "positions"+  parseJSON = Aeson.withObject "SelectionRangeParams" $ \arg -> SelectionRangeParams <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken" <*> arg Language.LSP.Protocol.Types.Common..:!? "partialResultToken" <*> arg Aeson..: "textDocument" <*> arg Aeson..: "positions"
generated/Language/LSP/Protocol/Internal/Types/SelectionRangeRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -46,4 +48,4 @@     ,"id" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON SelectionRangeRegistrationOptions where-  parseJSON = Aeson.withObject "SelectionRangeRegistrationOptions" $ \arg -> SelectionRangeRegistrationOptions <$> arg Aeson..:! "workDoneProgress" <*> arg Aeson..: "documentSelector" <*> arg Aeson..:! "id"+  parseJSON = Aeson.withObject "SelectionRangeRegistrationOptions" $ \arg -> SelectionRangeRegistrationOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress" <*> arg Aeson..: "documentSelector" <*> arg Language.LSP.Protocol.Types.Common..:!? "id"
generated/Language/LSP/Protocol/Internal/Types/SemanticTokenModifiers.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -71,7 +73,7 @@   deriving anyclass (NFData, Hashable)   deriving ( Aeson.ToJSON   , Aeson.FromJSON-  , Data.String.IsString ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum SemanticTokenModifiers Data.Text.Text)+  , Data.String.IsString ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum SemanticTokenModifiers)   deriving Pretty via (ViaJSON SemanticTokenModifiers)  instance Language.LSP.Protocol.Types.LspEnum.LspEnum SemanticTokenModifiers where
generated/Language/LSP/Protocol/Internal/Types/SemanticTokenTypes.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -124,7 +126,7 @@   deriving anyclass (NFData, Hashable)   deriving ( Aeson.ToJSON   , Aeson.FromJSON-  , Data.String.IsString ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum SemanticTokenTypes Data.Text.Text)+  , Data.String.IsString ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum SemanticTokenTypes)   deriving Pretty via (ViaJSON SemanticTokenTypes)  instance Language.LSP.Protocol.Types.LspEnum.LspEnum SemanticTokenTypes where
generated/Language/LSP/Protocol/Internal/Types/SemanticTokens.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -41,4 +43,4 @@     ,["data" Aeson..= arg1]]  instance Aeson.FromJSON SemanticTokens where-  parseJSON = Aeson.withObject "SemanticTokens" $ \arg -> SemanticTokens <$> arg Aeson..:! "resultId" <*> arg Aeson..: "data"+  parseJSON = Aeson.withObject "SemanticTokens" $ \arg -> SemanticTokens <$> arg Language.LSP.Protocol.Types.Common..:!? "resultId" <*> arg Aeson..: "data"
generated/Language/LSP/Protocol/Internal/Types/SemanticTokensClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -11,10 +13,10 @@ import Language.LSP.Protocol.Utils.Misc import Prettyprinter import qualified Data.Aeson as Aeson-import qualified Data.Row as Row import qualified Data.Row.Aeson as Aeson import qualified Data.Row.Hashable as Hashable import qualified Data.Text+import qualified Language.LSP.Protocol.Internal.Types.ClientSemanticTokensRequestOptions import qualified Language.LSP.Protocol.Internal.Types.TokenFormat import qualified Language.LSP.Protocol.Types.Common @@ -38,7 +40,7 @@   range provider the client might not render a minimap correctly or might   even decide to not show any semantic tokens at all.   -}-  _requests :: (Row.Rec ("range" Row..== (Maybe (Bool Language.LSP.Protocol.Types.Common.|? (Row.Rec Row.Empty))) Row..+ ("full" Row..== (Maybe (Bool Language.LSP.Protocol.Types.Common.|? (Row.Rec ("delta" Row..== (Maybe Bool) Row..+ Row.Empty)))) Row..+ Row.Empty)))+  _requests :: Language.LSP.Protocol.Internal.Types.ClientSemanticTokensRequestOptions.ClientSemanticTokensRequestOptions   , {-|   The token types that the client supports.   -}@@ -98,4 +100,4 @@     ,"augmentsSyntaxTokens" Language.LSP.Protocol.Types.Common..=? arg8]  instance Aeson.FromJSON SemanticTokensClientCapabilities where-  parseJSON = Aeson.withObject "SemanticTokensClientCapabilities" $ \arg -> SemanticTokensClientCapabilities <$> arg Aeson..:! "dynamicRegistration" <*> arg Aeson..: "requests" <*> arg Aeson..: "tokenTypes" <*> arg Aeson..: "tokenModifiers" <*> arg Aeson..: "formats" <*> arg Aeson..:! "overlappingTokenSupport" <*> arg Aeson..:! "multilineTokenSupport" <*> arg Aeson..:! "serverCancelSupport" <*> arg Aeson..:! "augmentsSyntaxTokens"+  parseJSON = Aeson.withObject "SemanticTokensClientCapabilities" $ \arg -> SemanticTokensClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "dynamicRegistration" <*> arg Aeson..: "requests" <*> arg Aeson..: "tokenTypes" <*> arg Aeson..: "tokenModifiers" <*> arg Aeson..: "formats" <*> arg Language.LSP.Protocol.Types.Common..:!? "overlappingTokenSupport" <*> arg Language.LSP.Protocol.Types.Common..:!? "multilineTokenSupport" <*> arg Language.LSP.Protocol.Types.Common..:!? "serverCancelSupport" <*> arg Language.LSP.Protocol.Types.Common..:!? "augmentsSyntaxTokens"
generated/Language/LSP/Protocol/Internal/Types/SemanticTokensDelta.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -39,4 +41,4 @@     ,["edits" Aeson..= arg1]]  instance Aeson.FromJSON SemanticTokensDelta where-  parseJSON = Aeson.withObject "SemanticTokensDelta" $ \arg -> SemanticTokensDelta <$> arg Aeson..:! "resultId" <*> arg Aeson..: "edits"+  parseJSON = Aeson.withObject "SemanticTokensDelta" $ \arg -> SemanticTokensDelta <$> arg Language.LSP.Protocol.Types.Common..:!? "resultId" <*> arg Aeson..: "edits"
generated/Language/LSP/Protocol/Internal/Types/SemanticTokensDeltaParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -52,4 +54,4 @@     ,["previousResultId" Aeson..= arg3]]  instance Aeson.FromJSON SemanticTokensDeltaParams where-  parseJSON = Aeson.withObject "SemanticTokensDeltaParams" $ \arg -> SemanticTokensDeltaParams <$> arg Aeson..:! "workDoneToken" <*> arg Aeson..:! "partialResultToken" <*> arg Aeson..: "textDocument" <*> arg Aeson..: "previousResultId"+  parseJSON = Aeson.withObject "SemanticTokensDeltaParams" $ \arg -> SemanticTokensDeltaParams <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken" <*> arg Language.LSP.Protocol.Types.Common..:!? "partialResultToken" <*> arg Aeson..: "textDocument" <*> arg Aeson..: "previousResultId"
generated/Language/LSP/Protocol/Internal/Types/SemanticTokensDeltaPartialResult.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/SemanticTokensEdit.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -42,4 +44,4 @@     ,"data" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON SemanticTokensEdit where-  parseJSON = Aeson.withObject "SemanticTokensEdit" $ \arg -> SemanticTokensEdit <$> arg Aeson..: "start" <*> arg Aeson..: "deleteCount" <*> arg Aeson..:! "data"+  parseJSON = Aeson.withObject "SemanticTokensEdit" $ \arg -> SemanticTokensEdit <$> arg Aeson..: "start" <*> arg Aeson..: "deleteCount" <*> arg Language.LSP.Protocol.Types.Common..:!? "data"
+ generated/Language/LSP/Protocol/Internal/Types/SemanticTokensFullDelta.hs view
@@ -0,0 +1,40 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.SemanticTokensFullDelta where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Language.LSP.Protocol.Types.Common++{-|+Semantic tokens options to support deltas for full documents++@since 3.18.0+@proposed+-}+data SemanticTokensFullDelta = SemanticTokensFullDelta +  { {-|+  The server supports deltas for full documents.+  -}+  _delta :: (Maybe Bool)+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON SemanticTokensFullDelta)++instance Aeson.ToJSON SemanticTokensFullDelta where+  toJSON (SemanticTokensFullDelta arg0) = Aeson.object $ concat $  ["delta" Language.LSP.Protocol.Types.Common..=? arg0]++instance Aeson.FromJSON SemanticTokensFullDelta where+  parseJSON = Aeson.withObject "SemanticTokensFullDelta" $ \arg -> SemanticTokensFullDelta <$> arg Language.LSP.Protocol.Types.Common..:!? "delta"
generated/Language/LSP/Protocol/Internal/Types/SemanticTokensLegend.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/SemanticTokensOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -14,6 +16,7 @@ import qualified Data.Row as Row import qualified Data.Row.Aeson as Aeson import qualified Data.Row.Hashable as Hashable+import qualified Language.LSP.Protocol.Internal.Types.SemanticTokensFullDelta import qualified Language.LSP.Protocol.Internal.Types.SemanticTokensLegend import qualified Language.LSP.Protocol.Types.Common @@ -37,7 +40,7 @@   , {-|   Server supports providing semantic tokens for a full document.   -}-  _full :: (Maybe (Bool Language.LSP.Protocol.Types.Common.|? (Row.Rec ("delta" Row..== (Maybe Bool) Row..+ Row.Empty))))+  _full :: (Maybe (Bool Language.LSP.Protocol.Types.Common.|? Language.LSP.Protocol.Internal.Types.SemanticTokensFullDelta.SemanticTokensFullDelta))   }   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)@@ -50,4 +53,4 @@     ,"full" Language.LSP.Protocol.Types.Common..=? arg3]  instance Aeson.FromJSON SemanticTokensOptions where-  parseJSON = Aeson.withObject "SemanticTokensOptions" $ \arg -> SemanticTokensOptions <$> arg Aeson..:! "workDoneProgress" <*> arg Aeson..: "legend" <*> arg Aeson..:! "range" <*> arg Aeson..:! "full"+  parseJSON = Aeson.withObject "SemanticTokensOptions" $ \arg -> SemanticTokensOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress" <*> arg Aeson..: "legend" <*> arg Language.LSP.Protocol.Types.Common..:!? "range" <*> arg Language.LSP.Protocol.Types.Common..:!? "full"
generated/Language/LSP/Protocol/Internal/Types/SemanticTokensParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -45,4 +47,4 @@     ,["textDocument" Aeson..= arg2]]  instance Aeson.FromJSON SemanticTokensParams where-  parseJSON = Aeson.withObject "SemanticTokensParams" $ \arg -> SemanticTokensParams <$> arg Aeson..:! "workDoneToken" <*> arg Aeson..:! "partialResultToken" <*> arg Aeson..: "textDocument"+  parseJSON = Aeson.withObject "SemanticTokensParams" $ \arg -> SemanticTokensParams <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken" <*> arg Language.LSP.Protocol.Types.Common..:!? "partialResultToken" <*> arg Aeson..: "textDocument"
generated/Language/LSP/Protocol/Internal/Types/SemanticTokensPartialResult.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/SemanticTokensRangeParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -51,4 +53,4 @@     ,["range" Aeson..= arg3]]  instance Aeson.FromJSON SemanticTokensRangeParams where-  parseJSON = Aeson.withObject "SemanticTokensRangeParams" $ \arg -> SemanticTokensRangeParams <$> arg Aeson..:! "workDoneToken" <*> arg Aeson..:! "partialResultToken" <*> arg Aeson..: "textDocument" <*> arg Aeson..: "range"+  parseJSON = Aeson.withObject "SemanticTokensRangeParams" $ \arg -> SemanticTokensRangeParams <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken" <*> arg Language.LSP.Protocol.Types.Common..:!? "partialResultToken" <*> arg Aeson..: "textDocument" <*> arg Aeson..: "range"
generated/Language/LSP/Protocol/Internal/Types/SemanticTokensRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -16,6 +18,7 @@ import qualified Data.Row.Hashable as Hashable import qualified Data.Text import qualified Language.LSP.Protocol.Internal.Types.DocumentSelector+import qualified Language.LSP.Protocol.Internal.Types.SemanticTokensFullDelta import qualified Language.LSP.Protocol.Internal.Types.SemanticTokensLegend import qualified Language.LSP.Protocol.Types.Common @@ -44,7 +47,7 @@   , {-|   Server supports providing semantic tokens for a full document.   -}-  _full :: (Maybe (Bool Language.LSP.Protocol.Types.Common.|? (Row.Rec ("delta" Row..== (Maybe Bool) Row..+ Row.Empty))))+  _full :: (Maybe (Bool Language.LSP.Protocol.Types.Common.|? Language.LSP.Protocol.Internal.Types.SemanticTokensFullDelta.SemanticTokensFullDelta))   , {-|   The id used to register the request. The id can be used to deregister   the request again. See also Registration#id.@@ -64,4 +67,4 @@     ,"id" Language.LSP.Protocol.Types.Common..=? arg5]  instance Aeson.FromJSON SemanticTokensRegistrationOptions where-  parseJSON = Aeson.withObject "SemanticTokensRegistrationOptions" $ \arg -> SemanticTokensRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Aeson..:! "workDoneProgress" <*> arg Aeson..: "legend" <*> arg Aeson..:! "range" <*> arg Aeson..:! "full" <*> arg Aeson..:! "id"+  parseJSON = Aeson.withObject "SemanticTokensRegistrationOptions" $ \arg -> SemanticTokensRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress" <*> arg Aeson..: "legend" <*> arg Language.LSP.Protocol.Types.Common..:!? "range" <*> arg Language.LSP.Protocol.Types.Common..:!? "full" <*> arg Language.LSP.Protocol.Types.Common..:!? "id"
generated/Language/LSP/Protocol/Internal/Types/SemanticTokensWorkspaceClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -38,4 +40,4 @@   toJSON (SemanticTokensWorkspaceClientCapabilities arg0) = Aeson.object $ concat $  ["refreshSupport" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON SemanticTokensWorkspaceClientCapabilities where-  parseJSON = Aeson.withObject "SemanticTokensWorkspaceClientCapabilities" $ \arg -> SemanticTokensWorkspaceClientCapabilities <$> arg Aeson..:! "refreshSupport"+  parseJSON = Aeson.withObject "SemanticTokensWorkspaceClientCapabilities" $ \arg -> SemanticTokensWorkspaceClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "refreshSupport"
generated/Language/LSP/Protocol/Internal/Types/ServerCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -12,7 +14,6 @@ import Prettyprinter import qualified Data.Aeson import qualified Data.Aeson as Aeson-import qualified Data.Row as Row import qualified Data.Row.Aeson as Aeson import qualified Data.Row.Hashable as Hashable import qualified Language.LSP.Protocol.Internal.Types.CallHierarchyOptions@@ -34,7 +35,6 @@ import qualified Language.LSP.Protocol.Internal.Types.DocumentRangeFormattingOptions import qualified Language.LSP.Protocol.Internal.Types.DocumentSymbolOptions import qualified Language.LSP.Protocol.Internal.Types.ExecuteCommandOptions-import qualified Language.LSP.Protocol.Internal.Types.FileOperationOptions import qualified Language.LSP.Protocol.Internal.Types.FoldingRangeOptions import qualified Language.LSP.Protocol.Internal.Types.FoldingRangeRegistrationOptions import qualified Language.LSP.Protocol.Internal.Types.HoverOptions@@ -64,7 +64,7 @@ import qualified Language.LSP.Protocol.Internal.Types.TypeDefinitionRegistrationOptions import qualified Language.LSP.Protocol.Internal.Types.TypeHierarchyOptions import qualified Language.LSP.Protocol.Internal.Types.TypeHierarchyRegistrationOptions-import qualified Language.LSP.Protocol.Internal.Types.WorkspaceFoldersServerCapabilities+import qualified Language.LSP.Protocol.Internal.Types.WorkspaceOptions import qualified Language.LSP.Protocol.Internal.Types.WorkspaceSymbolOptions import qualified Language.LSP.Protocol.Types.Common @@ -240,7 +240,7 @@   , {-|   Workspace specific server capabilities.   -}-  _workspace :: (Maybe (Row.Rec ("workspaceFolders" Row..== (Maybe Language.LSP.Protocol.Internal.Types.WorkspaceFoldersServerCapabilities.WorkspaceFoldersServerCapabilities) Row..+ ("fileOperations" Row..== (Maybe Language.LSP.Protocol.Internal.Types.FileOperationOptions.FileOperationOptions) Row..+ Row.Empty))))+  _workspace :: (Maybe Language.LSP.Protocol.Internal.Types.WorkspaceOptions.WorkspaceOptions)   , {-|   Experimental server capabilities.   -}@@ -288,4 +288,4 @@     ,"experimental" Language.LSP.Protocol.Types.Common..=? arg34]  instance Aeson.FromJSON ServerCapabilities where-  parseJSON = Aeson.withObject "ServerCapabilities" $ \arg -> ServerCapabilities <$> arg Aeson..:! "positionEncoding" <*> arg Aeson..:! "textDocumentSync" <*> arg Aeson..:! "notebookDocumentSync" <*> arg Aeson..:! "completionProvider" <*> arg Aeson..:! "hoverProvider" <*> arg Aeson..:! "signatureHelpProvider" <*> arg Aeson..:! "declarationProvider" <*> arg Aeson..:! "definitionProvider" <*> arg Aeson..:! "typeDefinitionProvider" <*> arg Aeson..:! "implementationProvider" <*> arg Aeson..:! "referencesProvider" <*> arg Aeson..:! "documentHighlightProvider" <*> arg Aeson..:! "documentSymbolProvider" <*> arg Aeson..:! "codeActionProvider" <*> arg Aeson..:! "codeLensProvider" <*> arg Aeson..:! "documentLinkProvider" <*> arg Aeson..:! "colorProvider" <*> arg Aeson..:! "workspaceSymbolProvider" <*> arg Aeson..:! "documentFormattingProvider" <*> arg Aeson..:! "documentRangeFormattingProvider" <*> arg Aeson..:! "documentOnTypeFormattingProvider" <*> arg Aeson..:! "renameProvider" <*> arg Aeson..:! "foldingRangeProvider" <*> arg Aeson..:! "selectionRangeProvider" <*> arg Aeson..:! "executeCommandProvider" <*> arg Aeson..:! "callHierarchyProvider" <*> arg Aeson..:! "linkedEditingRangeProvider" <*> arg Aeson..:! "semanticTokensProvider" <*> arg Aeson..:! "monikerProvider" <*> arg Aeson..:! "typeHierarchyProvider" <*> arg Aeson..:! "inlineValueProvider" <*> arg Aeson..:! "inlayHintProvider" <*> arg Aeson..:! "diagnosticProvider" <*> arg Aeson..:! "workspace" <*> arg Aeson..:! "experimental"+  parseJSON = Aeson.withObject "ServerCapabilities" $ \arg -> ServerCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "positionEncoding" <*> arg Language.LSP.Protocol.Types.Common..:!? "textDocumentSync" <*> arg Language.LSP.Protocol.Types.Common..:!? "notebookDocumentSync" <*> arg Language.LSP.Protocol.Types.Common..:!? "completionProvider" <*> arg Language.LSP.Protocol.Types.Common..:!? "hoverProvider" <*> arg Language.LSP.Protocol.Types.Common..:!? "signatureHelpProvider" <*> arg Language.LSP.Protocol.Types.Common..:!? "declarationProvider" <*> arg Language.LSP.Protocol.Types.Common..:!? "definitionProvider" <*> arg Language.LSP.Protocol.Types.Common..:!? "typeDefinitionProvider" <*> arg Language.LSP.Protocol.Types.Common..:!? "implementationProvider" <*> arg Language.LSP.Protocol.Types.Common..:!? "referencesProvider" <*> arg Language.LSP.Protocol.Types.Common..:!? "documentHighlightProvider" <*> arg Language.LSP.Protocol.Types.Common..:!? "documentSymbolProvider" <*> arg Language.LSP.Protocol.Types.Common..:!? "codeActionProvider" <*> arg Language.LSP.Protocol.Types.Common..:!? "codeLensProvider" <*> arg Language.LSP.Protocol.Types.Common..:!? "documentLinkProvider" <*> arg Language.LSP.Protocol.Types.Common..:!? "colorProvider" <*> arg Language.LSP.Protocol.Types.Common..:!? "workspaceSymbolProvider" <*> arg Language.LSP.Protocol.Types.Common..:!? "documentFormattingProvider" <*> arg Language.LSP.Protocol.Types.Common..:!? "documentRangeFormattingProvider" <*> arg Language.LSP.Protocol.Types.Common..:!? "documentOnTypeFormattingProvider" <*> arg Language.LSP.Protocol.Types.Common..:!? "renameProvider" <*> arg Language.LSP.Protocol.Types.Common..:!? "foldingRangeProvider" <*> arg Language.LSP.Protocol.Types.Common..:!? "selectionRangeProvider" <*> arg Language.LSP.Protocol.Types.Common..:!? "executeCommandProvider" <*> arg Language.LSP.Protocol.Types.Common..:!? "callHierarchyProvider" <*> arg Language.LSP.Protocol.Types.Common..:!? "linkedEditingRangeProvider" <*> arg Language.LSP.Protocol.Types.Common..:!? "semanticTokensProvider" <*> arg Language.LSP.Protocol.Types.Common..:!? "monikerProvider" <*> arg Language.LSP.Protocol.Types.Common..:!? "typeHierarchyProvider" <*> arg Language.LSP.Protocol.Types.Common..:!? "inlineValueProvider" <*> arg Language.LSP.Protocol.Types.Common..:!? "inlayHintProvider" <*> arg Language.LSP.Protocol.Types.Common..:!? "diagnosticProvider" <*> arg Language.LSP.Protocol.Types.Common..:!? "workspace" <*> arg Language.LSP.Protocol.Types.Common..:!? "experimental"
+ generated/Language/LSP/Protocol/Internal/Types/ServerCompletionItemOptions.hs view
@@ -0,0 +1,42 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.ServerCompletionItemOptions where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Language.LSP.Protocol.Types.Common++{-|+@since 3.18.0+@proposed+-}+data ServerCompletionItemOptions = ServerCompletionItemOptions +  { {-|+  The server has support for completion item label+  details (see also `CompletionItemLabelDetails`) when+  receiving a completion item in a resolve call.++  @since 3.17.0+  -}+  _labelDetailsSupport :: (Maybe Bool)+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON ServerCompletionItemOptions)++instance Aeson.ToJSON ServerCompletionItemOptions where+  toJSON (ServerCompletionItemOptions arg0) = Aeson.object $ concat $  ["labelDetailsSupport" Language.LSP.Protocol.Types.Common..=? arg0]++instance Aeson.FromJSON ServerCompletionItemOptions where+  parseJSON = Aeson.withObject "ServerCompletionItemOptions" $ \arg -> ServerCompletionItemOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "labelDetailsSupport"
+ generated/Language/LSP/Protocol/Internal/Types/ServerInfo.hs view
@@ -0,0 +1,47 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.ServerInfo where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Data.Text+import qualified Language.LSP.Protocol.Types.Common++{-|+Information about the server++@since 3.15.0+@since 3.18.0 ServerInfo type name added.+@proposed+-}+data ServerInfo = ServerInfo +  { {-|+  The name of the server as defined by the server.+  -}+  _name :: Data.Text.Text+  , {-|+  The server's version as defined by the server.+  -}+  _version :: (Maybe Data.Text.Text)+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON ServerInfo)++instance Aeson.ToJSON ServerInfo where+  toJSON (ServerInfo arg0 arg1) = Aeson.object $ concat $  [["name" Aeson..= arg0]+    ,"version" Language.LSP.Protocol.Types.Common..=? arg1]++instance Aeson.FromJSON ServerInfo where+  parseJSON = Aeson.withObject "ServerInfo" $ \arg -> ServerInfo <$> arg Aeson..: "name" <*> arg Language.LSP.Protocol.Types.Common..:!? "version"
generated/Language/LSP/Protocol/Internal/Types/SetTraceParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -13,7 +15,7 @@ import qualified Data.Aeson as Aeson import qualified Data.Row.Aeson as Aeson import qualified Data.Row.Hashable as Hashable-import qualified Language.LSP.Protocol.Internal.Types.TraceValues+import qualified Language.LSP.Protocol.Internal.Types.TraceValue import qualified Language.LSP.Protocol.Types.Common  {-|@@ -23,7 +25,7 @@   { {-|    -}-  _value :: Language.LSP.Protocol.Internal.Types.TraceValues.TraceValues+  _value :: Language.LSP.Protocol.Internal.Types.TraceValue.TraceValue   }   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)
generated/Language/LSP/Protocol/Internal/Types/ShowDocumentClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/ShowDocumentParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -18,18 +20,18 @@ import qualified Language.LSP.Protocol.Types.Uri  {-|-Params to show a document.+Params to show a resource in the UI.  @since 3.16.0 -} data ShowDocumentParams = ShowDocumentParams    { {-|-  The document uri to show.+  The uri to show.   -}   _uri :: Language.LSP.Protocol.Types.Uri.Uri   , {-|   Indicates to show the resource in an external program.-  To show for example `https://code.visualstudio.com/`+  To show, for example, `https://code.visualstudio.com/`   in the default WEB browser set `external` to `true`.   -}   _external :: (Maybe Bool)@@ -59,4 +61,4 @@     ,"selection" Language.LSP.Protocol.Types.Common..=? arg3]  instance Aeson.FromJSON ShowDocumentParams where-  parseJSON = Aeson.withObject "ShowDocumentParams" $ \arg -> ShowDocumentParams <$> arg Aeson..: "uri" <*> arg Aeson..:! "external" <*> arg Aeson..:! "takeFocus" <*> arg Aeson..:! "selection"+  parseJSON = Aeson.withObject "ShowDocumentParams" $ \arg -> ShowDocumentParams <$> arg Aeson..: "uri" <*> arg Language.LSP.Protocol.Types.Common..:!? "external" <*> arg Language.LSP.Protocol.Types.Common..:!? "takeFocus" <*> arg Language.LSP.Protocol.Types.Common..:!? "selection"
generated/Language/LSP/Protocol/Internal/Types/ShowDocumentResult.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/ShowMessageParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/ShowMessageRequestClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -11,9 +13,9 @@ import Language.LSP.Protocol.Utils.Misc import Prettyprinter import qualified Data.Aeson as Aeson-import qualified Data.Row as Row import qualified Data.Row.Aeson as Aeson import qualified Data.Row.Hashable as Hashable+import qualified Language.LSP.Protocol.Internal.Types.ClientShowMessageActionItemOptions import qualified Language.LSP.Protocol.Types.Common  {-|@@ -23,7 +25,7 @@   { {-|   Capabilities specific to the `MessageActionItem` type.   -}-  _messageActionItem :: (Maybe (Row.Rec ("additionalPropertiesSupport" Row..== (Maybe Bool) Row..+ Row.Empty)))+  _messageActionItem :: (Maybe Language.LSP.Protocol.Internal.Types.ClientShowMessageActionItemOptions.ClientShowMessageActionItemOptions)   }   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)@@ -33,4 +35,4 @@   toJSON (ShowMessageRequestClientCapabilities arg0) = Aeson.object $ concat $  ["messageActionItem" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON ShowMessageRequestClientCapabilities where-  parseJSON = Aeson.withObject "ShowMessageRequestClientCapabilities" $ \arg -> ShowMessageRequestClientCapabilities <$> arg Aeson..:! "messageActionItem"+  parseJSON = Aeson.withObject "ShowMessageRequestClientCapabilities" $ \arg -> ShowMessageRequestClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "messageActionItem"
generated/Language/LSP/Protocol/Internal/Types/ShowMessageRequestParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -45,4 +47,4 @@     ,"actions" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON ShowMessageRequestParams where-  parseJSON = Aeson.withObject "ShowMessageRequestParams" $ \arg -> ShowMessageRequestParams <$> arg Aeson..: "type" <*> arg Aeson..: "message" <*> arg Aeson..:! "actions"+  parseJSON = Aeson.withObject "ShowMessageRequestParams" $ \arg -> ShowMessageRequestParams <$> arg Aeson..: "type" <*> arg Aeson..: "message" <*> arg Language.LSP.Protocol.Types.Common..:!? "actions"
generated/Language/LSP/Protocol/Internal/Types/SignatureHelp.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -39,15 +41,24 @@   -}   _activeSignature :: (Maybe Language.LSP.Protocol.Types.Common.UInt)   , {-|-  The active parameter of the active signature. If omitted or the value-  lies outside the range of `signatures[activeSignature].parameters`-  defaults to 0 if the active signature has parameters. If-  the active signature has no parameters it is ignored.+  The active parameter of the active signature.++  If `null`, no parameter of the signature is active (for example a named+  argument that does not match any declared parameters). This is only valid+  if the client specifies the client capability+  `textDocument.signatureHelp.noActiveParameterSupport === true`++  If omitted or the value lies outside the range of+  `signatures[activeSignature].parameters` defaults to 0 if the active+  signature has parameters.++  If the active signature has no parameters it is ignored.+   In future version of the protocol this property might become-  mandatory to better express the active parameter if the-  active signature does have any.+  mandatory (but still nullable) to better express the active parameter if+  the active signature does have any.   -}-  _activeParameter :: (Maybe Language.LSP.Protocol.Types.Common.UInt)+  _activeParameter :: (Maybe (Language.LSP.Protocol.Types.Common.UInt Language.LSP.Protocol.Types.Common.|? Language.LSP.Protocol.Types.Common.Null))   }   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)@@ -59,4 +70,4 @@     ,"activeParameter" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON SignatureHelp where-  parseJSON = Aeson.withObject "SignatureHelp" $ \arg -> SignatureHelp <$> arg Aeson..: "signatures" <*> arg Aeson..:! "activeSignature" <*> arg Aeson..:! "activeParameter"+  parseJSON = Aeson.withObject "SignatureHelp" $ \arg -> SignatureHelp <$> arg Aeson..: "signatures" <*> arg Language.LSP.Protocol.Types.Common..:!? "activeSignature" <*> arg Language.LSP.Protocol.Types.Common..:!? "activeParameter"
generated/Language/LSP/Protocol/Internal/Types/SignatureHelpClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -11,10 +13,9 @@ import Language.LSP.Protocol.Utils.Misc import Prettyprinter import qualified Data.Aeson as Aeson-import qualified Data.Row as Row import qualified Data.Row.Aeson as Aeson import qualified Data.Row.Hashable as Hashable-import qualified Language.LSP.Protocol.Internal.Types.MarkupKind+import qualified Language.LSP.Protocol.Internal.Types.ClientSignatureInformationOptions import qualified Language.LSP.Protocol.Types.Common  {-|@@ -29,7 +30,7 @@   The client supports the following `SignatureInformation`   specific properties.   -}-  _signatureInformation :: (Maybe (Row.Rec ("documentationFormat" Row..== (Maybe [Language.LSP.Protocol.Internal.Types.MarkupKind.MarkupKind]) Row..+ ("parameterInformation" Row..== (Maybe (Row.Rec ("labelOffsetSupport" Row..== (Maybe Bool) Row..+ Row.Empty))) Row..+ ("activeParameterSupport" Row..== (Maybe Bool) Row..+ Row.Empty)))))+  _signatureInformation :: (Maybe Language.LSP.Protocol.Internal.Types.ClientSignatureInformationOptions.ClientSignatureInformationOptions)   , {-|   The client supports to send additional context information for a   `textDocument/signatureHelp` request. A client that opts into@@ -50,4 +51,4 @@     ,"contextSupport" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON SignatureHelpClientCapabilities where-  parseJSON = Aeson.withObject "SignatureHelpClientCapabilities" $ \arg -> SignatureHelpClientCapabilities <$> arg Aeson..:! "dynamicRegistration" <*> arg Aeson..:! "signatureInformation" <*> arg Aeson..:! "contextSupport"+  parseJSON = Aeson.withObject "SignatureHelpClientCapabilities" $ \arg -> SignatureHelpClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "dynamicRegistration" <*> arg Language.LSP.Protocol.Types.Common..:!? "signatureInformation" <*> arg Language.LSP.Protocol.Types.Common..:!? "contextSupport"
generated/Language/LSP/Protocol/Internal/Types/SignatureHelpContext.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -60,4 +62,4 @@     ,"activeSignatureHelp" Language.LSP.Protocol.Types.Common..=? arg3]  instance Aeson.FromJSON SignatureHelpContext where-  parseJSON = Aeson.withObject "SignatureHelpContext" $ \arg -> SignatureHelpContext <$> arg Aeson..: "triggerKind" <*> arg Aeson..:! "triggerCharacter" <*> arg Aeson..: "isRetrigger" <*> arg Aeson..:! "activeSignatureHelp"+  parseJSON = Aeson.withObject "SignatureHelpContext" $ \arg -> SignatureHelpContext <$> arg Aeson..: "triggerKind" <*> arg Language.LSP.Protocol.Types.Common..:!? "triggerCharacter" <*> arg Aeson..: "isRetrigger" <*> arg Language.LSP.Protocol.Types.Common..:!? "activeSignatureHelp"
generated/Language/LSP/Protocol/Internal/Types/SignatureHelpOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -48,4 +50,4 @@     ,"retriggerCharacters" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON SignatureHelpOptions where-  parseJSON = Aeson.withObject "SignatureHelpOptions" $ \arg -> SignatureHelpOptions <$> arg Aeson..:! "workDoneProgress" <*> arg Aeson..:! "triggerCharacters" <*> arg Aeson..:! "retriggerCharacters"+  parseJSON = Aeson.withObject "SignatureHelpOptions" $ \arg -> SignatureHelpOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress" <*> arg Language.LSP.Protocol.Types.Common..:!? "triggerCharacters" <*> arg Language.LSP.Protocol.Types.Common..:!? "retriggerCharacters"
generated/Language/LSP/Protocol/Internal/Types/SignatureHelpParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -54,4 +56,4 @@     ,"context" Language.LSP.Protocol.Types.Common..=? arg3]  instance Aeson.FromJSON SignatureHelpParams where-  parseJSON = Aeson.withObject "SignatureHelpParams" $ \arg -> SignatureHelpParams <$> arg Aeson..: "textDocument" <*> arg Aeson..: "position" <*> arg Aeson..:! "workDoneToken" <*> arg Aeson..:! "context"+  parseJSON = Aeson.withObject "SignatureHelpParams" $ \arg -> SignatureHelpParams <$> arg Aeson..: "textDocument" <*> arg Aeson..: "position" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken" <*> arg Language.LSP.Protocol.Types.Common..:!? "context"
generated/Language/LSP/Protocol/Internal/Types/SignatureHelpRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -55,4 +57,4 @@     ,"retriggerCharacters" Language.LSP.Protocol.Types.Common..=? arg3]  instance Aeson.FromJSON SignatureHelpRegistrationOptions where-  parseJSON = Aeson.withObject "SignatureHelpRegistrationOptions" $ \arg -> SignatureHelpRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Aeson..:! "workDoneProgress" <*> arg Aeson..:! "triggerCharacters" <*> arg Aeson..:! "retriggerCharacters"+  parseJSON = Aeson.withObject "SignatureHelpRegistrationOptions" $ \arg -> SignatureHelpRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress" <*> arg Language.LSP.Protocol.Types.Common..:!? "triggerCharacters" <*> arg Language.LSP.Protocol.Types.Common..:!? "retriggerCharacters"
generated/Language/LSP/Protocol/Internal/Types/SignatureHelpTriggerKind.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -39,7 +41,7 @@   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)   deriving ( Aeson.ToJSON-  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum SignatureHelpTriggerKind Language.LSP.Protocol.Types.Common.UInt)+  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum SignatureHelpTriggerKind)   deriving Pretty via (ViaJSON SignatureHelpTriggerKind)  instance Language.LSP.Protocol.Types.LspEnum.LspEnum SignatureHelpTriggerKind where
generated/Language/LSP/Protocol/Internal/Types/SignatureInformation.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -41,11 +43,17 @@   , {-|   The index of the active parameter. -  If provided, this is used in place of `SignatureHelp.activeParameter`.+  If `null`, no parameter of the signature is active (for example a named+  argument that does not match any declared parameters). This is only valid+  if the client specifies the client capability+  `textDocument.signatureHelp.noActiveParameterSupport === true` +  If provided (or `null`), this is used in place of+  `SignatureHelp.activeParameter`.+   @since 3.16.0   -}-  _activeParameter :: (Maybe Language.LSP.Protocol.Types.Common.UInt)+  _activeParameter :: (Maybe (Language.LSP.Protocol.Types.Common.UInt Language.LSP.Protocol.Types.Common.|? Language.LSP.Protocol.Types.Common.Null))   }   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)@@ -58,4 +66,4 @@     ,"activeParameter" Language.LSP.Protocol.Types.Common..=? arg3]  instance Aeson.FromJSON SignatureInformation where-  parseJSON = Aeson.withObject "SignatureInformation" $ \arg -> SignatureInformation <$> arg Aeson..: "label" <*> arg Aeson..:! "documentation" <*> arg Aeson..:! "parameters" <*> arg Aeson..:! "activeParameter"+  parseJSON = Aeson.withObject "SignatureInformation" $ \arg -> SignatureInformation <$> arg Aeson..: "label" <*> arg Language.LSP.Protocol.Types.Common..:!? "documentation" <*> arg Language.LSP.Protocol.Types.Common..:!? "parameters" <*> arg Language.LSP.Protocol.Types.Common..:!? "activeParameter"
+ generated/Language/LSP/Protocol/Internal/Types/StaleRequestSupportOptions.hs view
@@ -0,0 +1,46 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.StaleRequestSupportOptions where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Data.Text+import qualified Language.LSP.Protocol.Types.Common++{-|+@since 3.18.0+@proposed+-}+data StaleRequestSupportOptions = StaleRequestSupportOptions +  { {-|+  The client will actively cancel the request.+  -}+  _cancel :: Bool+  , {-|+  The list of requests for which the client+  will retry the request if it receives a+  response with error code `ContentModified`+  -}+  _retryOnContentModified :: [Data.Text.Text]+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON StaleRequestSupportOptions)++instance Aeson.ToJSON StaleRequestSupportOptions where+  toJSON (StaleRequestSupportOptions arg0 arg1) = Aeson.object $ concat $  [["cancel" Aeson..= arg0]+    ,["retryOnContentModified" Aeson..= arg1]]++instance Aeson.FromJSON StaleRequestSupportOptions where+  parseJSON = Aeson.withObject "StaleRequestSupportOptions" $ \arg -> StaleRequestSupportOptions <$> arg Aeson..: "cancel" <*> arg Aeson..: "retryOnContentModified"
generated/Language/LSP/Protocol/Internal/Types/StaticRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -35,4 +37,4 @@   toJSON (StaticRegistrationOptions arg0) = Aeson.object $ concat $  ["id" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON StaticRegistrationOptions where-  parseJSON = Aeson.withObject "StaticRegistrationOptions" $ \arg -> StaticRegistrationOptions <$> arg Aeson..:! "id"+  parseJSON = Aeson.withObject "StaticRegistrationOptions" $ \arg -> StaticRegistrationOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "id"
generated/Language/LSP/Protocol/Internal/Types/SymbolInformation.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -77,4 +79,4 @@     ,["location" Aeson..= arg5]]  instance Aeson.FromJSON SymbolInformation where-  parseJSON = Aeson.withObject "SymbolInformation" $ \arg -> SymbolInformation <$> arg Aeson..: "name" <*> arg Aeson..: "kind" <*> arg Aeson..:! "tags" <*> arg Aeson..:! "containerName" <*> arg Aeson..:! "deprecated" <*> arg Aeson..: "location"+  parseJSON = Aeson.withObject "SymbolInformation" $ \arg -> SymbolInformation <$> arg Aeson..: "name" <*> arg Aeson..: "kind" <*> arg Language.LSP.Protocol.Types.Common..:!? "tags" <*> arg Language.LSP.Protocol.Types.Common..:!? "containerName" <*> arg Language.LSP.Protocol.Types.Common..:!? "deprecated" <*> arg Aeson..: "location"
generated/Language/LSP/Protocol/Internal/Types/SymbolKind.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -129,7 +131,7 @@   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)   deriving ( Aeson.ToJSON-  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum SymbolKind Language.LSP.Protocol.Types.Common.UInt)+  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum SymbolKind)   deriving Pretty via (ViaJSON SymbolKind)  instance Language.LSP.Protocol.Types.LspEnum.LspEnum SymbolKind where
generated/Language/LSP/Protocol/Internal/Types/SymbolTag.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -31,7 +33,7 @@   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)   deriving ( Aeson.ToJSON-  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum SymbolTag Language.LSP.Protocol.Types.Common.UInt)+  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum SymbolTag)   deriving Pretty via (ViaJSON SymbolTag)  instance Language.LSP.Protocol.Types.LspEnum.LspEnum SymbolTag where
generated/Language/LSP/Protocol/Internal/Types/TextDocumentChangeRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/TextDocumentClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -236,4 +238,4 @@     ,"diagnostic" Language.LSP.Protocol.Types.Common..=? arg29]  instance Aeson.FromJSON TextDocumentClientCapabilities where-  parseJSON = Aeson.withObject "TextDocumentClientCapabilities" $ \arg -> TextDocumentClientCapabilities <$> arg Aeson..:! "synchronization" <*> arg Aeson..:! "completion" <*> arg Aeson..:! "hover" <*> arg Aeson..:! "signatureHelp" <*> arg Aeson..:! "declaration" <*> arg Aeson..:! "definition" <*> arg Aeson..:! "typeDefinition" <*> arg Aeson..:! "implementation" <*> arg Aeson..:! "references" <*> arg Aeson..:! "documentHighlight" <*> arg Aeson..:! "documentSymbol" <*> arg Aeson..:! "codeAction" <*> arg Aeson..:! "codeLens" <*> arg Aeson..:! "documentLink" <*> arg Aeson..:! "colorProvider" <*> arg Aeson..:! "formatting" <*> arg Aeson..:! "rangeFormatting" <*> arg Aeson..:! "onTypeFormatting" <*> arg Aeson..:! "rename" <*> arg Aeson..:! "foldingRange" <*> arg Aeson..:! "selectionRange" <*> arg Aeson..:! "publishDiagnostics" <*> arg Aeson..:! "callHierarchy" <*> arg Aeson..:! "semanticTokens" <*> arg Aeson..:! "linkedEditingRange" <*> arg Aeson..:! "moniker" <*> arg Aeson..:! "typeHierarchy" <*> arg Aeson..:! "inlineValue" <*> arg Aeson..:! "inlayHint" <*> arg Aeson..:! "diagnostic"+  parseJSON = Aeson.withObject "TextDocumentClientCapabilities" $ \arg -> TextDocumentClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "synchronization" <*> arg Language.LSP.Protocol.Types.Common..:!? "completion" <*> arg Language.LSP.Protocol.Types.Common..:!? "hover" <*> arg Language.LSP.Protocol.Types.Common..:!? "signatureHelp" <*> arg Language.LSP.Protocol.Types.Common..:!? "declaration" <*> arg Language.LSP.Protocol.Types.Common..:!? "definition" <*> arg Language.LSP.Protocol.Types.Common..:!? "typeDefinition" <*> arg Language.LSP.Protocol.Types.Common..:!? "implementation" <*> arg Language.LSP.Protocol.Types.Common..:!? "references" <*> arg Language.LSP.Protocol.Types.Common..:!? "documentHighlight" <*> arg Language.LSP.Protocol.Types.Common..:!? "documentSymbol" <*> arg Language.LSP.Protocol.Types.Common..:!? "codeAction" <*> arg Language.LSP.Protocol.Types.Common..:!? "codeLens" <*> arg Language.LSP.Protocol.Types.Common..:!? "documentLink" <*> arg Language.LSP.Protocol.Types.Common..:!? "colorProvider" <*> arg Language.LSP.Protocol.Types.Common..:!? "formatting" <*> arg Language.LSP.Protocol.Types.Common..:!? "rangeFormatting" <*> arg Language.LSP.Protocol.Types.Common..:!? "onTypeFormatting" <*> arg Language.LSP.Protocol.Types.Common..:!? "rename" <*> arg Language.LSP.Protocol.Types.Common..:!? "foldingRange" <*> arg Language.LSP.Protocol.Types.Common..:!? "selectionRange" <*> arg Language.LSP.Protocol.Types.Common..:!? "publishDiagnostics" <*> arg Language.LSP.Protocol.Types.Common..:!? "callHierarchy" <*> arg Language.LSP.Protocol.Types.Common..:!? "semanticTokens" <*> arg Language.LSP.Protocol.Types.Common..:!? "linkedEditingRange" <*> arg Language.LSP.Protocol.Types.Common..:!? "moniker" <*> arg Language.LSP.Protocol.Types.Common..:!? "typeHierarchy" <*> arg Language.LSP.Protocol.Types.Common..:!? "inlineValue" <*> arg Language.LSP.Protocol.Types.Common..:!? "inlayHint" <*> arg Language.LSP.Protocol.Types.Common..:!? "diagnostic"
generated/Language/LSP/Protocol/Internal/Types/TextDocumentContentChangeEvent.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -11,18 +13,17 @@ import Language.LSP.Protocol.Utils.Misc import Prettyprinter import qualified Data.Aeson as Aeson-import qualified Data.Row as Row import qualified Data.Row.Aeson as Aeson import qualified Data.Row.Hashable as Hashable-import qualified Data.Text-import qualified Language.LSP.Protocol.Internal.Types.Range+import qualified Language.LSP.Protocol.Internal.Types.TextDocumentContentChangePartial+import qualified Language.LSP.Protocol.Internal.Types.TextDocumentContentChangeWholeDocument import qualified Language.LSP.Protocol.Types.Common  {-| An event describing a change to a text document. If only a text is provided it is considered to be the full content of the document. -}-newtype TextDocumentContentChangeEvent = TextDocumentContentChangeEvent ((Row.Rec ("range" Row..== Language.LSP.Protocol.Internal.Types.Range.Range Row..+ ("rangeLength" Row..== (Maybe Language.LSP.Protocol.Types.Common.UInt) Row..+ ("text" Row..== Data.Text.Text Row..+ Row.Empty)))) Language.LSP.Protocol.Types.Common.|? (Row.Rec ("text" Row..== Data.Text.Text Row..+ Row.Empty)))+newtype TextDocumentContentChangeEvent = TextDocumentContentChangeEvent (Language.LSP.Protocol.Internal.Types.TextDocumentContentChangePartial.TextDocumentContentChangePartial Language.LSP.Protocol.Types.Common.|? Language.LSP.Protocol.Internal.Types.TextDocumentContentChangeWholeDocument.TextDocumentContentChangeWholeDocument)   deriving newtype (Aeson.ToJSON, Aeson.FromJSON)   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)
+ generated/Language/LSP/Protocol/Internal/Types/TextDocumentContentChangePartial.hs view
@@ -0,0 +1,52 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.TextDocumentContentChangePartial where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Data.Text+import qualified Language.LSP.Protocol.Internal.Types.Range+import qualified Language.LSP.Protocol.Types.Common++{-|+@since 3.18.0+@proposed+-}+data TextDocumentContentChangePartial = TextDocumentContentChangePartial +  { {-|+  The range of the document that changed.+  -}+  _range :: Language.LSP.Protocol.Internal.Types.Range.Range+  , {-|+  The optional length of the range that got replaced.++  @deprecated use range instead.+  -}+  _rangeLength :: (Maybe Language.LSP.Protocol.Types.Common.UInt)+  , {-|+  The new text for the provided range.+  -}+  _text :: Data.Text.Text+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON TextDocumentContentChangePartial)++instance Aeson.ToJSON TextDocumentContentChangePartial where+  toJSON (TextDocumentContentChangePartial arg0 arg1 arg2) = Aeson.object $ concat $  [["range" Aeson..= arg0]+    ,"rangeLength" Language.LSP.Protocol.Types.Common..=? arg1+    ,["text" Aeson..= arg2]]++instance Aeson.FromJSON TextDocumentContentChangePartial where+  parseJSON = Aeson.withObject "TextDocumentContentChangePartial" $ \arg -> TextDocumentContentChangePartial <$> arg Aeson..: "range" <*> arg Language.LSP.Protocol.Types.Common..:!? "rangeLength" <*> arg Aeson..: "text"
+ generated/Language/LSP/Protocol/Internal/Types/TextDocumentContentChangeWholeDocument.hs view
@@ -0,0 +1,39 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.TextDocumentContentChangeWholeDocument where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Data.Text+import qualified Language.LSP.Protocol.Types.Common++{-|+@since 3.18.0+@proposed+-}+data TextDocumentContentChangeWholeDocument = TextDocumentContentChangeWholeDocument +  { {-|+  The new text of the whole document.+  -}+  _text :: Data.Text.Text+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON TextDocumentContentChangeWholeDocument)++instance Aeson.ToJSON TextDocumentContentChangeWholeDocument where+  toJSON (TextDocumentContentChangeWholeDocument arg0) = Aeson.object $ concat $  [["text" Aeson..= arg0]]++instance Aeson.FromJSON TextDocumentContentChangeWholeDocument where+  parseJSON = Aeson.withObject "TextDocumentContentChangeWholeDocument" $ \arg -> TextDocumentContentChangeWholeDocument <$> arg Aeson..: "text"
generated/Language/LSP/Protocol/Internal/Types/TextDocumentEdit.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/TextDocumentFilter.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -11,10 +13,11 @@ import Language.LSP.Protocol.Utils.Misc import Prettyprinter import qualified Data.Aeson as Aeson-import qualified Data.Row as Row import qualified Data.Row.Aeson as Aeson import qualified Data.Row.Hashable as Hashable-import qualified Data.Text+import qualified Language.LSP.Protocol.Internal.Types.TextDocumentFilterLanguage+import qualified Language.LSP.Protocol.Internal.Types.TextDocumentFilterPattern+import qualified Language.LSP.Protocol.Internal.Types.TextDocumentFilterScheme import qualified Language.LSP.Protocol.Types.Common  {-|@@ -35,7 +38,7 @@  @since 3.17.0 -}-newtype TextDocumentFilter = TextDocumentFilter ((Row.Rec ("language" Row..== Data.Text.Text Row..+ ("scheme" Row..== (Maybe Data.Text.Text) Row..+ ("pattern" Row..== (Maybe Data.Text.Text) Row..+ Row.Empty)))) Language.LSP.Protocol.Types.Common.|? ((Row.Rec ("language" Row..== (Maybe Data.Text.Text) Row..+ ("scheme" Row..== Data.Text.Text Row..+ ("pattern" Row..== (Maybe Data.Text.Text) Row..+ Row.Empty)))) Language.LSP.Protocol.Types.Common.|? (Row.Rec ("language" Row..== (Maybe Data.Text.Text) Row..+ ("scheme" Row..== (Maybe Data.Text.Text) Row..+ ("pattern" Row..== Data.Text.Text Row..+ Row.Empty))))))+newtype TextDocumentFilter = TextDocumentFilter (Language.LSP.Protocol.Internal.Types.TextDocumentFilterLanguage.TextDocumentFilterLanguage Language.LSP.Protocol.Types.Common.|? (Language.LSP.Protocol.Internal.Types.TextDocumentFilterScheme.TextDocumentFilterScheme Language.LSP.Protocol.Types.Common.|? Language.LSP.Protocol.Internal.Types.TextDocumentFilterPattern.TextDocumentFilterPattern))   deriving newtype (Aeson.ToJSON, Aeson.FromJSON)   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)
+ generated/Language/LSP/Protocol/Internal/Types/TextDocumentFilterLanguage.hs view
@@ -0,0 +1,51 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.TextDocumentFilterLanguage where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Data.Text+import qualified Language.LSP.Protocol.Types.Common++{-|+A document filter where `language` is required field.++@since 3.18.0+@proposed+-}+data TextDocumentFilterLanguage = TextDocumentFilterLanguage +  { {-|+  A language id, like `typescript`.+  -}+  _language :: Data.Text.Text+  , {-|+  A Uri `Uri.scheme`, like `file` or `untitled`.+  -}+  _scheme :: (Maybe Data.Text.Text)+  , {-|+  A glob pattern, like **​/*.{ts,js}. See TextDocumentFilter for examples.+  -}+  _pattern :: (Maybe Data.Text.Text)+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON TextDocumentFilterLanguage)++instance Aeson.ToJSON TextDocumentFilterLanguage where+  toJSON (TextDocumentFilterLanguage arg0 arg1 arg2) = Aeson.object $ concat $  [["language" Aeson..= arg0]+    ,"scheme" Language.LSP.Protocol.Types.Common..=? arg1+    ,"pattern" Language.LSP.Protocol.Types.Common..=? arg2]++instance Aeson.FromJSON TextDocumentFilterLanguage where+  parseJSON = Aeson.withObject "TextDocumentFilterLanguage" $ \arg -> TextDocumentFilterLanguage <$> arg Aeson..: "language" <*> arg Language.LSP.Protocol.Types.Common..:!? "scheme" <*> arg Language.LSP.Protocol.Types.Common..:!? "pattern"
+ generated/Language/LSP/Protocol/Internal/Types/TextDocumentFilterPattern.hs view
@@ -0,0 +1,51 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.TextDocumentFilterPattern where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Data.Text+import qualified Language.LSP.Protocol.Types.Common++{-|+A document filter where `pattern` is required field.++@since 3.18.0+@proposed+-}+data TextDocumentFilterPattern = TextDocumentFilterPattern +  { {-|+  A language id, like `typescript`.+  -}+  _language :: (Maybe Data.Text.Text)+  , {-|+  A Uri `Uri.scheme`, like `file` or `untitled`.+  -}+  _scheme :: (Maybe Data.Text.Text)+  , {-|+  A glob pattern, like **​/*.{ts,js}. See TextDocumentFilter for examples.+  -}+  _pattern :: Data.Text.Text+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON TextDocumentFilterPattern)++instance Aeson.ToJSON TextDocumentFilterPattern where+  toJSON (TextDocumentFilterPattern arg0 arg1 arg2) = Aeson.object $ concat $  ["language" Language.LSP.Protocol.Types.Common..=? arg0+    ,"scheme" Language.LSP.Protocol.Types.Common..=? arg1+    ,["pattern" Aeson..= arg2]]++instance Aeson.FromJSON TextDocumentFilterPattern where+  parseJSON = Aeson.withObject "TextDocumentFilterPattern" $ \arg -> TextDocumentFilterPattern <$> arg Language.LSP.Protocol.Types.Common..:!? "language" <*> arg Language.LSP.Protocol.Types.Common..:!? "scheme" <*> arg Aeson..: "pattern"
+ generated/Language/LSP/Protocol/Internal/Types/TextDocumentFilterScheme.hs view
@@ -0,0 +1,51 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.TextDocumentFilterScheme where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Data.Text+import qualified Language.LSP.Protocol.Types.Common++{-|+A document filter where `scheme` is required field.++@since 3.18.0+@proposed+-}+data TextDocumentFilterScheme = TextDocumentFilterScheme +  { {-|+  A language id, like `typescript`.+  -}+  _language :: (Maybe Data.Text.Text)+  , {-|+  A Uri `Uri.scheme`, like `file` or `untitled`.+  -}+  _scheme :: Data.Text.Text+  , {-|+  A glob pattern, like **​/*.{ts,js}. See TextDocumentFilter for examples.+  -}+  _pattern :: (Maybe Data.Text.Text)+  }+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving Pretty via (ViaJSON TextDocumentFilterScheme)++instance Aeson.ToJSON TextDocumentFilterScheme where+  toJSON (TextDocumentFilterScheme arg0 arg1 arg2) = Aeson.object $ concat $  ["language" Language.LSP.Protocol.Types.Common..=? arg0+    ,["scheme" Aeson..= arg1]+    ,"pattern" Language.LSP.Protocol.Types.Common..=? arg2]++instance Aeson.FromJSON TextDocumentFilterScheme where+  parseJSON = Aeson.withObject "TextDocumentFilterScheme" $ \arg -> TextDocumentFilterScheme <$> arg Language.LSP.Protocol.Types.Common..:!? "language" <*> arg Aeson..: "scheme" <*> arg Language.LSP.Protocol.Types.Common..:!? "pattern"
generated/Language/LSP/Protocol/Internal/Types/TextDocumentIdentifier.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/TextDocumentItem.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -14,6 +16,7 @@ import qualified Data.Row.Aeson as Aeson import qualified Data.Row.Hashable as Hashable import qualified Data.Text+import qualified Language.LSP.Protocol.Internal.Types.LanguageKind import qualified Language.LSP.Protocol.Types.Common import qualified Language.LSP.Protocol.Types.Uri @@ -29,7 +32,7 @@   , {-|   The text document's language identifier.   -}-  _languageId :: Data.Text.Text+  _languageId :: Language.LSP.Protocol.Internal.Types.LanguageKind.LanguageKind   , {-|   The version number of this document (it will increase after each   change, including undo/redo).
generated/Language/LSP/Protocol/Internal/Types/TextDocumentPositionParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/TextDocumentRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/TextDocumentSaveReason.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -38,7 +40,7 @@   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)   deriving ( Aeson.ToJSON-  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum TextDocumentSaveReason Language.LSP.Protocol.Types.Common.UInt)+  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum TextDocumentSaveReason)   deriving Pretty via (ViaJSON TextDocumentSaveReason)  instance Language.LSP.Protocol.Types.LspEnum.LspEnum TextDocumentSaveReason where
generated/Language/LSP/Protocol/Internal/Types/TextDocumentSaveRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -39,4 +41,4 @@     ,"includeText" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON TextDocumentSaveRegistrationOptions where-  parseJSON = Aeson.withObject "TextDocumentSaveRegistrationOptions" $ \arg -> TextDocumentSaveRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Aeson..:! "includeText"+  parseJSON = Aeson.withObject "TextDocumentSaveRegistrationOptions" $ \arg -> TextDocumentSaveRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Language.LSP.Protocol.Types.Common..:!? "includeText"
generated/Language/LSP/Protocol/Internal/Types/TextDocumentSyncClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -49,4 +51,4 @@     ,"didSave" Language.LSP.Protocol.Types.Common..=? arg3]  instance Aeson.FromJSON TextDocumentSyncClientCapabilities where-  parseJSON = Aeson.withObject "TextDocumentSyncClientCapabilities" $ \arg -> TextDocumentSyncClientCapabilities <$> arg Aeson..:! "dynamicRegistration" <*> arg Aeson..:! "willSave" <*> arg Aeson..:! "willSaveWaitUntil" <*> arg Aeson..:! "didSave"+  parseJSON = Aeson.withObject "TextDocumentSyncClientCapabilities" $ \arg -> TextDocumentSyncClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "dynamicRegistration" <*> arg Language.LSP.Protocol.Types.Common..:!? "willSave" <*> arg Language.LSP.Protocol.Types.Common..:!? "willSaveWaitUntil" <*> arg Language.LSP.Protocol.Types.Common..:!? "didSave"
generated/Language/LSP/Protocol/Internal/Types/TextDocumentSyncKind.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -41,7 +43,7 @@   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)   deriving ( Aeson.ToJSON-  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum TextDocumentSyncKind Language.LSP.Protocol.Types.Common.UInt)+  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum TextDocumentSyncKind)   deriving Pretty via (ViaJSON TextDocumentSyncKind)  instance Language.LSP.Protocol.Types.LspEnum.LspEnum TextDocumentSyncKind where
generated/Language/LSP/Protocol/Internal/Types/TextDocumentSyncOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -59,4 +61,4 @@     ,"save" Language.LSP.Protocol.Types.Common..=? arg4]  instance Aeson.FromJSON TextDocumentSyncOptions where-  parseJSON = Aeson.withObject "TextDocumentSyncOptions" $ \arg -> TextDocumentSyncOptions <$> arg Aeson..:! "openClose" <*> arg Aeson..:! "change" <*> arg Aeson..:! "willSave" <*> arg Aeson..:! "willSaveWaitUntil" <*> arg Aeson..:! "save"+  parseJSON = Aeson.withObject "TextDocumentSyncOptions" $ \arg -> TextDocumentSyncOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "openClose" <*> arg Language.LSP.Protocol.Types.Common..:!? "change" <*> arg Language.LSP.Protocol.Types.Common..:!? "willSave" <*> arg Language.LSP.Protocol.Types.Common..:!? "willSaveWaitUntil" <*> arg Language.LSP.Protocol.Types.Common..:!? "save"
generated/Language/LSP/Protocol/Internal/Types/TextEdit.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/TokenFormat.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -29,7 +31,7 @@   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)   deriving ( Aeson.ToJSON-  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum TokenFormat Data.Text.Text)+  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum TokenFormat)   deriving Pretty via (ViaJSON TokenFormat)  instance Language.LSP.Protocol.Types.LspEnum.LspEnum TokenFormat where
+ generated/Language/LSP/Protocol/Internal/Types/TraceValue.hs view
@@ -0,0 +1,58 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -}+-- THIS IS A GENERATED FILE, DO NOT EDIT++{-# OPTIONS_GHC -Wno-unused-imports #-}+{-# OPTIONS_GHC -Wno-unused-matches #-}+{-# OPTIONS_GHC -Wno-deprecations #-}+module Language.LSP.Protocol.Internal.Types.TraceValue where++import Control.DeepSeq+import Data.Hashable+import GHC.Generics+import Language.LSP.Protocol.Utils.Misc+import Prettyprinter+import qualified Data.Aeson as Aeson+import qualified Data.Row.Aeson as Aeson+import qualified Data.Row.Hashable as Hashable+import qualified Data.Set+import qualified Data.String+import qualified Data.Text+import qualified Language.LSP.Protocol.Types.LspEnum++{-|++-}+data TraceValue = +    {-|+  Turn tracing off.+  -}+  TraceValue_Off+  | {-|+  Trace messages only.+  -}+  TraceValue_Messages+  | {-|+  Verbose message tracing.+  -}+  TraceValue_Verbose+  deriving stock (Show, Eq, Ord, Generic)+  deriving anyclass (NFData, Hashable)+  deriving ( Aeson.ToJSON+  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum TraceValue)+  deriving Pretty via (ViaJSON TraceValue)++instance Language.LSP.Protocol.Types.LspEnum.LspEnum TraceValue where+  knownValues = Data.Set.fromList [TraceValue_Off+    ,TraceValue_Messages+    ,TraceValue_Verbose]+  type EnumBaseType TraceValue = Data.Text.Text+  toEnumBaseType TraceValue_Off = "off"+  toEnumBaseType TraceValue_Messages = "messages"+  toEnumBaseType TraceValue_Verbose = "verbose"+  fromEnumBaseType "off" = pure TraceValue_Off+  fromEnumBaseType "messages" = pure TraceValue_Messages+  fromEnumBaseType "verbose" = pure TraceValue_Verbose+  fromEnumBaseType _ = Nothing++
− generated/Language/LSP/Protocol/Internal/Types/TraceValues.hs 
@@ -1,56 +0,0 @@--- THIS IS A GENERATED FILE, DO NOT EDIT--{-# OPTIONS_GHC -Wno-unused-imports #-}-{-# OPTIONS_GHC -Wno-unused-matches #-}-{-# OPTIONS_GHC -Wno-deprecations #-}-module Language.LSP.Protocol.Internal.Types.TraceValues where--import Control.DeepSeq-import Data.Hashable-import GHC.Generics-import Language.LSP.Protocol.Utils.Misc-import Prettyprinter-import qualified Data.Aeson as Aeson-import qualified Data.Row.Aeson as Aeson-import qualified Data.Row.Hashable as Hashable-import qualified Data.Set-import qualified Data.String-import qualified Data.Text-import qualified Language.LSP.Protocol.Types.LspEnum--{-|---}-data TraceValues = -    {-|-  Turn tracing off.-  -}-  TraceValues_Off-  | {-|-  Trace messages only.-  -}-  TraceValues_Messages-  | {-|-  Verbose message tracing.-  -}-  TraceValues_Verbose-  deriving stock (Show, Eq, Ord, Generic)-  deriving anyclass (NFData, Hashable)-  deriving ( Aeson.ToJSON-  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum TraceValues Data.Text.Text)-  deriving Pretty via (ViaJSON TraceValues)--instance Language.LSP.Protocol.Types.LspEnum.LspEnum TraceValues where-  knownValues = Data.Set.fromList [TraceValues_Off-    ,TraceValues_Messages-    ,TraceValues_Verbose]-  type EnumBaseType TraceValues = Data.Text.Text-  toEnumBaseType TraceValues_Off = "off"-  toEnumBaseType TraceValues_Messages = "messages"-  toEnumBaseType TraceValues_Verbose = "verbose"-  fromEnumBaseType "off" = pure TraceValues_Off-  fromEnumBaseType "messages" = pure TraceValues_Messages-  fromEnumBaseType "verbose" = pure TraceValues_Verbose-  fromEnumBaseType _ = Nothing--
generated/Language/LSP/Protocol/Internal/Types/TypeDefinitionClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -41,4 +43,4 @@     ,"linkSupport" Language.LSP.Protocol.Types.Common..=? arg1]  instance Aeson.FromJSON TypeDefinitionClientCapabilities where-  parseJSON = Aeson.withObject "TypeDefinitionClientCapabilities" $ \arg -> TypeDefinitionClientCapabilities <$> arg Aeson..:! "dynamicRegistration" <*> arg Aeson..:! "linkSupport"+  parseJSON = Aeson.withObject "TypeDefinitionClientCapabilities" $ \arg -> TypeDefinitionClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "dynamicRegistration" <*> arg Language.LSP.Protocol.Types.Common..:!? "linkSupport"
generated/Language/LSP/Protocol/Internal/Types/TypeDefinitionOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -32,4 +34,4 @@   toJSON (TypeDefinitionOptions arg0) = Aeson.object $ concat $  ["workDoneProgress" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON TypeDefinitionOptions where-  parseJSON = Aeson.withObject "TypeDefinitionOptions" $ \arg -> TypeDefinitionOptions <$> arg Aeson..:! "workDoneProgress"+  parseJSON = Aeson.withObject "TypeDefinitionOptions" $ \arg -> TypeDefinitionOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress"
generated/Language/LSP/Protocol/Internal/Types/TypeDefinitionParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -51,4 +53,4 @@     ,"partialResultToken" Language.LSP.Protocol.Types.Common..=? arg3]  instance Aeson.FromJSON TypeDefinitionParams where-  parseJSON = Aeson.withObject "TypeDefinitionParams" $ \arg -> TypeDefinitionParams <$> arg Aeson..: "textDocument" <*> arg Aeson..: "position" <*> arg Aeson..:! "workDoneToken" <*> arg Aeson..:! "partialResultToken"+  parseJSON = Aeson.withObject "TypeDefinitionParams" $ \arg -> TypeDefinitionParams <$> arg Aeson..: "textDocument" <*> arg Aeson..: "position" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken" <*> arg Language.LSP.Protocol.Types.Common..:!? "partialResultToken"
generated/Language/LSP/Protocol/Internal/Types/TypeDefinitionRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -46,4 +48,4 @@     ,"id" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON TypeDefinitionRegistrationOptions where-  parseJSON = Aeson.withObject "TypeDefinitionRegistrationOptions" $ \arg -> TypeDefinitionRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Aeson..:! "workDoneProgress" <*> arg Aeson..:! "id"+  parseJSON = Aeson.withObject "TypeDefinitionRegistrationOptions" $ \arg -> TypeDefinitionRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress" <*> arg Language.LSP.Protocol.Types.Common..:!? "id"
generated/Language/LSP/Protocol/Internal/Types/TypeHierarchyClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -34,4 +36,4 @@   toJSON (TypeHierarchyClientCapabilities arg0) = Aeson.object $ concat $  ["dynamicRegistration" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON TypeHierarchyClientCapabilities where-  parseJSON = Aeson.withObject "TypeHierarchyClientCapabilities" $ \arg -> TypeHierarchyClientCapabilities <$> arg Aeson..:! "dynamicRegistration"+  parseJSON = Aeson.withObject "TypeHierarchyClientCapabilities" $ \arg -> TypeHierarchyClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "dynamicRegistration"
generated/Language/LSP/Protocol/Internal/Types/TypeHierarchyItem.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -79,4 +81,4 @@     ,"data" Language.LSP.Protocol.Types.Common..=? arg7]  instance Aeson.FromJSON TypeHierarchyItem where-  parseJSON = Aeson.withObject "TypeHierarchyItem" $ \arg -> TypeHierarchyItem <$> arg Aeson..: "name" <*> arg Aeson..: "kind" <*> arg Aeson..:! "tags" <*> arg Aeson..:! "detail" <*> arg Aeson..: "uri" <*> arg Aeson..: "range" <*> arg Aeson..: "selectionRange" <*> arg Aeson..:! "data"+  parseJSON = Aeson.withObject "TypeHierarchyItem" $ \arg -> TypeHierarchyItem <$> arg Aeson..: "name" <*> arg Aeson..: "kind" <*> arg Language.LSP.Protocol.Types.Common..:!? "tags" <*> arg Language.LSP.Protocol.Types.Common..:!? "detail" <*> arg Aeson..: "uri" <*> arg Aeson..: "range" <*> arg Aeson..: "selectionRange" <*> arg Language.LSP.Protocol.Types.Common..:!? "data"
generated/Language/LSP/Protocol/Internal/Types/TypeHierarchyOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -34,4 +36,4 @@   toJSON (TypeHierarchyOptions arg0) = Aeson.object $ concat $  ["workDoneProgress" Language.LSP.Protocol.Types.Common..=? arg0]  instance Aeson.FromJSON TypeHierarchyOptions where-  parseJSON = Aeson.withObject "TypeHierarchyOptions" $ \arg -> TypeHierarchyOptions <$> arg Aeson..:! "workDoneProgress"+  parseJSON = Aeson.withObject "TypeHierarchyOptions" $ \arg -> TypeHierarchyOptions <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress"
generated/Language/LSP/Protocol/Internal/Types/TypeHierarchyPrepareParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -47,4 +49,4 @@     ,"workDoneToken" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON TypeHierarchyPrepareParams where-  parseJSON = Aeson.withObject "TypeHierarchyPrepareParams" $ \arg -> TypeHierarchyPrepareParams <$> arg Aeson..: "textDocument" <*> arg Aeson..: "position" <*> arg Aeson..:! "workDoneToken"+  parseJSON = Aeson.withObject "TypeHierarchyPrepareParams" $ \arg -> TypeHierarchyPrepareParams <$> arg Aeson..: "textDocument" <*> arg Aeson..: "position" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken"
generated/Language/LSP/Protocol/Internal/Types/TypeHierarchyRegistrationOptions.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -48,4 +50,4 @@     ,"id" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON TypeHierarchyRegistrationOptions where-  parseJSON = Aeson.withObject "TypeHierarchyRegistrationOptions" $ \arg -> TypeHierarchyRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Aeson..:! "workDoneProgress" <*> arg Aeson..:! "id"+  parseJSON = Aeson.withObject "TypeHierarchyRegistrationOptions" $ \arg -> TypeHierarchyRegistrationOptions <$> arg Aeson..: "documentSelector" <*> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress" <*> arg Language.LSP.Protocol.Types.Common..:!? "id"
generated/Language/LSP/Protocol/Internal/Types/TypeHierarchySubtypesParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -47,4 +49,4 @@     ,["item" Aeson..= arg2]]  instance Aeson.FromJSON TypeHierarchySubtypesParams where-  parseJSON = Aeson.withObject "TypeHierarchySubtypesParams" $ \arg -> TypeHierarchySubtypesParams <$> arg Aeson..:! "workDoneToken" <*> arg Aeson..:! "partialResultToken" <*> arg Aeson..: "item"+  parseJSON = Aeson.withObject "TypeHierarchySubtypesParams" $ \arg -> TypeHierarchySubtypesParams <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken" <*> arg Language.LSP.Protocol.Types.Common..:!? "partialResultToken" <*> arg Aeson..: "item"
generated/Language/LSP/Protocol/Internal/Types/TypeHierarchySupertypesParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -47,4 +49,4 @@     ,["item" Aeson..= arg2]]  instance Aeson.FromJSON TypeHierarchySupertypesParams where-  parseJSON = Aeson.withObject "TypeHierarchySupertypesParams" $ \arg -> TypeHierarchySupertypesParams <$> arg Aeson..:! "workDoneToken" <*> arg Aeson..:! "partialResultToken" <*> arg Aeson..: "item"+  parseJSON = Aeson.withObject "TypeHierarchySupertypesParams" $ \arg -> TypeHierarchySupertypesParams <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken" <*> arg Language.LSP.Protocol.Types.Common..:!? "partialResultToken" <*> arg Aeson..: "item"
generated/Language/LSP/Protocol/Internal/Types/UInitializeParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -12,13 +14,13 @@ import Prettyprinter import qualified Data.Aeson import qualified Data.Aeson as Aeson-import qualified Data.Row as Row import qualified Data.Row.Aeson as Aeson import qualified Data.Row.Hashable as Hashable import qualified Data.Text import qualified Language.LSP.Protocol.Internal.Types.ClientCapabilities+import qualified Language.LSP.Protocol.Internal.Types.ClientInfo import qualified Language.LSP.Protocol.Internal.Types.ProgressToken-import qualified Language.LSP.Protocol.Internal.Types.TraceValues+import qualified Language.LSP.Protocol.Internal.Types.TraceValue import qualified Language.LSP.Protocol.Types.Common import qualified Language.LSP.Protocol.Types.Uri @@ -43,7 +45,7 @@    @since 3.15.0   -}-  _clientInfo :: (Maybe (Row.Rec ("name" Row..== Data.Text.Text Row..+ ("version" Row..== (Maybe Data.Text.Text) Row..+ Row.Empty))))+  _clientInfo :: (Maybe Language.LSP.Protocol.Internal.Types.ClientInfo.ClientInfo)   , {-|   The locale the client is currently showing the user interface   in. This must not necessarily be the locale of the operating@@ -81,7 +83,7 @@   , {-|   The initial trace setting. If omitted trace is disabled ('off').   -}-  _trace :: (Maybe Language.LSP.Protocol.Internal.Types.TraceValues.TraceValues)+  _trace :: (Maybe Language.LSP.Protocol.Internal.Types.TraceValue.TraceValue)   }   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)@@ -99,4 +101,4 @@     ,"trace" Language.LSP.Protocol.Types.Common..=? arg8]  instance Aeson.FromJSON UInitializeParams where-  parseJSON = Aeson.withObject "_InitializeParams" $ \arg -> UInitializeParams <$> arg Aeson..:! "workDoneToken" <*> arg Aeson..: "processId" <*> arg Aeson..:! "clientInfo" <*> arg Aeson..:! "locale" <*> arg Aeson..:! "rootPath" <*> arg Aeson..: "rootUri" <*> arg Aeson..: "capabilities" <*> arg Aeson..:! "initializationOptions" <*> arg Aeson..:! "trace"+  parseJSON = Aeson.withObject "_InitializeParams" $ \arg -> UInitializeParams <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneToken" <*> arg Aeson..: "processId" <*> arg Language.LSP.Protocol.Types.Common..:!? "clientInfo" <*> arg Language.LSP.Protocol.Types.Common..:!? "locale" <*> arg Language.LSP.Protocol.Types.Common..:!? "rootPath" <*> arg Aeson..: "rootUri" <*> arg Aeson..: "capabilities" <*> arg Language.LSP.Protocol.Types.Common..:!? "initializationOptions" <*> arg Language.LSP.Protocol.Types.Common..:!? "trace"
generated/Language/LSP/Protocol/Internal/Types/UnchangedDocumentDiagnosticReport.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/UniquenessLevel.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -47,7 +49,7 @@   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)   deriving ( Aeson.ToJSON-  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum UniquenessLevel Data.Text.Text)+  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum UniquenessLevel)   deriving Pretty via (ViaJSON UniquenessLevel)  instance Language.LSP.Protocol.Types.LspEnum.LspEnum UniquenessLevel where
generated/Language/LSP/Protocol/Internal/Types/Unregistration.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/UnregistrationParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/VersionedNotebookDocumentIdentifier.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/VersionedTextDocumentIdentifier.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/WatchKind.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -38,7 +40,7 @@   deriving stock (Show, Eq, Ord, Generic)   deriving anyclass (NFData, Hashable)   deriving ( Aeson.ToJSON-  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum WatchKind Language.LSP.Protocol.Types.Common.UInt)+  , Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum WatchKind)   deriving Pretty via (ViaJSON WatchKind)  instance Language.LSP.Protocol.Types.LspEnum.LspEnum WatchKind where
generated/Language/LSP/Protocol/Internal/Types/WillSaveTextDocumentParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/WindowClientCapabilities.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -56,4 +58,4 @@     ,"showDocument" Language.LSP.Protocol.Types.Common..=? arg2]  instance Aeson.FromJSON WindowClientCapabilities where-  parseJSON = Aeson.withObject "WindowClientCapabilities" $ \arg -> WindowClientCapabilities <$> arg Aeson..:! "workDoneProgress" <*> arg Aeson..:! "showMessage" <*> arg Aeson..:! "showDocument"+  parseJSON = Aeson.withObject "WindowClientCapabilities" $ \arg -> WindowClientCapabilities <$> arg Language.LSP.Protocol.Types.Common..:!? "workDoneProgress" <*> arg Language.LSP.Protocol.Types.Common..:!? "showMessage" <*> arg Language.LSP.Protocol.Types.Common..:!? "showDocument"
generated/Language/LSP/Protocol/Internal/Types/WorkDoneProgressBegin.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -68,4 +70,4 @@     ,"percentage" Language.LSP.Protocol.Types.Common..=? arg4]  instance Aeson.FromJSON WorkDoneProgressBegin where-  parseJSON = Aeson.withObject "WorkDoneProgressBegin" $ \arg -> WorkDoneProgressBegin <$> arg Aeson..: "kind" <*> arg Aeson..: "title" <*> arg Aeson..:! "cancellable" <*> arg Aeson..:! "message" <*> arg Aeson..:! "percentage"+  parseJSON = Aeson.withObject "WorkDoneProgressBegin" $ \arg -> WorkDoneProgressBegin <$> arg Aeson..: "kind" <*> arg Aeson..: "title" <*> arg Language.LSP.Protocol.Types.Common..:!? "cancellable" <*> arg Language.LSP.Protocol.Types.Common..:!? "message" <*> arg Language.LSP.Protocol.Types.Common..:!? "percentage"
generated/Language/LSP/Protocol/Internal/Types/WorkDoneProgressCancelParams.hs view
@@ -1,3 +1,5 @@+{- ORMOLU_DISABLE -}+{- HLINT ignore -} -- THIS IS A GENERATED FILE, DO NOT EDIT  {-# OPTIONS_GHC -Wno-unused-imports #-}
generated/Language/LSP/Protocol/Internal/Types/WorkDoneProgressCreateParams.hs view

file too large to diff

generated/Language/LSP/Protocol/Internal/Types/WorkDoneProgressEnd.hs view

file too large to diff

generated/Language/LSP/Protocol/Internal/Types/WorkDoneProgressOptions.hs view

file too large to diff

generated/Language/LSP/Protocol/Internal/Types/WorkDoneProgressParams.hs view

file too large to diff

generated/Language/LSP/Protocol/Internal/Types/WorkDoneProgressReport.hs view

file too large to diff

generated/Language/LSP/Protocol/Internal/Types/WorkspaceClientCapabilities.hs view

file too large to diff

generated/Language/LSP/Protocol/Internal/Types/WorkspaceDiagnosticParams.hs view

file too large to diff

generated/Language/LSP/Protocol/Internal/Types/WorkspaceDiagnosticReport.hs view

file too large to diff

generated/Language/LSP/Protocol/Internal/Types/WorkspaceDiagnosticReportPartialResult.hs view

file too large to diff

generated/Language/LSP/Protocol/Internal/Types/WorkspaceDocumentDiagnosticReport.hs view

file too large to diff

generated/Language/LSP/Protocol/Internal/Types/WorkspaceEdit.hs view

file too large to diff

generated/Language/LSP/Protocol/Internal/Types/WorkspaceEditClientCapabilities.hs view

file too large to diff

generated/Language/LSP/Protocol/Internal/Types/WorkspaceFolder.hs view

file too large to diff

generated/Language/LSP/Protocol/Internal/Types/WorkspaceFoldersChangeEvent.hs view

file too large to diff

generated/Language/LSP/Protocol/Internal/Types/WorkspaceFoldersInitializeParams.hs view

file too large to diff

generated/Language/LSP/Protocol/Internal/Types/WorkspaceFoldersServerCapabilities.hs view

file too large to diff

generated/Language/LSP/Protocol/Internal/Types/WorkspaceFullDocumentDiagnosticReport.hs view

file too large to diff

+ generated/Language/LSP/Protocol/Internal/Types/WorkspaceOptions.hs view

file too large to diff

generated/Language/LSP/Protocol/Internal/Types/WorkspaceSymbol.hs view

file too large to diff

generated/Language/LSP/Protocol/Internal/Types/WorkspaceSymbolClientCapabilities.hs view

file too large to diff

generated/Language/LSP/Protocol/Internal/Types/WorkspaceSymbolOptions.hs view

file too large to diff

generated/Language/LSP/Protocol/Internal/Types/WorkspaceSymbolParams.hs view

file too large to diff

generated/Language/LSP/Protocol/Internal/Types/WorkspaceSymbolRegistrationOptions.hs view

file too large to diff

generated/Language/LSP/Protocol/Internal/Types/WorkspaceUnchangedDocumentDiagnosticReport.hs view

file too large to diff

generator/CodeGen.hs view

file too large to diff

generator/Main.hs view

file too large to diff

lsp-types.cabal view

file too large to diff

metaModel.json view

file too large to diff

metamodel/Language/LSP/MetaModel.hs view

file too large to diff

metamodel/Language/LSP/MetaModel/Types.hs view

file too large to diff

+ quickcheck/Language/LSP/Protocol/QuickCheck.hs view

file too large to diff

+ quickcheck/Language/LSP/Protocol/QuickCheck/Common.hs view

file too large to diff

+ quickcheck/Language/LSP/Protocol/QuickCheck/Message.hs view

file too large to diff

+ quickcheck/Language/LSP/Protocol/QuickCheck/Types.hs view

file too large to diff

src/Data/IxMap.hs view

file too large to diff

src/Data/Row/Aeson.hs view

file too large to diff

src/Data/Row/Hashable.hs view

file too large to diff

src/Language/LSP/Protocol/Capabilities.hs view

file too large to diff

src/Language/LSP/Protocol/Lens.hs view

file too large to diff

src/Language/LSP/Protocol/Message.hs view

file too large to diff

src/Language/LSP/Protocol/Message/Lens.hs view

file too large to diff

src/Language/LSP/Protocol/Message/LspId.hs view

file too large to diff

src/Language/LSP/Protocol/Message/Meta.hs view

file too large to diff

src/Language/LSP/Protocol/Message/Method.hs view

file too large to diff

src/Language/LSP/Protocol/Message/Parsing.hs view

file too large to diff

src/Language/LSP/Protocol/Message/Registration.hs view

file too large to diff

src/Language/LSP/Protocol/Message/Types.hs view

file too large to diff

+ src/Language/LSP/Protocol/Meta.hs view

file too large to diff

src/Language/LSP/Protocol/Types.hs view

file too large to diff

src/Language/LSP/Protocol/Types/CodeAction.hs view

file too large to diff

src/Language/LSP/Protocol/Types/Common.hs view

file too large to diff

src/Language/LSP/Protocol/Types/Edit.hs view

file too large to diff

src/Language/LSP/Protocol/Types/Lens.hs view

file too large to diff

src/Language/LSP/Protocol/Types/Location.hs view

file too large to diff

src/Language/LSP/Protocol/Types/LspEnum.hs view

file too large to diff

src/Language/LSP/Protocol/Types/MarkupContent.hs view

file too large to diff

src/Language/LSP/Protocol/Types/Orphans.hs view

file too large to diff

src/Language/LSP/Protocol/Types/Progress.hs view

file too large to diff

src/Language/LSP/Protocol/Types/SemanticTokens.hs view

file too large to diff

src/Language/LSP/Protocol/Types/Singletons.hs view

file too large to diff

src/Language/LSP/Protocol/Types/Uri.hs view

file too large to diff

src/Language/LSP/Protocol/Types/Uri/OsPath.hs view

file too large to diff

src/Language/LSP/Protocol/Types/WatchKinds.hs view

file too large to diff

src/Language/LSP/Protocol/Utils/Misc.hs view

file too large to diff

src/Language/LSP/Protocol/Utils/SMethodMap.hs view

file too large to diff

test/CapabilitiesSpec.hs view

file too large to diff

test/JsonSpec.hs view

file too large to diff

test/LocationSpec.hs view

file too large to diff

test/Main.hs view

file too large to diff

test/MethodSpec.hs view

file too large to diff

test/SemanticTokensSpec.hs view

file too large to diff

test/ServerCapabilitiesSpec.hs view

file too large to diff

test/Spec.hs view

file too large to diff

test/TypesSpec.hs view

file too large to diff

test/URIFilePathSpec.hs view

file too large to diff

test/WorkspaceEditSpec.hs view

file too large to diff