Add newline to the end of generated files

lsp-types/generated/Language/LSP/Protocol/Internal/Lens.hs

@@ -632,4 +632,4 @@ Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.Notebo
 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
+Control.Lens.TH.makeFieldsNoPrefix ''Language.LSP.Protocol.Internal.Types.MarkdownClientCapabilities.MarkdownClientCapabilities

lsp-types/generated/Language/LSP/Protocol/Internal/Method.hs

@@ -1062,4 +1062,4 @@ messageKind SMethod_SetTrace = MM.SNotification
 messageKind SMethod_LogTrace = MM.SNotification
 messageKind SMethod_CancelRequest = MM.SNotification
 messageKind SMethod_Progress = MM.SNotification
-messageKind (SMethod_CustomMethod _) = MM.SBothTypes
+messageKind (SMethod_CustomMethod _) = MM.SBothTypes

lsp-types/generated/Language/LSP/Protocol/Internal/Types.hs

@@ -376,3 +376,4 @@ import Language.LSP.Protocol.Internal.Types.WorkspaceSymbolParams as Export
 import Language.LSP.Protocol.Internal.Types.WorkspaceSymbolRegistrationOptions as Export
 import Language.LSP.Protocol.Internal.Types.WorkspaceUnchangedDocumentDiagnosticReport as Export
 
+

lsp-types/generated/Language/LSP/Protocol/Internal/Types/AnnotatedTextEdit.hs

@@ -44,4 +44,4 @@ instance Aeson.ToJSON AnnotatedTextEdit where
     ,["annotationId" Aeson..= arg2]]
 
 instance Aeson.FromJSON AnnotatedTextEdit where
-  parseJSON = Aeson.withObject "AnnotatedTextEdit" $ \arg -> AnnotatedTextEdit <$> arg Aeson..: "range" <*> arg Aeson..: "newText" <*> arg Aeson..: "annotationId"
+  parseJSON = Aeson.withObject "AnnotatedTextEdit" $ \arg -> AnnotatedTextEdit <$> arg Aeson..: "range" <*> arg Aeson..: "newText" <*> arg Aeson..: "annotationId"

lsp-types/generated/Language/LSP/Protocol/Internal/Types/ApplyWorkspaceEditParams.hs

@@ -36,4 +36,4 @@ instance Aeson.ToJSON ApplyWorkspaceEditParams where
     ,["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 Aeson..:! "label" <*> arg Aeson..: "edit"

lsp-types/generated/Language/LSP/Protocol/Internal/Types/ApplyWorkspaceEditResult.hs

@@ -44,4 +44,4 @@ instance Aeson.ToJSON ApplyWorkspaceEditResult where
     ,"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 Aeson..:! "failureReason" <*> arg Aeson..:! "failedChange"

lsp-types/generated/Language/LSP/Protocol/Internal/Types/BaseSymbolInformation.hs

@@ -50,4 +50,4 @@ instance Aeson.ToJSON BaseSymbolInformation where
     ,"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 Aeson..:! "tags" <*> arg Aeson..:! "containerName"

lsp-types/generated/Language/LSP/Protocol/Internal/Types/CallHierarchyClientCapabilities.hs

@@ -29,4 +29,4 @@ instance Aeson.ToJSON CallHierarchyClientCapabilities where
   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 Aeson..:! "dynamicRegistration"

lsp-types/generated/Language/LSP/Protocol/Internal/Types/CallHierarchyIncomingCall.hs

@@ -37,4 +37,4 @@ instance Aeson.ToJSON CallHierarchyIncomingCall where
     ,["fromRanges" Aeson..= arg1]]
 
 instance Aeson.FromJSON CallHierarchyIncomingCall where
-  parseJSON = Aeson.withObject "CallHierarchyIncomingCall" $ \arg -> CallHierarchyIncomingCall <$> arg Aeson..: "from" <*> arg Aeson..: "fromRanges"
+  parseJSON = Aeson.withObject "CallHierarchyIncomingCall" $ \arg -> CallHierarchyIncomingCall <$> arg Aeson..: "from" <*> arg Aeson..: "fromRanges"

lsp-types/generated/Language/LSP/Protocol/Internal/Types/CallHierarchyIncomingCallsParams.hs

@@ -42,4 +42,4 @@ instance Aeson.ToJSON CallHierarchyIncomingCallsParams where
     ,["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 Aeson..:! "workDoneToken" <*> arg Aeson..:! "partialResultToken" <*> arg Aeson..: "item"

lsp-types/generated/Language/LSP/Protocol/Internal/Types/CallHierarchyItem.hs

@@ -73,4 +73,4 @@ instance Aeson.ToJSON CallHierarchyItem where
     ,"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 Aeson..:! "tags" <*> arg Aeson..:! "detail" <*> arg Aeson..: "uri" <*> arg Aeson..: "range" <*> arg Aeson..: "selectionRange" <*> arg Aeson..:! "data"

lsp-types/generated/Language/LSP/Protocol/Internal/Types/CallHierarchyOptions.hs

@@ -29,4 +29,4 @@ instance Aeson.ToJSON CallHierarchyOptions where
   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 Aeson..:! "workDoneProgress"

lsp-types/generated/Language/LSP/Protocol/Internal/Types/CallHierarchyOutgoingCall.hs

@@ -38,4 +38,4 @@ instance Aeson.ToJSON CallHierarchyOutgoingCall where
     ,["fromRanges" Aeson..= arg1]]
 
 instance Aeson.FromJSON CallHierarchyOutgoingCall where
-  parseJSON = Aeson.withObject "CallHierarchyOutgoingCall" $ \arg -> CallHierarchyOutgoingCall <$> arg Aeson..: "to" <*> arg Aeson..: "fromRanges"
+  parseJSON = Aeson.withObject "CallHierarchyOutgoingCall" $ \arg -> CallHierarchyOutgoingCall <$> arg Aeson..: "to" <*> arg Aeson..: "fromRanges"

lsp-types/generated/Language/LSP/Protocol/Internal/Types/CallHierarchyOutgoingCallsParams.hs

@@ -42,4 +42,4 @@ instance Aeson.ToJSON CallHierarchyOutgoingCallsParams where
     ,["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 Aeson..:! "workDoneToken" <*> arg Aeson..:! "partialResultToken" <*> arg Aeson..: "item"

lsp-types/generated/Language/LSP/Protocol/Internal/Types/CallHierarchyPrepareParams.hs

@@ -42,4 +42,4 @@ instance Aeson.ToJSON CallHierarchyPrepareParams where
     ,"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 Aeson..:! "workDoneToken"

lsp-types/generated/Language/LSP/Protocol/Internal/Types/CallHierarchyRegistrationOptions.hs

@@ -43,4 +43,4 @@ instance Aeson.ToJSON CallHierarchyRegistrationOptions where
     ,"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 Aeson..:! "workDoneProgress" <*> arg Aeson..:! "id"

lsp-types/generated/Language/LSP/Protocol/Internal/Types/CancelParams.hs

@@ -28,4 +28,4 @@ instance Aeson.ToJSON CancelParams where
   toJSON (CancelParams arg0) = Aeson.object $ concat $  [["id" Aeson..= arg0]]
 
 instance Aeson.FromJSON CancelParams where
-  parseJSON = Aeson.withObject "CancelParams" $ \arg -> CancelParams <$> arg Aeson..: "id"
+  parseJSON = Aeson.withObject "CancelParams" $ \arg -> CancelParams <$> arg Aeson..: "id"

lsp-types/generated/Language/LSP/Protocol/Internal/Types/ChangeAnnotation.hs

@@ -43,4 +43,4 @@ instance Aeson.ToJSON ChangeAnnotation where
     ,"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 Aeson..:! "needsConfirmation" <*> arg Aeson..:! "description"

lsp-types/generated/Language/LSP/Protocol/Internal/Types/ChangeAnnotationIdentifier.hs

@@ -20,4 +20,4 @@ newtype ChangeAnnotationIdentifier = ChangeAnnotationIdentifier Data.Text.Text
   , Aeson.ToJSONKey
   , Aeson.FromJSONKey )
   deriving stock (Show, Eq, Ord, Generic)
-  deriving anyclass (NFData)
+  deriving anyclass (NFData)

lsp-types/generated/Language/LSP/Protocol/Internal/Types/ClientCapabilities.hs

@@ -62,4 +62,4 @@ instance Aeson.ToJSON ClientCapabilities where
     ,"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 Aeson..:! "workspace" <*> arg Aeson..:! "textDocument" <*> arg Aeson..:! "notebookDocument" <*> arg Aeson..:! "window" <*> arg Aeson..:! "general" <*> arg Aeson..:! "experimental"

lsp-types/generated/Language/LSP/Protocol/Internal/Types/CodeAction.hs

@@ -99,4 +99,4 @@ instance Aeson.ToJSON CodeAction where
     ,"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 Aeson..:! "kind" <*> arg Aeson..:! "diagnostics" <*> arg Aeson..:! "isPreferred" <*> arg Aeson..:! "disabled" <*> arg Aeson..:! "edit" <*> arg Aeson..:! "command" <*> arg Aeson..:! "data"

lsp-types/generated/Language/LSP/Protocol/Internal/Types/CodeActionClientCapabilities.hs

@@ -81,4 +81,4 @@ instance Aeson.ToJSON CodeActionClientCapabilities where
     ,"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 Aeson..:! "dynamicRegistration" <*> arg Aeson..:! "codeActionLiteralSupport" <*> arg Aeson..:! "isPreferredSupport" <*> arg Aeson..:! "disabledSupport" <*> arg Aeson..:! "dataSupport" <*> arg Aeson..:! "resolveSupport" <*> arg Aeson..:! "honorsChangeAnnotations"

lsp-types/generated/Language/LSP/Protocol/Internal/Types/CodeActionContext.hs

@@ -50,4 +50,4 @@ instance Aeson.ToJSON CodeActionContext where
     ,"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 Aeson..:! "only" <*> arg Aeson..:! "triggerKind"

lsp-types/generated/Language/LSP/Protocol/Internal/Types/CodeActionKind.hs

@@ -126,3 +126,4 @@ instance Language.LSP.Protocol.Types.LspEnum.LspOpenEnum CodeActionKind where
   fromOpenEnumBaseType "source.fixAll" = CodeActionKind_SourceFixAll
   fromOpenEnumBaseType arg = CodeActionKind_Custom arg
 
+

lsp-types/generated/Language/LSP/Protocol/Internal/Types/CodeActionOptions.hs

@@ -44,4 +44,4 @@ instance Aeson.ToJSON CodeActionOptions where
     ,"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 Aeson..:! "workDoneProgress" <*> arg Aeson..:! "codeActionKinds" <*> arg Aeson..:! "resolveProvider"

lsp-types/generated/Language/LSP/Protocol/Internal/Types/CodeActionParams.hs

@@ -52,4 +52,4 @@ instance Aeson.ToJSON CodeActionParams where
     ,["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 Aeson..:! "workDoneToken" <*> arg Aeson..:! "partialResultToken" <*> arg Aeson..: "textDocument" <*> arg Aeson..: "range" <*> arg Aeson..: "context"

lsp-types/generated/Language/LSP/Protocol/Internal/Types/CodeActionRegistrationOptions.hs

@@ -51,4 +51,4 @@ instance Aeson.ToJSON CodeActionRegistrationOptions where
     ,"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 Aeson..:! "workDoneProgress" <*> arg Aeson..:! "codeActionKinds" <*> arg Aeson..:! "resolveProvider"

lsp-types/generated/Language/LSP/Protocol/Internal/Types/CodeActionTriggerKind.hs

@@ -46,3 +46,4 @@ instance Language.LSP.Protocol.Types.LspEnum.LspEnum CodeActionTriggerKind where
   fromEnumBaseType 2 = pure CodeActionTriggerKind_Automatic
   fromEnumBaseType _ = Nothing
 
+

lsp-types/generated/Language/LSP/Protocol/Internal/Types/CodeDescription.hs

@@ -30,4 +30,4 @@ instance Aeson.ToJSON CodeDescription where
   toJSON (CodeDescription arg0) = Aeson.object $ concat $  [["href" Aeson..= arg0]]
 
 instance Aeson.FromJSON CodeDescription where
-  parseJSON = Aeson.withObject "CodeDescription" $ \arg -> CodeDescription <$> arg Aeson..: "href"
+  parseJSON = Aeson.withObject "CodeDescription" $ \arg -> CodeDescription <$> arg Aeson..: "href"

lsp-types/generated/Language/LSP/Protocol/Internal/Types/CodeLens.hs

@@ -45,4 +45,4 @@ instance Aeson.ToJSON CodeLens where
     ,"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 Aeson..:! "command" <*> arg Aeson..:! "data"

lsp-types/generated/Language/LSP/Protocol/Internal/Types/CodeLensClientCapabilities.hs

@@ -27,4 +27,4 @@ instance Aeson.ToJSON CodeLensClientCapabilities where
   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 Aeson..:! "dynamicRegistration"

lsp-types/generated/Language/LSP/Protocol/Internal/Types/CodeLensOptions.hs

@@ -32,4 +32,4 @@ instance Aeson.ToJSON CodeLensOptions where
     ,"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 Aeson..:! "workDoneProgress" <*> arg Aeson..:! "resolveProvider"

lsp-types/generated/Language/LSP/Protocol/Internal/Types/CodeLensParams.hs

@@ -40,4 +40,4 @@ instance Aeson.ToJSON CodeLensParams where
     ,["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 Aeson..:! "workDoneToken" <*> arg Aeson..:! "partialResultToken" <*> arg Aeson..: "textDocument"

lsp-types/generated/Language/LSP/Protocol/Internal/Types/CodeLensRegistrationOptions.hs

@@ -39,4 +39,4 @@ instance Aeson.ToJSON CodeLensRegistrationOptions where
     ,"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 Aeson..:! "workDoneProgress" <*> arg Aeson..:! "resolveProvider"

lsp-types/generated/Language/LSP/Protocol/Internal/Types/CodeLensWorkspaceClientCapabilities.hs

@@ -33,4 +33,4 @@ instance Aeson.ToJSON CodeLensWorkspaceClientCapabilities where
   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 Aeson..:! "refreshSupport"

lsp-types/generated/Language/LSP/Protocol/Internal/Types/Color.hs

@@ -42,4 +42,4 @@ instance Aeson.ToJSON Color where
     ,["alpha" Aeson..= arg3]]
 
 instance Aeson.FromJSON Color where
-  parseJSON = Aeson.withObject "Color" $ \arg -> Color <$> arg Aeson..: "red" <*> arg Aeson..: "green" <*> arg Aeson..: "blue" <*> arg Aeson..: "alpha"
+  parseJSON = Aeson.withObject "Color" $ \arg -> Color <$> arg Aeson..: "red" <*> arg Aeson..: "green" <*> arg Aeson..: "blue" <*> arg Aeson..: "alpha"

lsp-types/generated/Language/LSP/Protocol/Internal/Types/ColorInformation.hs

@@ -34,4 +34,4 @@ instance Aeson.ToJSON ColorInformation where
     ,["color" Aeson..= arg1]]
 
 instance Aeson.FromJSON ColorInformation where
-  parseJSON = Aeson.withObject "ColorInformation" $ \arg -> ColorInformation <$> arg Aeson..: "range" <*> arg Aeson..: "color"
+  parseJSON = Aeson.withObject "ColorInformation" $ \arg -> ColorInformation <$> arg Aeson..: "range" <*> arg Aeson..: "color"